object FrmBT10: TFrmBT10 Left = 504 Height = 357 Hint = 'Sort by Sequence from Nose' Top = 330 Width = 460 BorderIcons = [biMaximize] Caption = 'FrmBT10 - Fuselage Data' ClientHeight = 357 ClientWidth = 460 OnCreate = FormCreate OnShow = FormShow LCLVersion = '1.2.6.0' object LblStage: TLabel Left = 19 Height = 13 Top = 136 Width = 68 Caption = 'Stage Number' ParentColor = False end object StageComboBox: TComboBox Left = 19 Height = 21 Hint = 'Stage 1 is the uppermost stage,'#13#10'Stage n is the lowermost stage.' Top = 152 Width = 68 ItemHeight = 13 ItemIndex = 0 Items.Strings = ( '1' '2' '3' '4' '5' '6' ) OnChange = StageComboBoxChange ParentShowHint = False ShowHint = True TabOrder = 4 Text = '1' end object LblNstages: TLabel Left = 41 Height = 26 Top = 64 Width = 46 Caption = ' Number'#13#10'of Stages' ParentColor = False end object btNstage: TEdit Left = 19 Height = 21 Hint = 'Number of Stages'#13#10'---------------------'#13#10'Stage 1 is Uppermost Stage,'#13#10'Stage n is Lowermost Stage' Top = 99 Width = 68 Alignment = taRightJustify ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 3 Text = '0' end object BTstrngGrid: TStringGrid Left = 112 Height = 244 Hint = 'Stage Body Tube Data'#13#10#13#10'Sequence: Fuselage Section Position from Nose'#13#10'Length: Fuselage Section Length'#13#10'Radius: Fuselage Section Radius'#13#10'Mass: Fuselage Section Mass'#13#10'Plane Area: Fuselage Section Cross-sectional Area'#13#10'Surfce Area: Fuselage Section Surface Area' Top = 88 Width = 320 ColCount = 7 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAlwaysShowEditor, goSmoothScroll] ParentShowHint = False RowCount = 11 ShowHint = True TabOrder = 6 OnDrawCell = BTstrngGridDrawCell OnPrepareCanvas = BTstrngGridPrepareCanvas OnSetEditText = BTstrngGridSetEditText end object LblNtubes: TLabel Left = 17 Height = 26 Top = 192 Width = 70 Caption = ' Number of'#13#10'Exterior Tubes' ParentColor = False end object btNtube: TEdit Left = 19 Height = 21 Hint = 'Number of body tube segments current stage' Top = 224 Width = 68 Alignment = taRightJustify ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 5 Text = '0' end object Label1: TLabel Left = 272 Height = 13 Top = 69 Width = 91 Caption = 'Exterior Tube Data' ParentColor = False end object BtnClose: TButton Left = 19 Height = 20 Hint = 'Close FrmBT10 and return to MRmain.' Top = 312 Width = 68 Caption = 'Close' OnClick = BtnCloseClick ParentShowHint = False ShowHint = True TabOrder = 8 end object BtnSort: TButton Left = 19 Height = 20 Hint = 'Sort by sequence from nose and re-index.' Top = 280 Width = 68 Caption = 'Sort' OnClick = BtnSortClick ParentShowHint = False ShowHint = True TabOrder = 7 end object LblName: TLabel Left = 8 Height = 13 Top = 24 Width = 67 Caption = 'Rocket Name:' ParentColor = False end object mrName: TEdit Left = 80 Height = 21 Top = 19 Width = 126 ReadOnly = True TabOrder = 0 end object LblUOM: TLabel Left = 344 Height = 13 Top = 24 Width = 54 Caption = 'Mass UOM:' ParentColor = False end object EdtUOM: TEdit Left = 400 Height = 21 Hint = 'Mass Unit of Measure' Top = 19 Width = 32 ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 2 end object LblLengthUOM: TLabel Left = 232 Height = 13 Top = 24 Width = 59 Caption = 'Linear UOM:' ParentColor = False end object EdtLegnthUOM: TEdit Left = 293 Height = 21 Hint = 'Linear Unit of Measure' Top = 19 Width = 31 ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 1 end end