Changeset 129 for branches/generator/Forms
- Timestamp:
- Dec 19, 2017, 4:56:34 PM (7 years ago)
- Location:
- branches/generator/Forms
- Files:
-
- 12 edited
-
UFormGrammer.lfm (modified) (1 diff)
-
UFormGrammer.pas (modified) (1 diff)
-
UFormMain.lfm (modified) (2 diffs)
-
UFormMain.pas (modified) (3 diffs)
-
UFormRule.lfm (modified) (2 diffs)
-
UFormRule.pas (modified) (6 diffs)
-
UFormRuleItem.lfm (modified) (1 diff)
-
UFormRuleItem.pas (modified) (1 diff)
-
UFormRuleItems.lfm (modified) (2 diffs)
-
UFormRuleItems.pas (modified) (1 diff)
-
UFormRules.lfm (modified) (3 diffs)
-
UFormRules.pas (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/generator/Forms/UFormGrammer.lfm
r124 r129 7 7 ClientHeight = 346 8 8 ClientWidth = 548 9 DesignTimePPI = 120 9 10 OnShow = FormShow 10 LCLVersion = '1. 6.4.0'11 LCLVersion = '1.8.0.6' 11 12 object Label1: TLabel 12 13 Left = 15 -
branches/generator/Forms/UFormGrammer.pas
r126 r129 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 U Rules;9 UGrammer; 10 10 11 11 type -
branches/generator/Forms/UFormMain.lfm
r128 r129 7 7 ClientHeight = 653 8 8 ClientWidth = 1050 9 DesignTimePPI = 120 9 10 Menu = MainMenu1 10 11 OnClose = FormClose 11 12 OnCloseQuery = FormCloseQuery 12 13 OnShow = FormShow 13 LCLVersion = '1. 6.4.0'14 LCLVersion = '1.8.0.6' 14 15 object MemoBNF: TMemo 15 16 Left = 0 … … 80 81 Height = 22 81 82 Top = 0 82 Width = 883 83 Style = tbsSeparator 84 84 end -
branches/generator/Forms/UFormMain.pas
r127 r129 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 Menus, ActnList, ComCtrls, UPersistentForm, U Rules;9 Menus, ActnList, ComCtrls, UPersistentForm, UGrammer; 10 10 11 11 type … … 77 77 78 78 uses 79 UFormRules, UCore, UFormGrammer ;79 UFormRules, UCore, UFormGrammer, UBuilder; 80 80 81 81 resourcestring … … 189 189 190 190 procedure TFormMain.ABuildCompilerExecute(Sender: TObject); 191 begin 192 Core.Grammer.BuildCompiler; 191 var 192 Builder: TBuilder; 193 begin 194 Builder := TBuilder.Create; 195 try 196 Builder.Grammer := Core.Grammer; 197 Builder.BuildCompiler; 198 finally 199 FreeAndNil(Builder); 200 end; 193 201 end; 194 202 -
branches/generator/Forms/UFormRule.lfm
r122 r129 8 8 ClientHeight = 514 9 9 ClientWidth = 663 10 DesignTimePPI = 120 10 11 OnCreate = FormCreate 11 12 OnDestroy = FormDestroy 12 13 OnShow = FormShow 13 LCLVersion = '1. 6.4.0'14 LCLVersion = '1.8.0.6' 14 15 object ButtonOk: TButton 15 16 Left = 376 … … 94 95 TabOrder = 4 95 96 end 97 object Label2: TLabel 98 Left = 312 99 Height = 20 100 Top = 52 101 Width = 37 102 Caption = 'Lavel:' 103 ParentColor = False 104 end 105 object ComboBoxLevel: TComboBox 106 Left = 376 107 Height = 28 108 Top = 48 109 Width = 125 110 ItemHeight = 20 111 Style = csDropDownList 112 TabOrder = 5 113 end 96 114 end -
branches/generator/Forms/UFormRule.pas
r126 r129 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 ComCtrls, ActnList, Menus, U Rules, UFormRuleItems;9 ComCtrls, ActnList, Menus, UGrammer, UFormRuleItems; 10 10 11 11 type … … 17 17 ButtonCancel: TButton; 18 18 CheckBoxCreateNode: TCheckBox; 19 ComboBoxLevel: TComboBox; 19 20 EditName: TEdit; 20 21 Label1: TLabel; 22 Label2: TLabel; 21 23 ListView1: TListView; 22 24 PageControl1: TPageControl; … … 70 72 71 73 procedure TFormRule.FormCreate(Sender: TObject); 74 var 75 I: TRuleLevel; 72 76 begin 73 77 FormRuleItems := TFormRuleItems.Create(nil); … … 76 80 FormRuleItems.Show; 77 81 UsedByRules := TStringList.Create; 82 ComboBoxLevel.Items.Clear; 83 for I := Low(TRuleLevel) to High(RuleLevelText) do 84 ComboBoxLevel.Items.Add(RuleLevelText[I]); 78 85 end; 79 86 … … 91 98 EditName.Text := Rule.Name; 92 99 CheckBoxCreateNode.Checked := Rule.CreateSourceNode; 100 ComboBoxLevel.ItemIndex := Integer(Rule.Level); 93 101 FormRuleItems.LoadData(Rule.Items); 94 102 end; … … 99 107 Rule.Name := EditName.Text; 100 108 Rule.CreateSourceNode := CheckBoxCreateNode.Checked; 109 Rule.Level := TRuleLevel(ComboBoxLevel.ItemIndex); 101 110 FormRuleItems.SaveData(Rule.Items); 102 111 end; -
branches/generator/Forms/UFormRuleItem.lfm
r123 r129 7 7 ClientHeight = 400 8 8 ClientWidth = 656 9 DesignTimePPI = 120 9 10 OnClose = FormClose 10 11 OnCreate = FormCreate 11 12 OnDestroy = FormDestroy 12 13 OnShow = FormShow 13 LCLVersion = '1. 6.4.0'14 LCLVersion = '1.8.0.6' 14 15 object ButtonCancel: TButton 15 16 Left = 176 -
branches/generator/Forms/UFormRuleItem.pas
r126 r129 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 ComCtrls, U Rules;9 ComCtrls, UGrammer; 10 10 11 11 type -
branches/generator/Forms/UFormRuleItems.lfm
r128 r129 7 7 ClientHeight = 467 8 8 ClientWidth = 636 9 DesignTimePPI = 120 9 10 OnCreate = FormCreate 10 11 OnShow = FormShow 11 LCLVersion = '1. 6.4.0'12 LCLVersion = '1.8.0.6' 12 13 object ListView1: TListView 13 14 Left = 8 … … 96 97 object MenuItem1: TMenuItem 97 98 Action = AAdd 98 Bitmap.Data = {99 36040000424D3604000000000000360000002800000010000000100000000100100 2000000000000004000064000000640000000000000000000000000000000000101 0000000000000000000000000000000000000000000000000000000000000000102 0000000000000000000000000000000000000000000000000000000000000000103 000000000000000000000000000000000000D4D4D4FFB2B2B2FFB2B2B2FFD4D4104 D4FF000000000000000000000000000000000000000000000000000000000000105 0000000000000000000000000000709B70FF004A00FF004800FF4E764EFFB2B2106 B2FF000000000000000000000000000000000000000000000000000000000000107 0000000000000000000000000000004E00FF00C800FF00C400FF004800FFB2B2108 B2FF000000000000000000000000000000000000000000000000000000000000109 0000000000000000000000000000005000FF00CA00FF00C600FF004A00FFB2B2110 B2FF000000000000000000000000000000000000000000000000000000000000111 0000000000000000000000000000005300FF00CE00FF00CA00FF004C00FFB2B2112 B2FF00000000000000000000000000000000000000000000000000000000D4D4113 D4FFB2B2B2FFB2B2B2FFB2B2B2FF005400FF00D200FF00CE00FF004E00FFB2B2114 B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFD4D4D4FF0000000070A670FF005E115 00FF005C00FF005A00FF005800FF005600FF00D600FF00D000FF005000FF004E116 00FF004C00FF004A00FF004A00FF4E764EFFB2B2B2FF00000000006200FF8CFE117 8CFF00EA00FF00E600FF00E200FF00DE00FF00DA00FF00D400FF00D000FF00CC118 00FF00C800FF00C400FF00C200FF004800FFB2B2B2FF00000000006400FFECFF119 ECFF8CFE8CFF8CFE8CFF8CFE8CFF8CFE8CFF00DE00FF00D900FF00D400FF00D0120 00FF00CC00FF00C800FF00C400FF004A00FFD4D4D4FF0000000070A970FF0064121 00FF006400FF006200FF006000FF006000FF8CFE8CFF00DD00FF005800FF0056122 00FF005400FF005300FF005000FF709C70FF0000000000000000000000000000123 0000000000000000000000000000006000FF8CFE8CFF00E000FF005A00FFB2B2124 B2FF000000000000000000000000000000000000000000000000000000000000125 0000000000000000000000000000006200FF8CFE8CFF00E500FF005C00FFB2B2126 B2FF000000000000000000000000000000000000000000000000000000000000127 0000000000000000000000000000006400FF8CFE8CFF00E800FF005E00FFB2B2128 B2FF000000000000000000000000000000000000000000000000000000000000129 0000000000000000000000000000006400FFECFFECFF8CFE8CFF006000FFD4D4130 D4FF000000000000000000000000000000000000000000000000000000000000131 000000000000000000000000000070A970FF006400FF006200FF70A670FF0000132 0000000000000000000000000000000000000000000000000000133 }134 99 end 135 100 object MenuItem2: TMenuItem 136 101 Action = AModify 137 Bitmap.Data = {138 36040000424D3604000000000000360000002800000010000000100000000100139 2000000000000004000064000000640000000000000000000000986B37FF976A140 36FF966935FF966734FF956633FF946532FF946531FF936430FF92622FFF9261141 2EFF91602DFF90602CFF905F2BFF8F5D2AFF8E5C29FF8D5B28FF996C38FFF8F7142 F6FFF8F7F5FFF7F6F5FFF6F6F4FFF6F5F3FFF5F5F3FFF5F4F2FFF4F3F1FFF4F3143 F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F0EEFFF1F0EDFF8E5D29FF996D3AFFF9F8144 F7FF959594FF878787FF9B9A9AFFF7F6F4FFF6F5F3FFF6F5F3FFF5F4F2FFF4F3145 F1FFF4F3F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F1EEFF8F5E2AFF9A6E3BFFF9F9146 F8FF7C7C7CFFC4C4C4FF878787FFF7F6F5FF7A7A7AFF787878FF747474FF7171147 70FF6D6D6CFF696968FF656565FF616161FFF2F1EFFF905F2BFF9B6F3CFFFAF9148 F8FFBEBEBDFF929292FFBCBCBBFFF8F7F6FFF7F7F5FFF7F6F4FFF6F5F4FFF6F5149 F3FFF5F4F2FFF5F4F2FFF4F3F1FFF4F2F0FFF3F2F0FF91602DFF9C703DFFFAFA150 F9FFFAF9F9FFF9F9F8FFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F5151 F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FFF4F3F0FF92612EFF9D723EFFFBFB152 FAFF9F9F9EFF7F7F7FFFAEAEADFFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6153 F5FFF6F6F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FF92622FFF9D7340FFFCFB154 FBFF818181FFC4C4C4FF8F8F8FFFFAF9F8FF7B7B7AFF797979FF757574FF7271155 71FF6D6D6DFF696969FF666665FF626261FFF5F4F2FF936430FF9E7441FFFCFC156 FCFFB5B5B5FF848484FFBEBDBDFFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FFF8F8157 F6FFF8F7F5FFF7F6F5FFF7F6F4FFF6F5F3FFF6F5F3FF946531FF9F7542FFFDFD158 FCFFFCFCFCFFFCFCFBFFFBFBFAFFFBFAFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8159 F7FFF8F8F6FFF8F7F6FFF7F6F5FFF7F6F4FFF6F5F4FF956633FFA07643FFFEFD160 FDFF8C8C8CFF525252FFA4A4A4FFFBFBFAFFFBFBFAFFFAFAF9FFFAF9F8FFF9F9161 F8FFF9F8F7FFF8F8F6FFF8F7F6FFF7F7F5FFF7F6F4FF966734FFA17844FFFEFE162 FEFF5F5F5FFF949494FF535353FFFCFCFBFF7B7B7BFF797979FF757575FF7272163 72FF6E6E6EFF6A6A69FF666666FF626262FFF7F7F5FF966935FFA17946FFFFFF164 FFFF878787FF5D5D5DFFA0A0A0FFFDFCFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFA165 F9FFFAFAF9FFFAF9F8FFF9F8F7FFF8F8F7FFF8F7F6FF976A36FFA27A47FFFFFF166 FFFFFFFFFFFFFEFEFEFFFEFEFEFFFDFDFDFFFDFDFCFFFCFCFBFFFCFBFBFFFBFB167 FAFFFBFAF9FFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FF986B37FFA37B48FFBEA2168 7FFFBEA17EFFBDA17DFFBDA07CFFBD9F7CFFBC9F7BFFBB9E7AFFBB9D7AFFBB9D169 79FFBA9C78FFB99B78FFB99A77FFB89A76FFB89975FF996C39FFA37B48FFA37B170 48FFA27A47FFA27946FFA17845FFA07744FFA07643FF9F7542FF9E7441FF9E73171 40FF9D723FFF9C713EFF9C703DFF9B6F3CFF9A6E3BFF9A6D3AFF172 }173 102 end 174 103 object MenuItem3: TMenuItem 175 104 Action = ARemove 176 Bitmap.Data = {177 36040000424D3604000000000000360000002800000010000000100000000100178 2000000000000004000064000000640000000000000000000000000000000000179 0000000000000000000000000000000000000000000000000000000000000000180 0000000000000000000000000000000000000000000000000000000000000000181 0000000000000000000000000000000000000000000000000000000000000000182 0000000000000000000000000000000000003A3AE2FFC0C0C0FF000000000000183 000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000184 0000000000000000000000000000000000000000000000000000000000000000185 0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000186 00000000000000000000000000003A3AE2FFC0C0C0FF00000000000000000000187 0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000188 000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000189 000000000000000000003838E0FF3838E0FF3838E0FFC0C0C0FF000000000000190 0000000000003838E0FF3838E0FFC0C0C0FF0000000000000000000000000000191 00000000000000000000000000003535DDFF3535DDFF3535DDFFC0C0C0FF0000192 00003535DDFF3535DDFFC0C0C0FF000000000000000000000000000000000000193 0000000000000000000000000000000000003232DAFF3232DAFF3232DAFF3232194 DAFF3232DAFFC0C0C0FF00000000000000000000000000000000000000000000195 000000000000000000000000000000000000000000002F2FD7FF2F2FD7FF2F2F196 D7FFC0C0C0FF0000000000000000000000000000000000000000000000000000197 0000000000000000000000000000000000002C2CD4FF2C2CD4FF2C2CD4FF2C2C198 D4FF2C2CD4FFC0C0C0FF00000000000000000000000000000000000000000000199 00000000000000000000000000002929D1FF2929D1FF2929D1FFC0C0C0FF0000200 00002929D1FFC0C0C0FF00000000000000000000000000000000000000000000201 0000000000002626CEFF2626CEFF2626CEFF2626CEFFC0C0C0FF000000000000202 0000000000002626CEFF2626CEFFC0C0C0FF0000000000000000000000000000203 00002020C8FF2020C8FF2020C8FF2020C8FFC0C0C0FF00000000000000000000204 000000000000000000002020C8FF2020C8FFC0C0C0FF00000000000000000000205 00001818C0FF1818C0FFC0C0C0FF000000000000000000000000000000000000206 00000000000000000000000000001818C0FF1818C0FFC0C0C0FF000000000000207 0000000000000000000000000000000000000000000000000000000000000000208 0000000000000000000000000000000000000000000000000000000000000000209 0000000000000000000000000000000000000000000000000000000000000000210 0000000000000000000000000000000000000000000000000000211 }212 105 end 213 106 object MenuItem4: TMenuItem 214 107 Action = AMoveUp 215 Bitmap.Data = {216 36040000424D3604000000000000360000002800000010000000100000000100217 2000000000000004000064000000640000000000000000000000000000000000218 0000000000000000000000000000000000000000000000000000000000000000219 0000000000000000000000000000000000000000000000000000000000000000220 0000000000000000000000000000000000FF000000FF000000FF000000FF0000221 00FF000000FF000000FF00000000000000000000000000000000000000000000222 0000000000000000000000000000000000FFFF442CFFFF3C28FFFF3522FFFF2E223 1EFFFF2619FF000000FF00000000000000000000000000000000000000000000224 0000000000000000000000000000000000FFFF5337FFFF4C32FFFF442CFFFF3C225 28FFFF3623FF000000FF00000000000000000000000000000000000000000000226 0000000000000000000000000000000000FFFF6341FFFF5C3BFFFF5437FFFF4C227 32FFFF442CFF000000FF00000000000000000000000000000000000000000000228 0000000000000000000000000000000000FFFF724AFFFF6B46FFFF6441FFFF5D229 3CFFFF5437FF000000FF00000000000000000000000000000000000000000000230 0000000000000000000000000000000000FFFF8255FFFF7A4FFFFF744BFFFF6C231 46FFFF6441FF000000FF00000000000000000000000000000000000000000000232 0000000000000000000000000000000000FFFF915FFFFF8A5AFFFF8255FFFF7C233 51FFFF744CFF000000FF00000000000000000000000000000000000000000000234 00FF000000FF000000FF000000FF000000FFFFA169FFFF9A65FFFF9360FFFF8A235 5AFFFF8456FF000000FF000000FF000000FF000000FF000000FF000000000000236 0000000000FFFFC681FFFFBF7DFFFFB878FFFFB073FFFFAA6EFFFFA269FFFF9A237 65FFFF9360FFFF8C5BFFFF8456FFFF7C51FF000000FF00000000000000000000238 000000000000000000FFFFCF87FFFFC882FFFFC17DFFFFB878FFFFB174FFFFAA239 6EFFFFA269FFFF9A65FFFF9461FF000000FF0000000000000000000000000000240 00000000000000000000000000FFFFD78CFFFFD088FFFFC882FFFFC17DFFFFBA241 79FFFFB374FFFFAA6EFF000000FF000000000000000000000000000000000000242 0000000000000000000000000000000000FFFFE092FFFFD88CFFFFD088FFFFC8243 82FFFFC27EFF000000FF00000000000000000000000000000000000000000000244 000000000000000000000000000000000000000000FFFFE797FFFFE092FFFFD8245 8CFF000000FF0000000000000000000000000000000000000000000000000000246 00000000000000000000000000000000000000000000000000FFFFF09CFF0000247 00FF000000000000000000000000000000000000000000000000000000000000248 0000000000000000000000000000000000000000000000000000000000FF0000249 0000000000000000000000000000000000000000000000000000250 }251 108 end 252 109 object MenuItem5: TMenuItem 253 110 Action = AMoveDown 254 Bitmap.Data = {255 36040000424D3604000000000000360000002800000010000000100000000100256 2000000000000004000064000000640000000000000000000000000000000000257 00000000000000000000000000000000000000000000000000FF000000000000258 0000000000000000000000000000000000000000000000000000000000000000259 000000000000000000000000000000000000000000FFFFF09CFF000000FF0000260 0000000000000000000000000000000000000000000000000000000000000000261 0000000000000000000000000000000000FFFFD88CFFFFE092FFFFE797FF0000262 00FF000000000000000000000000000000000000000000000000000000000000263 00000000000000000000000000FFFFC27EFFFFC882FFFFD088FFFFD88CFFFFE0264 92FF000000FF0000000000000000000000000000000000000000000000000000265 000000000000000000FFFFAA6EFFFFB374FFFFBA79FFFFC17DFFFFC882FFFFD0266 88FFFFD78CFF000000FF00000000000000000000000000000000000000000000267 0000000000FFFF9461FFFF9A65FFFFA269FFFFAA6EFFFFB174FFFFB878FFFFC1268 7DFFFFC882FFFFCF87FF000000FF000000000000000000000000000000000000269 00FFFF7C51FFFF8456FFFF8C5BFFFF9360FFFF9A65FFFFA269FFFFAA6EFFFFB0270 73FFFFB878FFFFBF7DFFFFC681FF000000FF0000000000000000000000FF0000271 00FF000000FF000000FF000000FFFF8456FFFF8A5AFFFF9360FFFF9A65FFFFA1272 69FF000000FF000000FF000000FF000000FF000000FF00000000000000000000273 00000000000000000000000000FFFF744CFFFF7C51FFFF8255FFFF8A5AFFFF91274 5FFF000000FF0000000000000000000000000000000000000000000000000000275 00000000000000000000000000FFFF6441FFFF6C46FFFF744BFFFF7A4FFFFF82276 55FF000000FF0000000000000000000000000000000000000000000000000000277 00000000000000000000000000FFFF5437FFFF5D3CFFFF6441FFFF6B46FFFF72278 4AFF000000FF0000000000000000000000000000000000000000000000000000279 00000000000000000000000000FFFF442CFFFF4C32FFFF5437FFFF5C3BFFFF63280 41FF000000FF0000000000000000000000000000000000000000000000000000281 00000000000000000000000000FFFF3623FFFF3C28FFFF442CFFFF4C32FFFF53282 37FF000000FF0000000000000000000000000000000000000000000000000000283 00000000000000000000000000FFFF2619FFFF2E1EFFFF3522FFFF3C28FFFF44284 2CFF000000FF0000000000000000000000000000000000000000000000000000285 00000000000000000000000000FF000000FF000000FF000000FF000000FF0000286 00FF000000FF0000000000000000000000000000000000000000000000000000287 0000000000000000000000000000000000000000000000000000000000000000288 0000000000000000000000000000000000000000000000000000289 }290 111 end 291 112 end -
branches/generator/Forms/UFormRuleItems.pas
r128 r129 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 9 Menus, ActnList, StdCtrls, U Rules, UFormRuleItem;9 Menus, ActnList, StdCtrls, UGrammer, UFormRuleItem; 10 10 11 11 type -
branches/generator/Forms/UFormRules.lfm
r128 r129 7 7 ClientHeight = 611 8 8 ClientWidth = 857 9 DesignTimePPI = 120 9 10 OnClose = FormClose 10 11 OnCreate = FormCreate 11 12 OnShow = FormShow 12 LCLVersion = '1. 6.4.0'13 LCLVersion = '1.8.0.6' 13 14 object CoolBar1: TCoolBar 14 15 Left = 0 … … 76 77 item 77 78 Caption = 'Items' 78 Width = 50079 Width = 400 79 80 end 80 81 item 81 82 Caption = 'Char length' 82 83 Width = 80 84 end 85 item 86 Caption = 'Level' 87 Width = 70 83 88 end> 84 89 MultiSelect = True … … 126 131 object MenuItem1: TMenuItem 127 132 Action = AAdd 128 Bitmap.Data = {129 36040000424D3604000000000000360000002800000010000000100000000100130 2000000000000004000064000000640000000000000000000000000000000000131 0000000000000000000000000000000000000000000000000000000000000000132 0000000000000000000000000000000000000000000000000000000000000000133 000000000000000000000000000000000000D4D4D4FFB2B2B2FFB2B2B2FFD4D4134 D4FF000000000000000000000000000000000000000000000000000000000000135 0000000000000000000000000000709B70FF004A00FF004800FF4E764EFFB2B2136 B2FF000000000000000000000000000000000000000000000000000000000000137 0000000000000000000000000000004E00FF00C800FF00C400FF004800FFB2B2138 B2FF000000000000000000000000000000000000000000000000000000000000139 0000000000000000000000000000005000FF00CA00FF00C600FF004A00FFB2B2140 B2FF000000000000000000000000000000000000000000000000000000000000141 0000000000000000000000000000005300FF00CE00FF00CA00FF004C00FFB2B2142 B2FF00000000000000000000000000000000000000000000000000000000D4D4143 D4FFB2B2B2FFB2B2B2FFB2B2B2FF005400FF00D200FF00CE00FF004E00FFB2B2144 B2FFB2B2B2FFB2B2B2FFB2B2B2FFB2B2B2FFD4D4D4FF0000000070A670FF005E145 00FF005C00FF005A00FF005800FF005600FF00D600FF00D000FF005000FF004E146 00FF004C00FF004A00FF004A00FF4E764EFFB2B2B2FF00000000006200FF8CFE147 8CFF00EA00FF00E600FF00E200FF00DE00FF00DA00FF00D400FF00D000FF00CC148 00FF00C800FF00C400FF00C200FF004800FFB2B2B2FF00000000006400FFECFF149 ECFF8CFE8CFF8CFE8CFF8CFE8CFF8CFE8CFF00DE00FF00D900FF00D400FF00D0150 00FF00CC00FF00C800FF00C400FF004A00FFD4D4D4FF0000000070A970FF0064151 00FF006400FF006200FF006000FF006000FF8CFE8CFF00DD00FF005800FF0056152 00FF005400FF005300FF005000FF709C70FF0000000000000000000000000000153 0000000000000000000000000000006000FF8CFE8CFF00E000FF005A00FFB2B2154 B2FF000000000000000000000000000000000000000000000000000000000000155 0000000000000000000000000000006200FF8CFE8CFF00E500FF005C00FFB2B2156 B2FF000000000000000000000000000000000000000000000000000000000000157 0000000000000000000000000000006400FF8CFE8CFF00E800FF005E00FFB2B2158 B2FF000000000000000000000000000000000000000000000000000000000000159 0000000000000000000000000000006400FFECFFECFF8CFE8CFF006000FFD4D4160 D4FF000000000000000000000000000000000000000000000000000000000000161 000000000000000000000000000070A970FF006400FF006200FF70A670FF0000162 0000000000000000000000000000000000000000000000000000163 }164 133 end 165 134 object MenuItem2: TMenuItem 166 135 Action = AModify 167 Bitmap.Data = {168 36040000424D3604000000000000360000002800000010000000100000000100169 2000000000000004000064000000640000000000000000000000986B37FF976A170 36FF966935FF966734FF956633FF946532FF946531FF936430FF92622FFF9261171 2EFF91602DFF90602CFF905F2BFF8F5D2AFF8E5C29FF8D5B28FF996C38FFF8F7172 F6FFF8F7F5FFF7F6F5FFF6F6F4FFF6F5F3FFF5F5F3FFF5F4F2FFF4F3F1FFF4F3173 F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F0EEFFF1F0EDFF8E5D29FF996D3AFFF9F8174 F7FF959594FF878787FF9B9A9AFFF7F6F4FFF6F5F3FFF6F5F3FFF5F4F2FFF4F3175 F1FFF4F3F1FFF3F2F0FFF3F2EFFFF2F1EFFFF2F1EEFF8F5E2AFF9A6E3BFFF9F9176 F8FF7C7C7CFFC4C4C4FF878787FFF7F6F5FF7A7A7AFF787878FF747474FF7171177 70FF6D6D6CFF696968FF656565FF616161FFF2F1EFFF905F2BFF9B6F3CFFFAF9178 F8FFBEBEBDFF929292FFBCBCBBFFF8F7F6FFF7F7F5FFF7F6F4FFF6F5F4FFF6F5179 F3FFF5F4F2FFF5F4F2FFF4F3F1FFF4F2F0FFF3F2F0FF91602DFF9C703DFFFAFA180 F9FFFAF9F9FFF9F9F8FFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6F5FFF6F5181 F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FFF4F3F0FF92612EFF9D723EFFFBFB182 FAFF9F9F9EFF7F7F7FFFAEAEADFFF9F8F7FFF8F8F7FFF8F7F6FFF7F7F5FFF7F6183 F5FFF6F6F4FFF6F5F3FFF5F4F3FFF5F4F2FFF4F3F1FF92622FFF9D7340FFFCFB184 FBFF818181FFC4C4C4FF8F8F8FFFFAF9F8FF7B7B7AFF797979FF757574FF7271185 71FF6D6D6DFF696969FF666665FF626261FFF5F4F2FF936430FF9E7441FFFCFC186 FCFFB5B5B5FF848484FFBEBDBDFFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FFF8F8187 F6FFF8F7F5FFF7F6F5FFF7F6F4FFF6F5F3FFF6F5F3FF946531FF9F7542FFFDFD188 FCFFFCFCFCFFFCFCFBFFFBFBFAFFFBFAFAFFFAFAF9FFFAF9F8FFF9F9F8FFF9F8189 F7FFF8F8F6FFF8F7F6FFF7F6F5FFF7F6F4FFF6F5F4FF956633FFA07643FFFEFD190 FDFF8C8C8CFF525252FFA4A4A4FFFBFBFAFFFBFBFAFFFAFAF9FFFAF9F8FFF9F9191 F8FFF9F8F7FFF8F8F6FFF8F7F6FFF7F7F5FFF7F6F4FF966734FFA17844FFFEFE192 FEFF5F5F5FFF949494FF535353FFFCFCFBFF7B7B7BFF797979FF757575FF7272193 72FF6E6E6EFF6A6A69FF666666FF626262FFF7F7F5FF966935FFA17946FFFFFF194 FFFF878787FF5D5D5DFFA0A0A0FFFDFCFCFFFCFCFBFFFCFBFBFFFBFBFAFFFBFA195 F9FFFAFAF9FFFAF9F8FFF9F8F7FFF8F8F7FFF8F7F6FF976A36FFA27A47FFFFFF196 FFFFFFFFFFFFFEFEFEFFFEFEFEFFFDFDFDFFFDFDFCFFFCFCFBFFFCFBFBFFFBFB197 FAFFFBFAF9FFFAFAF9FFFAF9F8FFF9F9F7FFF9F8F7FF986B37FFA37B48FFBEA2198 7FFFBEA17EFFBDA17DFFBDA07CFFBD9F7CFFBC9F7BFFBB9E7AFFBB9D7AFFBB9D199 79FFBA9C78FFB99B78FFB99A77FFB89A76FFB89975FF996C39FFA37B48FFA37B200 48FFA27A47FFA27946FFA17845FFA07744FFA07643FF9F7542FF9E7441FF9E73201 40FF9D723FFF9C713EFF9C703DFF9B6F3CFF9A6E3BFF9A6D3AFF202 }203 136 end 204 137 object MenuItem3: TMenuItem 205 138 Action = ARemove 206 Bitmap.Data = {207 36040000424D3604000000000000360000002800000010000000100000000100208 2000000000000004000064000000640000000000000000000000000000000000209 0000000000000000000000000000000000000000000000000000000000000000210 0000000000000000000000000000000000000000000000000000000000000000211 0000000000000000000000000000000000000000000000000000000000000000212 0000000000000000000000000000000000003A3AE2FFC0C0C0FF000000000000213 000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000214 0000000000000000000000000000000000000000000000000000000000000000215 0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000216 00000000000000000000000000003A3AE2FFC0C0C0FF00000000000000000000217 0000000000003A3AE2FF3A3AE2FF3A3AE2FFC0C0C0FF00000000000000000000218 000000000000000000003A3AE2FFC0C0C0FF0000000000000000000000000000219 000000000000000000003838E0FF3838E0FF3838E0FFC0C0C0FF000000000000220 0000000000003838E0FF3838E0FFC0C0C0FF0000000000000000000000000000221 00000000000000000000000000003535DDFF3535DDFF3535DDFFC0C0C0FF0000222 00003535DDFF3535DDFFC0C0C0FF000000000000000000000000000000000000223 0000000000000000000000000000000000003232DAFF3232DAFF3232DAFF3232224 DAFF3232DAFFC0C0C0FF00000000000000000000000000000000000000000000225 000000000000000000000000000000000000000000002F2FD7FF2F2FD7FF2F2F226 D7FFC0C0C0FF0000000000000000000000000000000000000000000000000000227 0000000000000000000000000000000000002C2CD4FF2C2CD4FF2C2CD4FF2C2C228 D4FF2C2CD4FFC0C0C0FF00000000000000000000000000000000000000000000229 00000000000000000000000000002929D1FF2929D1FF2929D1FFC0C0C0FF0000230 00002929D1FFC0C0C0FF00000000000000000000000000000000000000000000231 0000000000002626CEFF2626CEFF2626CEFF2626CEFFC0C0C0FF000000000000232 0000000000002626CEFF2626CEFFC0C0C0FF0000000000000000000000000000233 00002020C8FF2020C8FF2020C8FF2020C8FFC0C0C0FF00000000000000000000234 000000000000000000002020C8FF2020C8FFC0C0C0FF00000000000000000000235 00001818C0FF1818C0FFC0C0C0FF000000000000000000000000000000000000236 00000000000000000000000000001818C0FF1818C0FFC0C0C0FF000000000000237 0000000000000000000000000000000000000000000000000000000000000000238 0000000000000000000000000000000000000000000000000000000000000000239 0000000000000000000000000000000000000000000000000000000000000000240 0000000000000000000000000000000000000000000000000000241 }242 139 end 243 140 end -
branches/generator/Forms/UFormRules.pas
r128 r129 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, 9 ComCtrls, ActnList, Menus, U Rules, UListViewSort;9 ComCtrls, ActnList, Menus, UGrammer, UListViewSort; 10 10 11 11 type … … 147 147 Item.SubItems.Add(Items.GetString); 148 148 Item.SubItems.Add(IntToStr(Items.GetCharLength)); 149 Item.SubItems.Add(RuleLevelText[Level]); 149 150 end; 150 151 end; … … 175 176 1: Result := CompareString(BooleanText[TRule(Item1).CreateSourceNode], BooleanText[TRule(Item2).CreateSourceNode]); 176 177 2: Result := CompareString(TRule(Item1).GetString, TRule(Item2).GetString); 178 3: Result := CompareInteger(TRule(Item1).Items.GetCharLength, 179 TRule(Item2).Items.GetCharLength); 180 4: Result := CompareString(RuleLevelText[TRule(Item1).Level], 181 RuleLevelText[TRule(Item2).Level]); 177 182 end; 178 183 if ListViewSort1.Order = soDown then Result := -Result;
Note:
See TracChangeset
for help on using the changeset viewer.
