Changeset 114 for branches/generator/Forms
- Timestamp:
- Nov 27, 2017, 9:08:54 AM (7 years ago)
- Location:
- branches/generator
- Files:
-
- 7 edited
-
. (modified) (1 prop)
-
Forms/UFormMain.lfm (modified) (1 diff)
-
Forms/UFormMain.pas (modified) (4 diffs)
-
Forms/UFormRule.lfm (modified) (6 diffs)
-
Forms/UFormRuleItem.lfm (modified) (7 diffs)
-
Forms/UFormRules.lfm (modified) (3 diffs)
-
Forms/UFormRules.pas (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/generator
-
Property svn:ignore
set to
generator.exe
generator.lps
lib
-
Property svn:ignore
set to
-
branches/generator/Forms/UFormMain.lfm
r112 r114 5 5 Width = 1050 6 6 Caption = 'Language generator' 7 ClientHeight = 6 467 ClientHeight = 653 8 8 ClientWidth = 1050 9 9 Menu = MainMenu1 10 OnClose = FormClose 10 11 OnShow = FormShow 11 12 LCLVersion = '1.6.4.0' 12 13 object MemoBNF: TMemo 13 14 Left = 0 14 Height = 6 4615 Top = 015 Height = 618 16 Top = 35 16 17 Width = 1050 17 18 Align = alClient 18 19 TabOrder = 0 20 end 21 object CoolBar1: TCoolBar 22 Left = 0 23 Height = 35 24 Top = 0 25 Width = 1050 26 Bands = < 27 item 28 Control = ToolBar1 29 Width = 179 30 end> 31 object ToolBar1: TToolBar 32 AnchorSideLeft.Control = CoolBar1 33 AnchorSideTop.Control = CoolBar1 34 Left = 24 35 Height = 22 36 Top = 5 37 Width = 24 38 Align = alNone 39 AutoSize = True 40 BorderSpacing.Left = 22 41 BorderSpacing.Top = 3 42 Caption = 'ToolBar1' 43 EdgeInner = esNone 44 EdgeOuter = esNone 45 ParentShowHint = False 46 ShowHint = True 47 TabOrder = 0 48 Transparent = True 49 object ToolButton1: TToolButton 50 Left = 1 51 Top = 0 52 Action = ARules 53 end 54 end 19 55 end 20 56 object MainMenu1: TMainMenu -
branches/generator/Forms/UFormMain.pas
r111 r114 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 Menus, ActnList ;9 Menus, ActnList, ComCtrls, UPersistentForm; 10 10 11 11 type … … 19 19 ARules: TAction; 20 20 ActionList1: TActionList; 21 CoolBar1: TCoolBar; 21 22 MainMenu1: TMainMenu; 22 23 MemoBNF: TMemo; … … 30 31 OpenDialog1: TOpenDialog; 31 32 SaveDialog1: TSaveDialog; 33 ToolBar1: TToolBar; 34 ToolButton1: TToolButton; 32 35 procedure AExitExecute(Sender: TObject); 33 36 procedure AOpenExecute(Sender: TObject); 34 37 procedure ARulesExecute(Sender: TObject); 35 38 procedure ASaveAsExecute(Sender: TObject); 39 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 36 40 procedure FormShow(Sender: TObject); 37 41 private … … 69 73 end; 70 74 75 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction); 76 begin 77 Core.PersistentForm1.Save(Self); 78 end; 79 71 80 procedure TFormMain.FormShow(Sender: TObject); 72 81 begin 82 Core.PersistentForm1.Load(Self, True); 73 83 MemoBNF.Lines.Text := Core.Grammer.GetBNF; 74 84 end; -
branches/generator/Forms/UFormRule.lfm
r113 r114 1 1 object FormRule: TFormRule 2 Left = 6792 Left = 507 3 3 Height = 505 4 Top = 6204 Top = 293 5 5 Width = 660 6 6 ActiveControl = ButtonOk … … 32 32 object Label1: TLabel 33 33 Left = 24 34 Height = 2 434 Height = 20 35 35 Top = 29 36 Width = 5636 Width = 43 37 37 Caption = 'Name:' 38 38 ParentColor = False … … 40 40 object EditName: TEdit 41 41 Left = 184 42 Height = 3442 Height = 28 43 43 Top = 19 44 44 Width = 392 … … 70 70 object Label2: TLabel 71 71 Left = 24 72 Height = 2 472 Height = 20 73 73 Top = 64 74 Width = 8274 Width = 63 75 75 Caption = 'Operator:' 76 76 ParentColor = False … … 78 78 object ComboBox1: TComboBox 79 79 Left = 186 80 Height = 3480 Height = 28 81 81 Top = 61 82 82 Width = 390 83 ItemHeight = 083 ItemHeight = 20 84 84 Items.Strings = ( 85 85 'And' … … 161 161 object MenuItem1: TMenuItem 162 162 Action = AAdd 163 Bitmap.Data = { 164 36040000424D3604000000000000360000002800000010000000100000000100 165 2000000000000004000064000000640000000000000000000000000000000000 166 0000000000000000000000000000000000000000000000000000000000000000 167 0000000000000000000000000000000000000000000000000000000000000000 168 000000000000000000000000000000000000D4D4D4FFB2B2B2FFB2B2B2FFD4D4 169 D4FF000000000000000000000000000000000000000000000000000000000000 170 0000000000000000000000000000709B70FF004A00FF004800FF4E764EFFB2B2 171 B2FF000000000000000000000000000000000000000000000000000000000000 172 0000000000000000000000000000004E00FF00C800FF00C400FF004800FFB2B2 173 B2FF000000000000000000000000000000000000000000000000000000000000 174 0000000000000000000000000000005000FF00CA00FF00C600FF004A00FFB2B2 175 B2FF000000000000000000000000000000000000000000000000000000000000 176 0000000000000000000000000000005300FF00CE00FF00CA00FF004C00FFB2B2 177 B2FF00000000000000000000000000000000000000000000000000000000D4D4 178 D4FFB2B2B2FFB2B2B2FFB2B2B2FF005400FF00D200FF00CE00FF004E00FFB2B2 179 B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFD4D4D4FF0000000070A670FF005E 180 00FF005C00FF005A00FF005800FF005600FF00D600FF00D000FF005000FF004E 181 00FF004C00FF004A00FF004A00FF4E764EFFB2B2B2FF00000000006200FF8CFE 182 8CFF00EA00FF00E600FF00E200FF00DE00FF00DA00FF00D400FF00D000FF00CC 183 00FF00C800FF00C400FF00C200FF004800FFB2B2B2FF00000000006400FFECFF 184 ECFF8CFE8CFF8CFE8CFF8CFE8CFF8CFE8CFF00DE00FF00D900FF00D400FF00D0 185 00FF00CC00FF00C800FF00C400FF004A00FFD4D4D4FF0000000070A970FF0064 186 00FF006400FF006200FF006000FF006000FF8CFE8CFF00DD00FF005800FF0056 187 00FF005400FF005300FF005000FF709C70FF0000000000000000000000000000 188 0000000000000000000000000000006000FF8CFE8CFF00E000FF005A00FFB2B2 189 B2FF000000000000000000000000000000000000000000000000000000000000 190 0000000000000000000000000000006200FF8CFE8CFF00E500FF005C00FFB2B2 191 B2FF000000000000000000000000000000000000000000000000000000000000 192 0000000000000000000000000000006400FF8CFE8CFF00E800FF005E00FFB2B2 193 B2FF000000000000000000000000000000000000000000000000000000000000 194 0000000000000000000000000000006400FFECFFECFF8CFE8CFF006000FFD4D4 195 D4FF000000000000000000000000000000000000000000000000000000000000 196 000000000000000000000000000070A970FF006400FF006200FF70A670FF0000 197 0000000000000000000000000000000000000000000000000000 198 } 163 199 end 164 200 object MenuItem2: TMenuItem 165 201 Action = AModify 202 Bitmap.Data = { 203 36040000424D3604000000000000360000002800000010000000100000000100 204 2000000000000004000064000000640000000000000000000000986B37FF976A 205 36FF966935FF966734FF956633FF946532FF946531FF936430FF92622FFF9261 206 2EFF91602DFF90602CFF905F2BFF8F5D2AFF8E5C29FF8D5B28FF996C38FFF8F7 207 F6FFF8F7F5FFF7F6F5FFF6F6F4FFF6F5F3FFF5F5F3FFF5F4F2FFF4F3F1FFF4F3 208 F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F0EEFFF1F0EDFF8E5D29FF996D3AFFF9F8 209 F7FF959594FF878787FF9B9A9AFFF7F6F4FFF6F5F3FFF6F5F3FFF5F4F2FFF4F3 210 F1FFF4F3F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F1EEFF8F5E2AFF9A6E3BFFF9F9 211 F8FF7C7C7CFFC4C4C4FF878787FFF7F6F5FF7A7A7AFF787878FF747474FF7171 212 70FF6D6D6CFF696968FF656565FF616161FFF2F1EFFF905F2BFF9B6F3CFFFAF9 213 F8FFBEBEBDFF929292FFBCBCBBFFF8F7F6FFF7F7F5FFF7F6F4FFF6F5F4FFF6F5 214 F3FFF5F4F2FFF5F4F2FFF4F3F1FFF4F2F0FFF3F2F0FF91602DFF9C703DFFFAFA 215 F9FFFAF9F9FFF9F9F8FFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F5 216 F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FFF4F3F0FF92612EFF9D723EFFFBFB 217 FAFF9F9F9EFF7F7F7FFFAEAEADFFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6 218 F5FFF6F6F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FF92622FFF9D7340FFFCFB 219 FBFF818181FFC4C4C4FF8F8F8FFFFAF9F8FF7B7B7AFF797979FF757574FF7271 220 71FF6D6D6DFF696969FF666665FF626261FFF5F4F2FF936430FF9E7441FFFCFC 221 FCFFB5B5B5FF848484FFBEBDBDFFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FFF8F8 222 F6FFF8F7F5FFF7F6F5FFF7F6F4FFF6F5F3FFF6F5F3FF946531FF9F7542FFFDFD 223 FCFFFCFCFCFFFCFCFBFFFBFBFAFFFBFAFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8 224 F7FFF8F8F6FFF8F7F6FFF7F6F5FFF7F6F4FFF6F5F4FF956633FFA07643FFFEFD 225 FDFF8C8C8CFF525252FFA4A4A4FFFBFBFAFFFBFBFAFFFAFAF9FFFAF9F8FFF9F9 226 F8FFF9F8F7FFF8F8F6FFF8F7F6FFF7F7F5FFF7F6F4FF966734FFA17844FFFEFE 227 FEFF5F5F5FFF949494FF535353FFFCFCFBFF7B7B7BFF797979FF757575FF7272 228 72FF6E6E6EFF6A6A69FF666666FF626262FFF7F7F5FF966935FFA17946FFFFFF 229 FFFF878787FF5D5D5DFFA0A0A0FFFDFCFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFA 230 F9FFFAFAF9FFFAF9F8FFF9F8F7FFF8F8F7FFF8F7F6FF976A36FFA27A47FFFFFF 231 FFFFFFFFFFFFFEFEFEFFFEFEFEFFFDFDFDFFFDFDFCFFFCFCFBFFFCFBFBFFFBFB 232 FAFFFBFAF9FFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FF986B37FFA37B48FFBEA2 233 7FFFBEA17EFFBDA17DFFBDA07CFFBD9F7CFFBC9F7BFFBB9E7AFFBB9D7AFFBB9D 234 79FFBA9C78FFB99B78FFB99A77FFB89A76FFB89975FF996C39FFA37B48FFA37B 235 48FFA27A47FFA27946FFA17845FFA07744FFA07643FF9F7542FF9E7441FF9E73 236 40FF9D723FFF9C713EFF9C703DFF9B6F3CFF9A6E3BFF9A6D3AFF 237 } 166 238 end 167 239 object MenuItem3: TMenuItem 168 240 Action = ARemove 241 Bitmap.Data = { 242 36040000424D3604000000000000360000002800000010000000100000000100 243 2000000000000004000064000000640000000000000000000000000000000000 244 0000000000000000000000000000000000000000000000000000000000000000 245 0000000000000000000000000000000000000000000000000000000000000000 246 0000000000000000000000000000000000000000000000000000000000000000 247 0000000000000000000000000000000000003A3AE2FFC0C0C0FF000000000000 248 000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000 249 0000000000000000000000000000000000000000000000000000000000000000 250 0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000 251 00000000000000000000000000003A3AE2FFC0C0C0FF00000000000000000000 252 0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000 253 000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000 254 000000000000000000003838E0FF3838E0FF3838E0FFC0C0C0FF000000000000 255 0000000000003838E0FF3838E0FFC0C0C0FF0000000000000000000000000000 256 00000000000000000000000000003535DDFF3535DDFF3535DDFFC0C0C0FF0000 257 00003535DDFF3535DDFFC0C0C0FF000000000000000000000000000000000000 258 0000000000000000000000000000000000003232DAFF3232DAFF3232DAFF3232 259 DAFF3232DAFFC0C0C0FF00000000000000000000000000000000000000000000 260 000000000000000000000000000000000000000000002F2FD7FF2F2FD7FF2F2F 261 D7FFC0C0C0FF0000000000000000000000000000000000000000000000000000 262 0000000000000000000000000000000000002C2CD4FF2C2CD4FF2C2CD4FF2C2C 263 D4FF2C2CD4FFC0C0C0FF00000000000000000000000000000000000000000000 264 00000000000000000000000000002929D1FF2929D1FF2929D1FFC0C0C0FF0000 265 00002929D1FFC0C0C0FF00000000000000000000000000000000000000000000 266 0000000000002626CEFF2626CEFF2626CEFF2626CEFFC0C0C0FF000000000000 267 0000000000002626CEFF2626CEFFC0C0C0FF0000000000000000000000000000 268 00002020C8FF2020C8FF2020C8FF2020C8FFC0C0C0FF00000000000000000000 269 000000000000000000002020C8FF2020C8FFC0C0C0FF00000000000000000000 270 00001818C0FF1818C0FFC0C0C0FF000000000000000000000000000000000000 271 00000000000000000000000000001818C0FF1818C0FFC0C0C0FF000000000000 272 0000000000000000000000000000000000000000000000000000000000000000 273 0000000000000000000000000000000000000000000000000000000000000000 274 0000000000000000000000000000000000000000000000000000000000000000 275 0000000000000000000000000000000000000000000000000000 276 } 169 277 end 170 278 object MenuItem4: TMenuItem 171 279 Action = AMoveUp 280 Bitmap.Data = { 281 36040000424D3604000000000000360000002800000010000000100000000100 282 2000000000000004000064000000640000000000000000000000000000000000 283 0000000000000000000000000000000000000000000000000000000000000000 284 0000000000000000000000000000000000000000000000000000000000000000 285 0000000000000000000000000000000000FF000000FF000000FF000000FF0000 286 00FF000000FF000000FF00000000000000000000000000000000000000000000 287 0000000000000000000000000000000000FFFF442CFFFF3C28FFFF3522FFFF2E 288 1EFFFF2619FF000000FF00000000000000000000000000000000000000000000 289 0000000000000000000000000000000000FFFF5337FFFF4C32FFFF442CFFFF3C 290 28FFFF3623FF000000FF00000000000000000000000000000000000000000000 291 0000000000000000000000000000000000FFFF6341FFFF5C3BFFFF5437FFFF4C 292 32FFFF442CFF000000FF00000000000000000000000000000000000000000000 293 0000000000000000000000000000000000FFFF724AFFFF6B46FFFF6441FFFF5D 294 3CFFFF5437FF000000FF00000000000000000000000000000000000000000000 295 0000000000000000000000000000000000FFFF8255FFFF7A4FFFFF744BFFFF6C 296 46FFFF6441FF000000FF00000000000000000000000000000000000000000000 297 0000000000000000000000000000000000FFFF915FFFFF8A5AFFFF8255FFFF7C 298 51FFFF744CFF000000FF00000000000000000000000000000000000000000000 299 00FF000000FF000000FF000000FF000000FFFFA169FFFF9A65FFFF9360FFFF8A 300 5AFFFF8456FF000000FF000000FF000000FF000000FF000000FF000000000000 301 0000000000FFFFC681FFFFBF7DFFFFB878FFFFB073FFFFAA6EFFFFA269FFFF9A 302 65FFFF9360FFFF8C5BFFFF8456FFFF7C51FF000000FF00000000000000000000 303 000000000000000000FFFFCF87FFFFC882FFFFC17DFFFFB878FFFFB174FFFFAA 304 6EFFFFA269FFFF9A65FFFF9461FF000000FF0000000000000000000000000000 305 00000000000000000000000000FFFFD78CFFFFD088FFFFC882FFFFC17DFFFFBA 306 79FFFFB374FFFFAA6EFF000000FF000000000000000000000000000000000000 307 0000000000000000000000000000000000FFFFE092FFFFD88CFFFFD088FFFFC8 308 82FFFFC27EFF000000FF00000000000000000000000000000000000000000000 309 000000000000000000000000000000000000000000FFFFE797FFFFE092FFFFD8 310 8CFF000000FF0000000000000000000000000000000000000000000000000000 311 00000000000000000000000000000000000000000000000000FFFFF09CFF0000 312 00FF000000000000000000000000000000000000000000000000000000000000 313 0000000000000000000000000000000000000000000000000000000000FF0000 314 0000000000000000000000000000000000000000000000000000 315 } 172 316 end 173 317 object MenuItem5: TMenuItem 174 318 Action = AMoveDown 319 Bitmap.Data = { 320 36040000424D3604000000000000360000002800000010000000100000000100 321 2000000000000004000064000000640000000000000000000000000000000000 322 00000000000000000000000000000000000000000000000000FF000000000000 323 0000000000000000000000000000000000000000000000000000000000000000 324 000000000000000000000000000000000000000000FFFFF09CFF000000FF0000 325 0000000000000000000000000000000000000000000000000000000000000000 326 0000000000000000000000000000000000FFFFD88CFFFFE092FFFFE797FF0000 327 00FF000000000000000000000000000000000000000000000000000000000000 328 00000000000000000000000000FFFFC27EFFFFC882FFFFD088FFFFD88CFFFFE0 329 92FF000000FF0000000000000000000000000000000000000000000000000000 330 000000000000000000FFFFAA6EFFFFB374FFFFBA79FFFFC17DFFFFC882FFFFD0 331 88FFFFD78CFF000000FF00000000000000000000000000000000000000000000 332 0000000000FFFF9461FFFF9A65FFFFA269FFFFAA6EFFFFB174FFFFB878FFFFC1 333 7DFFFFC882FFFFCF87FF000000FF000000000000000000000000000000000000 334 00FFFF7C51FFFF8456FFFF8C5BFFFF9360FFFF9A65FFFFA269FFFFAA6EFFFFB0 335 73FFFFB878FFFFBF7DFFFFC681FF000000FF0000000000000000000000FF0000 336 00FF000000FF000000FF000000FFFF8456FFFF8A5AFFFF9360FFFF9A65FFFFA1 337 69FF000000FF000000FF000000FF000000FF000000FF00000000000000000000 338 00000000000000000000000000FFFF744CFFFF7C51FFFF8255FFFF8A5AFFFF91 339 5FFF000000FF0000000000000000000000000000000000000000000000000000 340 00000000000000000000000000FFFF6441FFFF6C46FFFF744BFFFF7A4FFFFF82 341 55FF000000FF0000000000000000000000000000000000000000000000000000 342 00000000000000000000000000FFFF5437FFFF5D3CFFFF6441FFFF6B46FFFF72 343 4AFF000000FF0000000000000000000000000000000000000000000000000000 344 00000000000000000000000000FFFF442CFFFF4C32FFFF5437FFFF5C3BFFFF63 345 41FF000000FF0000000000000000000000000000000000000000000000000000 346 00000000000000000000000000FFFF3623FFFF3C28FFFF442CFFFF4C32FFFF53 347 37FF000000FF0000000000000000000000000000000000000000000000000000 348 00000000000000000000000000FFFF2619FFFF2E1EFFFF3522FFFF3C28FFFF44 349 2CFF000000FF0000000000000000000000000000000000000000000000000000 350 00000000000000000000000000FF000000FF000000FF000000FF000000FF0000 351 00FF000000FF0000000000000000000000000000000000000000000000000000 352 0000000000000000000000000000000000000000000000000000000000000000 353 0000000000000000000000000000000000000000000000000000 354 } 175 355 end 176 356 end -
branches/generator/Forms/UFormRuleItem.lfm
r111 r114 1 1 object FormRuleItem: TFormRuleItem 2 Left = 5492 Left = 474 3 3 Height = 278 4 Top = 6844 Top = 386 5 5 Width = 656 6 6 ActiveControl = EditName … … 11 11 object LabelTerminal: TLabel 12 12 Left = 16 13 Height = 2 413 Height = 20 14 14 Top = 64 15 Width = 7915 Width = 61 16 16 Caption = 'Terminal:' 17 17 ParentColor = False … … 19 19 object EditName: TEdit 20 20 Left = 160 21 Height = 3421 Height = 28 22 22 Top = 64 23 23 Width = 400 … … 44 44 object ComboBoxType: TComboBox 45 45 Left = 160 46 Height = 3446 Height = 28 47 47 Top = 16 48 48 Width = 400 49 ItemHeight = 049 ItemHeight = 20 50 50 Items.Strings = ( 51 51 'Terminal' … … 58 58 object Label2: TLabel 59 59 Left = 16 60 Height = 2 460 Height = 20 61 61 Top = 24 62 Width = 4562 Width = 35 63 63 Caption = 'Type:' 64 64 ParentColor = False … … 66 66 object LabelNonTerminal: TLabel 67 67 Left = 16 68 Height = 2 468 Height = 20 69 69 Top = 112 70 Width = 11970 Width = 92 71 71 Caption = 'Non-terminal:' 72 72 ParentColor = False … … 74 74 object ComboBoxNonTerminal: TComboBox 75 75 Left = 160 76 Height = 3676 Height = 28 77 77 Top = 104 78 78 Width = 404 79 ItemHeight = 079 ItemHeight = 20 80 80 Style = csDropDownList 81 81 TabOrder = 4 -
branches/generator/Forms/UFormRules.lfm
r112 r114 1 1 object FormRules: TFormRules 2 Left = 6622 Left = 386 3 3 Height = 611 4 Top = 3694 Top = 221 5 5 Width = 857 6 6 Caption = 'Rules' 7 7 ClientHeight = 611 8 8 ClientWidth = 857 9 OnClose = FormClose 9 10 OnShow = FormShow 10 11 LCLVersion = '1.6.4.0' … … 33 34 BorderSpacing.Top = 3 34 35 Caption = 'ToolBar1' 36 EdgeInner = esNone 37 EdgeOuter = esNone 35 38 Images = Core.ImageList1 39 ParentShowHint = False 40 ShowHint = True 36 41 TabOrder = 0 42 Transparent = True 37 43 object ToolButton1: TToolButton 38 44 Left = 1 … … 107 113 object MenuItem1: TMenuItem 108 114 Action = AAdd 115 Bitmap.Data = { 116 36040000424D3604000000000000360000002800000010000000100000000100 117 2000000000000004000064000000640000000000000000000000000000000000 118 0000000000000000000000000000000000000000000000000000000000000000 119 0000000000000000000000000000000000000000000000000000000000000000 120 000000000000000000000000000000000000D4D4D4FFB2B2B2FFB2B2B2FFD4D4 121 D4FF000000000000000000000000000000000000000000000000000000000000 122 0000000000000000000000000000709B70FF004A00FF004800FF4E764EFFB2B2 123 B2FF000000000000000000000000000000000000000000000000000000000000 124 0000000000000000000000000000004E00FF00C800FF00C400FF004800FFB2B2 125 B2FF000000000000000000000000000000000000000000000000000000000000 126 0000000000000000000000000000005000FF00CA00FF00C600FF004A00FFB2B2 127 B2FF000000000000000000000000000000000000000000000000000000000000 128 0000000000000000000000000000005300FF00CE00FF00CA00FF004C00FFB2B2 129 B2FF00000000000000000000000000000000000000000000000000000000D4D4 130 D4FFB2B2B2FFB2B2B2FFB2B2B2FF005400FF00D200FF00CE00FF004E00FFB2B2 131 B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFD4D4D4FF0000000070A670FF005E 132 00FF005C00FF005A00FF005800FF005600FF00D600FF00D000FF005000FF004E 133 00FF004C00FF004A00FF004A00FF4E764EFFB2B2B2FF00000000006200FF8CFE 134 8CFF00EA00FF00E600FF00E200FF00DE00FF00DA00FF00D400FF00D000FF00CC 135 00FF00C800FF00C400FF00C200FF004800FFB2B2B2FF00000000006400FFECFF 136 ECFF8CFE8CFF8CFE8CFF8CFE8CFF8CFE8CFF00DE00FF00D900FF00D400FF00D0 137 00FF00CC00FF00C800FF00C400FF004A00FFD4D4D4FF0000000070A970FF0064 138 00FF006400FF006200FF006000FF006000FF8CFE8CFF00DD00FF005800FF0056 139 00FF005400FF005300FF005000FF709C70FF0000000000000000000000000000 140 0000000000000000000000000000006000FF8CFE8CFF00E000FF005A00FFB2B2 141 B2FF000000000000000000000000000000000000000000000000000000000000 142 0000000000000000000000000000006200FF8CFE8CFF00E500FF005C00FFB2B2 143 B2FF000000000000000000000000000000000000000000000000000000000000 144 0000000000000000000000000000006400FF8CFE8CFF00E800FF005E00FFB2B2 145 B2FF000000000000000000000000000000000000000000000000000000000000 146 0000000000000000000000000000006400FFECFFECFF8CFE8CFF006000FFD4D4 147 D4FF000000000000000000000000000000000000000000000000000000000000 148 000000000000000000000000000070A970FF006400FF006200FF70A670FF0000 149 0000000000000000000000000000000000000000000000000000 150 } 109 151 end 110 152 object MenuItem2: TMenuItem 111 153 Action = AModify 154 Bitmap.Data = { 155 36040000424D3604000000000000360000002800000010000000100000000100 156 2000000000000004000064000000640000000000000000000000986B37FF976A 157 36FF966935FF966734FF956633FF946532FF946531FF936430FF92622FFF9261 158 2EFF91602DFF90602CFF905F2BFF8F5D2AFF8E5C29FF8D5B28FF996C38FFF8F7 159 F6FFF8F7F5FFF7F6F5FFF6F6F4FFF6F5F3FFF5F5F3FFF5F4F2FFF4F3F1FFF4F3 160 F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F0EEFFF1F0EDFF8E5D29FF996D3AFFF9F8 161 F7FF959594FF878787FF9B9A9AFFF7F6F4FFF6F5F3FFF6F5F3FFF5F4F2FFF4F3 162 F1FFF4F3F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F1EEFF8F5E2AFF9A6E3BFFF9F9 163 F8FF7C7C7CFFC4C4C4FF878787FFF7F6F5FF7A7A7AFF787878FF747474FF7171 164 70FF6D6D6CFF696968FF656565FF616161FFF2F1EFFF905F2BFF9B6F3CFFFAF9 165 F8FFBEBEBDFF929292FFBCBCBBFFF8F7F6FFF7F7F5FFF7F6F4FFF6F5F4FFF6F5 166 F3FFF5F4F2FFF5F4F2FFF4F3F1FFF4F2F0FFF3F2F0FF91602DFF9C703DFFFAFA 167 F9FFFAF9F9FFF9F9F8FFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F5 168 F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FFF4F3F0FF92612EFF9D723EFFFBFB 169 FAFF9F9F9EFF7F7F7FFFAEAEADFFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6 170 F5FFF6F6F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FF92622FFF9D7340FFFCFB 171 FBFF818181FFC4C4C4FF8F8F8FFFFAF9F8FF7B7B7AFF797979FF757574FF7271 172 71FF6D6D6DFF696969FF666665FF626261FFF5F4F2FF936430FF9E7441FFFCFC 173 FCFFB5B5B5FF848484FFBEBDBDFFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FFF8F8 174 F6FFF8F7F5FFF7F6F5FFF7F6F4FFF6F5F3FFF6F5F3FF946531FF9F7542FFFDFD 175 FCFFFCFCFCFFFCFCFBFFFBFBFAFFFBFAFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8 176 F7FFF8F8F6FFF8F7F6FFF7F6F5FFF7F6F4FFF6F5F4FF956633FFA07643FFFEFD 177 FDFF8C8C8CFF525252FFA4A4A4FFFBFBFAFFFBFBFAFFFAFAF9FFFAF9F8FFF9F9 178 F8FFF9F8F7FFF8F8F6FFF8F7F6FFF7F7F5FFF7F6F4FF966734FFA17844FFFEFE 179 FEFF5F5F5FFF949494FF535353FFFCFCFBFF7B7B7BFF797979FF757575FF7272 180 72FF6E6E6EFF6A6A69FF666666FF626262FFF7F7F5FF966935FFA17946FFFFFF 181 FFFF878787FF5D5D5DFFA0A0A0FFFDFCFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFA 182 F9FFFAFAF9FFFAF9F8FFF9F8F7FFF8F8F7FFF8F7F6FF976A36FFA27A47FFFFFF 183 FFFFFFFFFFFFFEFEFEFFFEFEFEFFFDFDFDFFFDFDFCFFFCFCFBFFFCFBFBFFFBFB 184 FAFFFBFAF9FFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FF986B37FFA37B48FFBEA2 185 7FFFBEA17EFFBDA17DFFBDA07CFFBD9F7CFFBC9F7BFFBB9E7AFFBB9D7AFFBB9D 186 79FFBA9C78FFB99B78FFB99A77FFB89A76FFB89975FF996C39FFA37B48FFA37B 187 48FFA27A47FFA27946FFA17845FFA07744FFA07643FF9F7542FF9E7441FF9E73 188 40FF9D723FFF9C713EFF9C703DFF9B6F3CFF9A6E3BFF9A6D3AFF 189 } 112 190 end 113 191 object MenuItem3: TMenuItem 114 192 Action = ARemove 193 Bitmap.Data = { 194 36040000424D3604000000000000360000002800000010000000100000000100 195 2000000000000004000064000000640000000000000000000000000000000000 196 0000000000000000000000000000000000000000000000000000000000000000 197 0000000000000000000000000000000000000000000000000000000000000000 198 0000000000000000000000000000000000000000000000000000000000000000 199 0000000000000000000000000000000000003A3AE2FFC0C0C0FF000000000000 200 000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000 201 0000000000000000000000000000000000000000000000000000000000000000 202 0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000 203 00000000000000000000000000003A3AE2FFC0C0C0FF00000000000000000000 204 0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000 205 000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000 206 000000000000000000003838E0FF3838E0FF3838E0FFC0C0C0FF000000000000 207 0000000000003838E0FF3838E0FFC0C0C0FF0000000000000000000000000000 208 00000000000000000000000000003535DDFF3535DDFF3535DDFFC0C0C0FF0000 209 00003535DDFF3535DDFFC0C0C0FF000000000000000000000000000000000000 210 0000000000000000000000000000000000003232DAFF3232DAFF3232DAFF3232 211 DAFF3232DAFFC0C0C0FF00000000000000000000000000000000000000000000 212 000000000000000000000000000000000000000000002F2FD7FF2F2FD7FF2F2F 213 D7FFC0C0C0FF0000000000000000000000000000000000000000000000000000 214 0000000000000000000000000000000000002C2CD4FF2C2CD4FF2C2CD4FF2C2C 215 D4FF2C2CD4FFC0C0C0FF00000000000000000000000000000000000000000000 216 00000000000000000000000000002929D1FF2929D1FF2929D1FFC0C0C0FF0000 217 00002929D1FFC0C0C0FF00000000000000000000000000000000000000000000 218 0000000000002626CEFF2626CEFF2626CEFF2626CEFFC0C0C0FF000000000000 219 0000000000002626CEFF2626CEFFC0C0C0FF0000000000000000000000000000 220 00002020C8FF2020C8FF2020C8FF2020C8FFC0C0C0FF00000000000000000000 221 000000000000000000002020C8FF2020C8FFC0C0C0FF00000000000000000000 222 00001818C0FF1818C0FFC0C0C0FF000000000000000000000000000000000000 223 00000000000000000000000000001818C0FF1818C0FFC0C0C0FF000000000000 224 0000000000000000000000000000000000000000000000000000000000000000 225 0000000000000000000000000000000000000000000000000000000000000000 226 0000000000000000000000000000000000000000000000000000000000000000 227 0000000000000000000000000000000000000000000000000000 228 } 115 229 end 116 230 end -
branches/generator/Forms/UFormRules.pas
r112 r114 31 31 procedure AModifyExecute(Sender: TObject); 32 32 procedure ARemoveExecute(Sender: TObject); 33 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 33 34 procedure FormShow(Sender: TObject); 34 35 procedure ListView1Data(Sender: TObject; Item: TListItem); … … 54 55 55 56 uses 56 UFormRule ;57 UFormRule, UCore; 57 58 58 59 { TFormRules } … … 60 61 procedure TFormRules.FormShow(Sender: TObject); 61 62 begin 63 Core.PersistentForm1.Load(Self); 62 64 ReloadList; 63 65 UpdateInterface; … … 98 100 Rules.Remove(TRule(Item.Data)); 99 101 ReloadList; 102 end; 103 104 procedure TFormRules.FormClose(Sender: TObject; var CloseAction: TCloseAction); 105 begin 106 Core.PersistentForm1.Save(Self); 100 107 end; 101 108
Note:
See TracChangeset
for help on using the changeset viewer.
