1object frFmtForm: TfrFmtForm 2 Left = 348 3 Height = 170 4 Top = 173 5 Width = 378 6 HorzScrollBar.Page = 315 7 VertScrollBar.Page = 130 8 ActiveControl = Panel1 9 BorderStyle = bsDialog 10 Caption = 'Variable formatting' 11 ClientHeight = 170 12 ClientWidth = 378 13 OnCreate = FormCreate 14 OnShow = frFmtFormShow 15 Position = poScreenCenter 16 LCLVersion = '0.9.29' 17 object GroupBox2: TGroupBox 18 Left = 0 19 Height = 120 20 Top = 0 21 Width = 378 22 Align = alClient 23 Caption = 'Variable format' 24 ClientHeight = 104 25 ClientWidth = 376 26 TabOrder = 0 27 object ComboBox1: TComboBox 28 AnchorSideLeft.Control = GroupBox2 29 AnchorSideTop.Control = GroupBox2 30 Left = 6 31 Height = 29 32 Top = 6 33 Width = 109 34 HelpContext = 21 35 BorderSpacing.Around = 6 36 ItemHeight = 0 37 OnChange = ComboBox1Change 38 Style = csDropDownList 39 TabOrder = 0 40 end 41 object ComboBox2: TComboBox 42 AnchorSideLeft.Control = ComboBox1 43 AnchorSideLeft.Side = asrBottom 44 AnchorSideTop.Control = GroupBox2 45 AnchorSideRight.Control = GroupBox2 46 AnchorSideRight.Side = asrBottom 47 Left = 121 48 Height = 29 49 Top = 6 50 Width = 249 51 HelpContext = 31 52 Anchors = [akTop, akLeft, akRight] 53 BorderSpacing.Around = 6 54 ItemHeight = 0 55 OnSelect = ComboBox2Select 56 Style = csDropDownList 57 TabOrder = 1 58 end 59 object Panel1: TPanel 60 Left = 8 61 Height = 33 62 Top = 47 63 Width = 278 64 BevelOuter = bvNone 65 ClientHeight = 33 66 ClientWidth = 278 67 FullRepaint = False 68 TabOrder = 2 69 Visible = False 70 object Label5: TLabel 71 Left = 0 72 Height = 16 73 Top = 8 74 Width = 91 75 Caption = '&Decimal digits' 76 FocusControl = Edit3 77 ParentColor = False 78 end 79 object Label6: TLabel 80 Left = 134 81 Height = 16 82 Top = 5 83 Width = 101 84 Caption = 'Fraction &symbol' 85 FocusControl = SplEdit 86 ParentColor = False 87 end 88 object SplEdit: TEdit 89 Left = 238 90 Height = 21 91 Top = 4 92 Width = 25 93 HelpContext = 41 94 MaxLength = 1 95 OnEnter = SplEditEnter 96 TabOrder = 0 97 Text = ',' 98 end 99 object Edit3: TEdit 100 Left = 94 101 Height = 21 102 Top = 4 103 Width = 25 104 HelpContext = 51 105 TabOrder = 1 106 Text = '0' 107 end 108 end 109 object Panel2: TPanel 110 Left = 36 111 Height = 33 112 Top = 47 113 Width = 281 114 BevelOuter = bvNone 115 ClientHeight = 33 116 ClientWidth = 281 117 FullRepaint = False 118 TabOrder = 3 119 object Label1: TLabel 120 AnchorSideTop.Side = asrBottom 121 Left = 58 122 Height = 16 123 Top = 8 124 Width = 47 125 BorderSpacing.Around = 6 126 Caption = '&Format' 127 FocusControl = Edit1 128 ParentColor = False 129 end 130 object Edit1: TEdit 131 AnchorSideTop.Side = asrBottom 132 Left = 126 133 Height = 21 134 Top = 0 135 Width = 142 136 HelpContext = 61 137 BorderSpacing.Around = 6 138 TabOrder = 0 139 end 140 end 141 end 142 object ButtonPanel1: TButtonPanel 143 Left = 6 144 Height = 38 145 Top = 126 146 Width = 366 147 OKButton.Name = 'OKButton' 148 HelpButton.Name = 'HelpButton' 149 CloseButton.Name = 'CloseButton' 150 CloseButton.Enabled = False 151 CancelButton.Name = 'CancelButton' 152 TabOrder = 1 153 ShowButtons = [pbOK, pbCancel, pbHelp] 154 end 155end 156