1object CodeCreationDialog: TCodeCreationDialog 2 Left = 460 3 Height = 213 4 Top = 220 5 Width = 304 6 BorderStyle = bsDialog 7 Caption = 'CodeCreationDialog' 8 ClientHeight = 213 9 ClientWidth = 304 10 KeyPreview = True 11 OnKeyPress = FormKeyPress 12 Position = poScreenCenter 13 ShowHint = True 14 LCLVersion = '1.7' 15 object ButtonPanel: TButtonPanel 16 Left = 6 17 Height = 34 18 Top = 173 19 Width = 292 20 OKButton.Name = 'OKButton' 21 OKButton.DefaultCaption = True 22 HelpButton.Name = 'HelpButton' 23 HelpButton.DefaultCaption = True 24 CloseButton.Name = 'CloseButton' 25 CloseButton.DefaultCaption = True 26 CancelButton.Name = 'CancelButton' 27 CancelButton.DefaultCaption = True 28 TabOrder = 2 29 ShowButtons = [pbOK] 30 end 31 object NewIdentLabel: TLabel 32 Left = 10 33 Height = 15 34 Top = 6 35 Width = 284 36 Align = alTop 37 BorderSpacing.Left = 10 38 BorderSpacing.Top = 6 39 BorderSpacing.Right = 10 40 Caption = 'NewIdentLabel' 41 ParentColor = False 42 WordWrap = True 43 end 44 object LocationRadioGroup: TRadioGroup 45 Left = 6 46 Height = 61 47 Top = 27 48 Width = 292 49 Align = alTop 50 AutoFill = True 51 BorderSpacing.Left = 6 52 BorderSpacing.Top = 6 53 BorderSpacing.Right = 6 54 BorderSpacing.Bottom = 6 55 Caption = 'LocationRadioGroup' 56 ChildSizing.LeftRightSpacing = 6 57 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 58 ChildSizing.EnlargeVertical = crsHomogenousChildResize 59 ChildSizing.ShrinkHorizontal = crsScaleChilds 60 ChildSizing.ShrinkVertical = crsScaleChilds 61 ChildSizing.Layout = cclLeftToRightThenTopToBottom 62 ChildSizing.ControlsPerLine = 2 63 Columns = 2 64 OnClick = LocationRadioGroupClick 65 OnDblClick = SectionRadioGroupDblClick 66 TabOrder = 0 67 TabStop = True 68 end 69 object SectionRadioGroup: TRadioGroup 70 Left = 6 71 Height = 73 72 Top = 94 73 Width = 292 74 Align = alClient 75 AutoFill = True 76 BorderSpacing.Left = 6 77 BorderSpacing.Top = 6 78 BorderSpacing.Right = 6 79 BorderSpacing.Bottom = 6 80 Caption = 'SectionRadioGroup' 81 ChildSizing.LeftRightSpacing = 6 82 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 83 ChildSizing.EnlargeVertical = crsHomogenousChildResize 84 ChildSizing.ShrinkHorizontal = crsScaleChilds 85 ChildSizing.ShrinkVertical = crsScaleChilds 86 ChildSizing.Layout = cclLeftToRightThenTopToBottom 87 ChildSizing.ControlsPerLine = 2 88 Columns = 2 89 OnDblClick = SectionRadioGroupDblClick 90 TabOrder = 1 91 TabStop = True 92 end 93end 94