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