Changeset 190 for branches/generator/Forms
- Timestamp:
- May 16, 2019, 11:45:39 PM (6 years ago)
- Location:
- branches/generator/Forms
- Files:
-
- 8 added
- 8 edited
-
UFormGrammer.lfm (modified) (1 diff)
-
UFormGrammer.lrj (added)
-
UFormLookupTable.lfm (modified) (1 diff)
-
UFormLookupTable.lrj (added)
-
UFormLookupTables.lfm (modified) (8 diffs)
-
UFormLookupTables.lrj (added)
-
UFormMain.lfm (modified) (12 diffs)
-
UFormMain.lrj (added)
-
UFormRule.lfm (modified) (3 diffs)
-
UFormRule.lrj (added)
-
UFormRuleItem.lfm (modified) (6 diffs)
-
UFormRuleItem.lrj (added)
-
UFormRuleItems.lfm (modified) (6 diffs)
-
UFormRuleItems.lrj (added)
-
UFormRules.lfm (modified) (8 diffs)
-
UFormRules.lrj (added)
Legend:
- Unmodified
- Added
- Removed
-
branches/generator/Forms/UFormGrammer.lfm
r167 r190 1 1 object FormGrammer: TFormGrammer 2 2 Left = 500 3 Height = 3463 Height = 415 4 4 Top = 341 5 Width = 5485 Width = 658 6 6 Caption = 'Grammer settings' 7 ClientHeight = 3468 ClientWidth = 5489 DesignTimePPI = 1 207 ClientHeight = 415 8 ClientWidth = 658 9 DesignTimePPI = 144 10 10 OnClose = FormClose 11 11 OnShow = FormShow 12 LCLVersion = ' 1.8.2.0'12 LCLVersion = '2.0.2.0' 13 13 object Label1: TLabel 14 Left = 1 515 Height = 2 016 Top = 2 217 Width = 6314 Left = 18 15 Height = 26 16 Top = 26 17 Width = 84 18 18 Caption = 'Start rule:' 19 19 ParentColor = False 20 ParentFont = False 20 21 end 21 22 object ComboBoxStartRule: TComboBox 22 Left = 168 23 Height = 28 24 Top = 22 25 Width = 272 26 ItemHeight = 20 23 Left = 202 24 Height = 42 25 Top = 26 26 Width = 326 27 ItemHeight = 0 28 ParentFont = False 27 29 Style = csDropDownList 28 30 TabOrder = 0 29 31 end 30 32 object ButtonOk: TButton 31 Left = 29432 Height = 2533 Top = 3 0734 Width = 7533 Left = 353 34 Height = 30 35 Top = 368 36 Width = 90 35 37 Anchors = [akLeft, akBottom] 36 38 Caption = 'OK' 37 39 ModalResult = 1 40 ParentFont = False 38 41 TabOrder = 1 39 42 end 40 43 object ButtonCancel: TButton 41 Left = 16842 Height = 2543 Top = 3 0744 Width = 7544 Left = 202 45 Height = 30 46 Top = 368 47 Width = 90 45 48 Anchors = [akLeft, akBottom] 46 49 Caption = 'Cancel' 47 50 ModalResult = 2 51 ParentFont = False 48 52 TabOrder = 2 49 53 end 50 54 object Label2: TLabel 51 Left = 1 652 Height = 2 053 Top = 8054 Width = 1 1355 Left = 19 56 Height = 26 57 Top = 96 58 Width = 147 55 59 Caption = 'White space rule:' 56 60 ParentColor = False 61 ParentFont = False 57 62 end 58 63 object ComboBoxWhiteSpaceRule: TComboBox 59 Left = 168 60 Height = 28 61 Top = 72 62 Width = 272 63 ItemHeight = 20 64 Left = 202 65 Height = 42 66 Top = 86 67 Width = 326 68 ItemHeight = 0 69 ParentFont = False 64 70 Style = csDropDownList 65 71 TabOrder = 3 -
branches/generator/Forms/UFormLookupTable.lfm
r167 r190 1 1 object FormLookupTable: TFormLookupTable 2 2 Left = 576 3 Height = 2733 Height = 328 4 4 Top = 547 5 Width = 5955 Width = 714 6 6 Caption = 'Lookup table' 7 ClientHeight = 2738 ClientWidth = 5959 DesignTimePPI = 1 207 ClientHeight = 328 8 ClientWidth = 714 9 DesignTimePPI = 144 10 10 OnClose = FormClose 11 11 OnShow = FormShow 12 LCLVersion = ' 1.8.2.0'12 LCLVersion = '2.0.2.0' 13 13 object Label1: TLabel 14 Left = 1 515 Height = 2 016 Top = 1717 Width = 4314 Left = 18 15 Height = 26 16 Top = 20 17 Width = 56 18 18 Caption = 'Name:' 19 19 ParentColor = False 20 ParentFont = False 20 21 end 21 22 object EditName: TEdit 22 Left = 120 23 Height = 28 24 Top = 8 25 Width = 160 23 Left = 144 24 Height = 43 25 Top = 10 26 Width = 192 27 ParentFont = False 26 28 TabOrder = 0 27 29 end 28 30 object ButtonCancel: TButton 29 Left = 18430 Height = 2531 Top = 2 3632 Width = 7531 Left = 221 32 Height = 30 33 Top = 284 34 Width = 90 33 35 Anchors = [akLeft, akBottom] 34 36 Caption = 'Cancel' 35 37 ModalResult = 2 38 ParentFont = False 36 39 TabOrder = 1 37 40 end 38 41 object ButtonOk: TButton 39 Left = 39240 Height = 2541 Top = 2 3642 Width = 7542 Left = 470 43 Height = 30 44 Top = 284 45 Width = 90 43 46 Anchors = [akLeft, akBottom] 44 47 Caption = 'Ok' 45 48 ModalResult = 1 49 ParentFont = False 46 50 TabOrder = 2 47 51 end -
branches/generator/Forms/UFormLookupTables.lfm
r137 r190 1 1 object FormLookupTables: TFormLookupTables 2 2 Left = 521 3 Height = 4243 Height = 636 4 4 Top = 323 5 Width = 5735 Width = 860 6 6 Caption = 'Lookup tables' 7 ClientHeight = 424 8 ClientWidth = 573 7 ClientHeight = 636 8 ClientWidth = 860 9 DesignTimePPI = 144 9 10 OnClose = FormClose 10 11 OnCreate = FormCreate 11 12 OnShow = FormShow 12 LCLVersion = ' 1.8.0.4'13 LCLVersion = '2.0.2.0' 13 14 object ListView1: TListView 14 Left = 415 Height = 38416 Top = 417 Width = 56515 Left = 6 16 Height = 576 17 Top = 6 18 Width = 848 18 19 Align = alClient 19 BorderSpacing.Around = 420 BorderSpacing.Around = 6 20 21 Columns = < 21 22 item 22 23 Caption = 'Name' 23 Width = 54524 Width = 833 24 25 end> 25 26 MultiSelect = True 26 27 OwnerData = True 28 ParentFont = False 27 29 PopupMenu = PopupMenu1 28 30 ReadOnly = True … … 37 39 object CoolBar1: TCoolBar 38 40 Left = 0 39 Height = 3240 Top = 39241 Width = 57341 Height = 48 42 Top = 588 43 Width = 860 42 44 Align = alBottom 43 45 Bands = < … … 47 49 end> 48 50 Images = Core.ImageList1 51 ParentFont = False 49 52 object ToolBar1: TToolBar 50 53 AnchorSideLeft.Control = CoolBar1 51 54 AnchorSideTop.Control = CoolBar1 52 55 Left = 24 53 Height = 2256 Height = 33 54 57 Top = 5 55 Width = 7058 Width = 106 56 59 Align = alNone 57 60 AutoSize = True … … 61 64 EdgeOuter = esNone 62 65 Images = Core.ImageList1 66 ParentFont = False 63 67 ParentShowHint = False 64 68 ShowHint = True … … 71 75 end 72 76 object ToolButton2: TToolButton 73 Left = 2477 Left = 36 74 78 Top = 0 75 79 Action = AModify 76 80 end 77 81 object ToolButton3: TToolButton 78 Left = 4782 Left = 71 79 83 Top = 0 80 84 Action = ARemove … … 84 88 object ActionList1: TActionList 85 89 Images = Core.ImageList1 86 left = 13687 top = 17690 left = 204 91 top = 264 88 92 object AAdd: TAction 89 93 Caption = 'Add' … … 109 113 object PopupMenu1: TPopupMenu 110 114 Images = Core.ImageList1 111 left = 288112 top = 176115 left = 432 116 top = 264 113 117 object MenuItem1: TMenuItem 114 118 Action = AAdd … … 127 131 Column = 0 128 132 Order = soUp 129 left = 408130 top = 176133 left = 612 134 top = 264 131 135 end 132 136 end -
branches/generator/Forms/UFormMain.lfm
r167 r190 1 1 object FormMain: TFormMain 2 2 Left = 376 3 Height = 6783 Height = 814 4 4 Top = 202 5 Width = 1 0505 Width = 1260 6 6 Caption = 'Language generator' 7 ClientHeight = 6538 ClientWidth = 1 0509 DesignTimePPI = 1 207 ClientHeight = 780 8 ClientWidth = 1260 9 DesignTimePPI = 144 10 10 Menu = MainMenu1 11 11 OnClose = FormClose 12 12 OnCloseQuery = FormCloseQuery 13 13 OnShow = FormShow 14 LCLVersion = ' 1.8.2.0'14 LCLVersion = '2.0.2.0' 15 15 WindowState = wsMaximized 16 16 object CoolBar1: TCoolBar 17 17 Left = 0 18 Height = 3518 Height = 42 19 19 Top = 0 20 Width = 1 05020 Width = 1260 21 21 Bands = < 22 22 item … … 25 25 end> 26 26 Images = Core.ImageList1 27 ParentFont = False 27 28 object ToolBar1: TToolBar 28 29 AnchorSideLeft.Control = CoolBar1 29 30 AnchorSideTop.Control = CoolBar1 30 31 Left = 24 31 Height = 2832 Height = 33 32 33 Top = 5 33 Width = 19834 Width = 239 34 35 Align = alNone 35 36 AutoSize = True … … 39 40 EdgeOuter = esNone 40 41 Images = Core.ImageList1 42 ParentFont = False 41 43 ParentShowHint = False 42 44 ShowHint = True … … 44 46 Transparent = True 45 47 object ToolButton2: TToolButton 46 Left = 1 4048 Left = 169 47 49 Top = 0 48 50 Action = ABuildCompiler … … 54 56 end 55 57 object ToolButton4: TToolButton 56 Left = 3 058 Left = 36 57 59 Top = 0 58 60 Action = AProjectOpen … … 61 63 end 62 64 object ToolButton5: TToolButton 63 Left = 7465 Left = 89 64 66 Top = 0 65 67 Action = AProjectSave 66 68 end 67 69 object ToolButton6: TToolButton 68 Left = 1 3269 Height = 2870 Left = 159 71 Height = 33 70 72 Top = 0 71 73 Style = tbsSeparator 72 74 end 73 75 object ToolButton1: TToolButton 74 Left = 1 0376 Left = 124 75 77 Top = 0 76 78 Action = AGrammerSettings 77 79 end 78 80 object ToolButton7: TToolButton 79 Left = 16981 Left = 204 80 82 Top = 0 81 83 Action = ALookupTables … … 85 87 object PageControl1: TPageControl 86 88 Left = 0 87 Height = 61888 Top = 3589 Width = 1 05089 Height = 738 90 Top = 42 91 Width = 1260 90 92 ActivePage = TabSheetEbnf 91 93 Align = alClient 94 ParentFont = False 92 95 TabIndex = 2 93 96 TabOrder = 1 94 97 object TabSheetRules: TTabSheet 95 98 Caption = 'Rules' 99 ParentFont = False 96 100 end 97 101 object TabSheetBnf: TTabSheet 98 102 Caption = 'BNF' 99 ClientHeight = 571 100 ClientWidth = 1044 103 ClientHeight = 698 104 ClientWidth = 1250 105 ParentFont = False 101 106 object MemoBnf: TMemo 102 107 Left = 0 … … 105 110 Width = 1044 106 111 Align = alClient 112 ParentFont = False 107 113 ReadOnly = True 108 114 ScrollBars = ssAutoBoth … … 112 118 object TabSheetEbnf: TTabSheet 113 119 Caption = 'EBNF' 114 ClientHeight = 585 115 ClientWidth = 1042 120 ClientHeight = 698 121 ClientWidth = 1250 122 ParentFont = False 116 123 object MemoEbnf: TMemo 117 124 Left = 0 118 Height = 585119 Top = 0 120 Width = 1 042125 Height = 698 126 Top = 0 127 Width = 1250 121 128 Align = alClient 129 ParentFont = False 122 130 ReadOnly = True 123 131 ScrollBars = ssAutoBoth … … 128 136 object MainMenu1: TMainMenu 129 137 Images = Core.ImageList1 130 left = 3 04131 top = 2 29138 left = 365 139 top = 275 132 140 object MenuItem2: TMenuItem 133 141 Caption = 'File' … … 179 187 object ActionList1: TActionList 180 188 Images = Core.ImageList1 181 left = 428182 top = 2 29189 left = 514 190 top = 275 183 191 object ARules: TAction 184 192 Caption = 'Rules' … … 247 255 DefaultExt = '.grm' 248 256 Filter = 'Grammer (.grm)|*.grm|All files|*.*' 249 left = 748250 top = 188257 left = 898 258 top = 226 251 259 end 252 260 object SaveDialog1: TSaveDialog 253 261 DefaultExt = '.grm' 254 262 Filter = 'Grammer (.grm)|*.grm|All files|*.*' 255 left = 587256 top = 4 14263 left = 704 264 top = 497 257 265 end 258 266 object LastOpenedList1: TLastOpenedList 259 267 MaxCount = 10 260 268 OnChange = LastOpenedList1Change 261 left = 1 55262 top = 1 31269 left = 186 270 top = 157 263 271 end 264 272 object PopupMenuOpenRecent: TPopupMenu 265 left = 1 49266 top = 2 34273 left = 179 274 top = 281 267 275 end 268 276 end -
branches/generator/Forms/UFormRule.lfm
r167 r190 1 1 object FormRule: TFormRule 2 2 Left = 507 3 Height = 5143 Height = 617 4 4 Top = 293 5 Width = 6635 Width = 796 6 6 ActiveControl = ButtonOk 7 7 Caption = 'Rule' 8 ClientHeight = 5149 ClientWidth = 66310 DesignTimePPI = 1 208 ClientHeight = 617 9 ClientWidth = 796 10 DesignTimePPI = 144 11 11 OnClose = FormClose 12 12 OnCreate = FormCreate 13 13 OnDestroy = FormDestroy 14 14 OnShow = FormShow 15 LCLVersion = ' 1.8.2.0'15 LCLVersion = '2.0.2.0' 16 16 object ButtonOk: TButton 17 Left = 37618 Height = 2519 Top = 48020 Width = 7517 Left = 451 18 Height = 30 19 Top = 576 20 Width = 90 21 21 Anchors = [akLeft, akBottom] 22 22 Caption = 'Ok' 23 23 ModalResult = 1 24 ParentFont = False 24 25 TabOrder = 0 25 26 end 26 27 object ButtonCancel: TButton 27 Left = 16828 Height = 2529 Top = 48030 Width = 7528 Left = 202 29 Height = 30 30 Top = 576 31 Width = 90 31 32 Anchors = [akLeft, akBottom] 32 33 Caption = 'Cancel' 33 34 ModalResult = 2 35 ParentFont = False 34 36 TabOrder = 1 35 37 end 36 38 object Label1: TLabel 37 Left = 1 638 Height = 2 039 Top = 1 640 Width = 4339 Left = 19 40 Height = 26 41 Top = 19 42 Width = 56 41 43 Caption = 'Name:' 42 44 ParentColor = False 45 ParentFont = False 43 46 end 44 47 object PageControl1: TPageControl 45 Left = 846 Height = 39247 Top = 8048 Width = 64048 Left = 10 49 Height = 471 50 Top = 96 51 Width = 768 49 52 ActivePage = TabSheet1 50 53 Anchors = [akTop, akLeft, akRight, akBottom] 54 ParentFont = False 51 55 TabIndex = 0 52 56 TabOrder = 2 53 57 object TabSheet1: TTabSheet 54 58 Caption = 'Items' 59 ParentFont = False 55 60 end 56 61 object TabSheet2: TTabSheet 57 62 Caption = 'Links' 63 ParentFont = False 58 64 end 59 65 object TabSheetUsedBy: TTabSheet 60 66 Caption = 'Used by' 61 ClientHeight = 351 62 ClientWidth = 634 67 ClientHeight = 431 68 ClientWidth = 758 69 ParentFont = False 63 70 object ListView1: TListView 64 71 Left = 0 … … 70 77 item 71 78 Caption = 'Name' 72 Width = 61279 Width = 734 73 80 end> 74 81 OwnerData = True 82 ParentFont = False 75 83 ReadOnly = True 76 84 RowSelect = True … … 82 90 end 83 91 object EditName: TEdit 84 Left = 135 85 Height = 28 86 Top = 11 87 Width = 433 92 Left = 162 93 Height = 43 94 Top = 13 95 Width = 520 96 ParentFont = False 88 97 TabOrder = 3 89 98 end 90 99 object CheckBoxCreateNode: TCheckBox 91 Left = 1 692 Height = 2493 Top = 4894 Width = 1 52100 Left = 19 101 Height = 30 102 Top = 58 103 Width = 191 95 104 Caption = 'Create source node' 105 ParentFont = False 96 106 TabOrder = 4 97 107 end 98 108 object Label2: TLabel 99 Left = 3 12100 Height = 2 0101 Top = 52102 Width = 37109 Left = 374 110 Height = 26 111 Top = 62 112 Width = 48 103 113 Caption = 'Level:' 104 114 ParentColor = False 115 ParentFont = False 105 116 end 106 117 object ComboBoxLevel: TComboBox 107 Left = 376 108 Height = 28 109 Top = 48 110 Width = 125 111 ItemHeight = 20 118 Left = 451 119 Height = 42 120 Top = 58 121 Width = 150 122 ItemHeight = 0 123 ParentFont = False 112 124 Style = csDropDownList 113 125 TabOrder = 5 -
branches/generator/Forms/UFormRuleItem.lfm
r167 r190 1 1 object FormRuleItem: TFormRuleItem 2 2 Left = 474 3 Height = 5173 Height = 620 4 4 Top = 386 5 Width = 7195 Width = 863 6 6 Caption = 'Rule item' 7 ClientHeight = 5178 ClientWidth = 7199 DesignTimePPI = 1 207 ClientHeight = 620 8 ClientWidth = 863 9 DesignTimePPI = 144 10 10 OnClose = FormClose 11 11 OnCreate = FormCreate 12 12 OnDestroy = FormDestroy 13 13 OnShow = FormShow 14 LCLVersion = ' 1.8.2.0'14 LCLVersion = '2.0.2.0' 15 15 object ButtonCancel: TButton 16 Left = 17617 Height = 2518 Top = 47919 Width = 7516 Left = 211 17 Height = 30 18 Top = 574 19 Width = 90 20 20 Anchors = [akLeft, akBottom] 21 21 Caption = 'Cancel' 22 22 ModalResult = 2 23 ParentFont = False 23 24 TabOrder = 0 24 25 end 25 26 object ButtonOk: TButton 26 Left = 35227 Height = 2528 Top = 47929 Width = 7527 Left = 422 28 Height = 30 29 Top = 574 30 Width = 90 30 31 Anchors = [akLeft, akBottom] 31 32 Caption = 'Ok' 32 33 ModalResult = 1 34 ParentFont = False 33 35 TabOrder = 1 34 36 end 35 37 object ComboBoxType: TComboBox 36 Left = 1 6037 Height = 2838 Top = 1 639 Width = 4 0040 ItemHeight = 2038 Left = 192 39 Height = 38 40 Top = 19 41 Width = 480 42 ItemHeight = 0 41 43 Items.Strings = ( 42 44 'Terminal' … … 46 48 ) 47 49 OnChange = ComboBoxTypeChange 50 ParentFont = False 48 51 Style = csDropDownList 49 52 TabOrder = 2 50 53 end 51 54 object Label2: TLabel 52 Left = 1 653 Height = 2 054 Top = 2 455 Width = 3555 Left = 19 56 Height = 26 57 Top = 29 58 Width = 45 56 59 Caption = 'Type:' 57 60 ParentColor = False 61 ParentFont = False 58 62 end 59 63 object PageControl1: TPageControl 60 Left = 1 661 Height = 38362 Top = 8863 Width = 69564 Left = 19 65 Height = 459 66 Top = 106 67 Width = 834 64 68 ActivePage = TabSheetNonTerminal 65 69 Anchors = [akTop, akLeft, akRight, akBottom] 70 ParentFont = False 66 71 ShowTabs = False 67 72 TabIndex = 1 … … 69 74 object TabSheetTerminal: TTabSheet 70 75 Caption = 'Terminal' 71 ClientHeight = 260 72 ClientWidth = 626 76 ClientHeight = 455 77 ClientWidth = 824 78 ParentFont = False 73 79 object EditTerminal: TEdit 74 Left = 1 5280 Left = 182 75 81 Height = 33 76 Top = 1 677 Width = 4 0082 Top = 19 83 Width = 480 78 84 OnKeyPress = EditTerminalKeyPress 85 ParentFont = False 79 86 TabOrder = 0 80 87 end 81 88 object LabelTerminal: TLabel 82 Left = 889 Left = 10 83 90 Height = 23 84 Top = 1 691 Top = 19 85 92 Width = 70 86 93 Caption = 'Terminal:' 87 94 ParentColor = False 95 ParentFont = False 88 96 end 89 97 end 90 98 object TabSheetNonTerminal: TTabSheet 91 99 Caption = 'NonTerminal' 92 ClientHeight = 375 93 ClientWidth = 687 100 ClientHeight = 455 101 ClientWidth = 824 102 ParentFont = False 94 103 object LabelNonTerminal: TLabel 95 Left = 896 Height = 2 097 Top = 898 Width = 92104 Left = 10 105 Height = 26 106 Top = 10 107 Width = 119 99 108 Caption = 'Non-terminal:' 100 109 ParentColor = False 110 ParentFont = False 101 111 end 102 112 object ListBoxNonTerminals: TListBox 103 Left = 8104 Height = 3 25105 Top = 4 0106 Width = 3 28113 Left = 10 114 Height = 395 115 Top = 48 116 Width = 394 107 117 Anchors = [akTop, akLeft, akBottom] 108 118 ItemHeight = 0 109 ScrollWidth = 302 119 ParentFont = False 120 ScrollWidth = 392 110 121 TabOrder = 0 122 TopIndex = -1 111 123 end 112 124 object CheckBoxLookupTable: TCheckBox 113 Left = 352114 Height = 24115 Top = 8116 Width = 1 36125 Left = 422 126 Height = 30 127 Top = 10 128 Width = 170 117 129 Caption = 'Use lookup table' 118 130 OnChange = CheckBoxLookupTableChange 131 ParentFont = False 119 132 TabOrder = 1 120 133 end 121 134 object ListBoxLookupTable: TListBox 122 Left = 352123 Height = 291124 Top = 4 0125 Width = 3 09135 Left = 422 136 Height = 354 137 Top = 48 138 Width = 371 126 139 Anchors = [akTop, akLeft, akRight, akBottom] 127 140 ItemHeight = 0 128 ScrollWidth = 246 141 ParentFont = False 142 ScrollWidth = 369 129 143 TabOrder = 2 144 TopIndex = -1 130 145 end 131 146 object Label1: TLabel 132 Left = 352133 Height = 2 0134 Top = 341135 Width = 78147 Left = 422 148 Height = 26 149 Top = 412 150 Width = 103 136 151 Anchors = [akLeft, akBottom] 137 152 Caption = 'Item action:' 138 153 ParentColor = False 154 ParentFont = False 139 155 end 140 156 object ComboBoxLookupTableAction: TComboBox 141 Left = 464142 Height = 28143 Top = 341144 Width = 1 34157 Left = 557 158 Height = 38 159 Top = 410 160 Width = 161 145 161 Anchors = [akLeft, akBottom] 146 ItemHeight = 20162 ItemHeight = 0 147 163 ItemIndex = 0 148 164 Items.Strings = ( … … 150 166 'Reference' 151 167 ) 168 ParentFont = False 152 169 Style = csDropDownList 153 170 TabOrder = 3 … … 157 174 object TabSheetSubItems: TTabSheet 158 175 Caption = 'SubItems' 176 ParentFont = False 159 177 end 160 178 object TabSheetTerminalRange: TTabSheet 161 179 Caption = 'Terminal range' 162 ClientHeight = 260 163 ClientWidth = 626 180 ClientHeight = 455 181 ClientWidth = 824 182 ParentFont = False 164 183 object LabelTerminal1: TLabel 165 Left = 8184 Left = 10 166 185 Height = 23 167 Top = 1 6186 Top = 19 168 187 Width = 112 169 188 Caption = 'Terminal from:' 170 189 ParentColor = False 190 ParentFont = False 171 191 end 172 192 object EditTerminalFrom: TEdit 173 Left = 1 52193 Left = 182 174 194 Height = 33 175 Top = 1 6176 Width = 4 00195 Top = 19 196 Width = 480 177 197 OnKeyPress = EditTerminalKeyPress 198 ParentFont = False 178 199 TabOrder = 0 179 200 end 180 201 object LabelTerminal2: TLabel 181 Left = 8202 Left = 10 182 203 Height = 23 183 Top = 56204 Top = 67 184 205 Width = 90 185 206 Caption = 'Terminal to:' 186 207 ParentColor = False 208 ParentFont = False 187 209 end 188 210 object EditTerminalTo: TEdit 189 Left = 1 52211 Left = 182 190 212 Height = 33 191 Top = 56192 Width = 4 00213 Top = 67 214 Width = 480 193 215 OnKeyPress = EditTerminalKeyPress 216 ParentFont = False 194 217 TabOrder = 1 195 218 end … … 197 220 end 198 221 object CheckBoxOptional: TCheckBox 199 Left = 1 6200 Height = 24201 Top = 56202 Width = 82222 Left = 19 223 Height = 30 224 Top = 67 225 Width = 100 203 226 Caption = 'Optional' 227 ParentFont = False 204 228 TabOrder = 4 205 229 end 206 230 object CheckBoxRepetitive: TCheckBox 207 Left = 184208 Height = 24209 Top = 56210 Width = 91231 Left = 221 232 Height = 30 233 Top = 67 234 Width = 111 211 235 Caption = 'Repetitive' 236 ParentFont = False 212 237 TabOrder = 5 213 238 end 214 239 object CheckBoxAnyExcept: TCheckBox 215 Left = 344216 Height = 24217 Top = 56218 Width = 97240 Left = 413 241 Height = 30 242 Top = 67 243 Width = 120 219 244 Caption = 'Any except' 245 ParentFont = False 220 246 TabOrder = 6 221 247 end 222 248 object CheckBoxEscapedString: TCheckBox 223 Left = 488224 Height = 24225 Top = 56226 Width = 1 26249 Left = 586 250 Height = 30 251 Top = 67 252 Width = 160 227 253 Caption = 'Escaped strings' 254 ParentFont = False 228 255 TabOrder = 7 229 256 end -
branches/generator/Forms/UFormRuleItems.lfm
r136 r190 1 1 object FormRuleItems: TFormRuleItems 2 2 Left = 539 3 Height = 4673 Height = 700 4 4 Top = 316 5 Width = 6365 Width = 954 6 6 Caption = 'Rule items' 7 ClientHeight = 467 8 ClientWidth = 636 7 ClientHeight = 700 8 ClientWidth = 954 9 DesignTimePPI = 144 9 10 OnCreate = FormCreate 10 11 OnShow = FormShow 11 LCLVersion = ' 1.8.0.4'12 LCLVersion = '2.0.2.0' 12 13 object ListView1: TListView 13 Left = 814 Height = 38415 Top = 4816 Width = 62414 Left = 12 15 Height = 576 16 Top = 72 17 Width = 936 17 18 Anchors = [akTop, akLeft, akRight, akBottom] 18 19 Columns = < 19 20 item 20 21 Caption = 'Name' 21 Width = 60422 Width = 921 22 23 end> 23 24 MultiSelect = True 24 25 OwnerData = True 26 ParentFont = False 25 27 PopupMenu = PopupMenu1 26 28 ReadOnly = True … … 35 37 object ToolBar1: TToolBar 36 38 Left = 0 37 Height = 2638 Top = 44139 Width = 63639 Height = 39 40 Top = 661 41 Width = 954 40 42 Align = alBottom 41 43 Images = Core.ImageList1 44 ParentFont = False 42 45 ParentShowHint = False 43 46 ShowHint = True … … 49 52 end 50 53 object ToolButton2: TToolButton 51 Left = 3 054 Left = 36 52 55 Top = 2 53 56 Action = AModify 54 57 end 55 58 object ToolButton3: TToolButton 56 Left = 5959 Left = 71 57 60 Top = 2 58 61 Action = ARemove 59 62 end 60 63 object ToolButton4: TToolButton 61 Left = 8864 Left = 106 62 65 Top = 2 63 66 Action = AMoveUp 64 67 end 65 68 object ToolButton5: TToolButton 66 Left = 1 1769 Left = 141 67 70 Top = 2 68 71 Action = AMoveDown … … 70 73 end 71 74 object Label1: TLabel 72 Left = 1 073 Height = 2 374 Top = 1 075 Width = 7575 Left = 15 76 Height = 26 77 Top = 15 78 Width = 82 76 79 Caption = 'Operator:' 77 80 ParentColor = False 81 ParentFont = False 78 82 end 79 83 object ComboBoxOperator: TComboBox 80 Left = 15381 Height = 3 382 Top = 983 Width = 23184 Left = 230 85 Height = 38 86 Top = 14 87 Width = 346 84 88 ItemHeight = 0 85 89 Items.Strings = ( … … 88 92 ) 89 93 OnChange = ComboBoxOperatorChange 94 ParentFont = False 90 95 Style = csDropDownList 91 96 TabOrder = 2 92 97 end 93 98 object CheckBoxWhiteSpace: TCheckBox 94 Left = 40895 Height = 2796 Top = 1 097 Width = 1 6199 Left = 612 100 Height = 30 101 Top = 15 102 Width = 181 98 103 Caption = 'With white spaces' 104 ParentFont = False 99 105 TabOrder = 3 100 106 end 101 107 object PopupMenu1: TPopupMenu 102 108 Images = Core.ImageList1 103 left = 146104 top = 215109 left = 219 110 top = 323 105 111 object MenuItem1: TMenuItem 106 112 Action = AAdd … … 121 127 object ActionList1: TActionList 122 128 Images = Core.ImageList1 123 left = 375124 top = 215129 left = 563 130 top = 323 125 131 object AAdd: TAction 126 132 Caption = 'Add' -
branches/generator/Forms/UFormRules.lfm
r137 r190 1 1 object FormRules: TFormRules 2 2 Left = 348 3 Height = 6113 Height = 916 4 4 Top = 230 5 Width = 8575 Width = 1286 6 6 Caption = 'Rules' 7 ClientHeight = 611 8 ClientWidth = 857 7 ClientHeight = 916 8 ClientWidth = 1286 9 DesignTimePPI = 144 9 10 OnClose = FormClose 10 11 OnCreate = FormCreate 11 12 OnShow = FormShow 12 LCLVersion = ' 1.8.0.4'13 LCLVersion = '2.0.2.0' 13 14 object CoolBar1: TCoolBar 14 15 Left = 0 15 Height = 3216 Top = 57917 Width = 85716 Height = 48 17 Top = 868 18 Width = 1286 18 19 Align = alBottom 19 20 Bands = < … … 23 24 end> 24 25 Images = Core.ImageList1 26 ParentFont = False 25 27 object ToolBar1: TToolBar 26 28 AnchorSideLeft.Control = CoolBar1 27 29 AnchorSideTop.Control = CoolBar1 28 30 Left = 24 29 Height = 2831 Height = 33 30 32 Top = 5 31 Width = 8833 Width = 106 32 34 Align = alNone 33 35 AutoSize = True … … 37 39 EdgeOuter = esNone 38 40 Images = Core.ImageList1 41 ParentFont = False 39 42 ParentShowHint = False 40 43 ShowHint = True … … 47 50 end 48 51 object ToolButton2: TToolButton 49 Left = 3 052 Left = 36 50 53 Top = 0 51 54 Action = AModify 52 55 end 53 56 object ToolButton3: TToolButton 54 Left = 5957 Left = 71 55 58 Top = 0 56 59 Action = ARemove … … 59 62 end 60 63 object ListView1: TListView 61 Left = 462 Height = 57163 Top = 464 Width = 84964 Left = 6 65 Height = 856 66 Top = 6 67 Width = 1274 65 68 Align = alClient 66 BorderSpacing.Around = 469 BorderSpacing.Around = 6 67 70 Columns = < 68 71 item 69 72 Caption = 'Name' 70 Width = 20073 Width = 300 71 74 end 72 75 item 73 76 Caption = 'Node' 74 Width = 8077 Width = 120 75 78 end 76 79 item 77 80 Caption = 'Items' 78 Width = 40081 Width = 600 79 82 end 80 83 item 81 84 Caption = 'Char length' 82 Width = 8085 Width = 120 83 86 end 84 87 item 85 88 Caption = 'Level' 86 Width = 7089 Width = 119 87 90 end> 88 91 MultiSelect = True 89 92 OwnerData = True 93 ParentFont = False 90 94 PopupMenu = PopupMenu1 91 95 ReadOnly = True … … 100 104 object ActionList1: TActionList 101 105 Images = Core.ImageList1 102 left = 248103 top = 212106 left = 372 107 top = 318 104 108 object AAdd: TAction 105 109 Caption = 'Add' … … 125 129 object PopupMenu1: TPopupMenu 126 130 Images = Core.ImageList1 127 left = 427128 top = 212131 left = 641 132 top = 318 129 133 object MenuItem1: TMenuItem 130 134 Action = AAdd … … 143 147 Column = 0 144 148 Order = soUp 145 left = 574146 top = 212149 left = 861 150 top = 318 147 151 end 148 152 end
Note:
See TracChangeset
for help on using the changeset viewer.
