Changeset 128 for branches/generator/Forms

Timestamp:

Nov 30, 2017, 6:33:17 PM (7 years ago)

Author:

chronos

Message:

• Modified: Show char length of rule.

Location:

branches/generator/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormRuleItems.lfm (modified) (2 diffs)
• UFormRuleItems.pas (modified) (2 diffs)
• UFormRules.lfm (modified) (2 diffs)
• UFormRules.pas (modified) (1 diff)

branches/generator/Forms/UFormMain.lfm

@@ -81 +81 @@
         Top = 0
         Width = 8
-        Caption = 'ToolButton6'
         Style = tbsSeparator
       end

branches/generator/Forms/UFormRuleItems.lfm

@@ -4 +4 @@
   Top = 316
   Width = 636
-  Caption = 'FormRuleItems'
+  Caption = 'Rule items'
   ClientHeight = 467
   ClientWidth = 636
@@ -39 +39 @@
     Width = 636
     Align = alBottom
-    Caption = 'ToolBar1'
     Images = Core.ImageList1
     ParentShowHint = False

branches/generator/Forms/UFormRuleItems.pas

@@ -111 +111 @@
 procedure TFormRuleItems.AMoveDownExecute(Sender: TObject);
 begin
-  RuleItems.ParentRule.Items.Move(ListView1.Selected.Index, ListView1.Selected.Index + 1);
-  ListView1.ItemIndex := ListView1.Selected.Index + 1;
-  ReloadList;
+  if Assigned(ListView1.Selected) then begin
+    RuleItems.Move(ListView1.Selected.Index, ListView1.Selected.Index + 1);
+    ListView1.ItemIndex := ListView1.Selected.Index + 1;
+    ReloadList;
+  end;
 end;
 
 procedure TFormRuleItems.AMoveUpExecute(Sender: TObject);
 begin
-  RuleItems.ParentRule.Items.Move(ListView1.Selected.Index, ListView1.Selected.Index - 1);
-  ListView1.ItemIndex := ListView1.Selected.Index - 1;
-  ReloadList;
+  if Assigned(ListView1.Selected) then begin
+    RuleItems.Move(ListView1.Selected.Index, ListView1.Selected.Index - 1);
+    ListView1.ItemIndex := ListView1.Selected.Index - 1;
+    ReloadList;
+  end;
 end;
 
@@ -131 +135 @@
   for I := ListView1.Items.Count - 1 downto 0 do
   if ListView1.Items[I].Selected then begin
-    RuleItems.ParentRule.Items.Remove(TRuleItem(ListView1.Items[I].Data));
+    RuleItems.Remove(TRuleItem(ListView1.Items[I].Data));
     RuleItems.Grammer.Modified := True;
   end;

branches/generator/Forms/UFormRules.lfm

@@ -34 +34 @@
       BorderSpacing.Left = 22
       BorderSpacing.Top = 3
-      Caption = 'ToolBar1'
       EdgeInner = esNone
       EdgeOuter = esNone
@@ -78 +77 @@
         Caption = 'Items'
         Width = 500
+      end    
+      item
+        Caption = 'Char length'
+        Width = 80
       end>
     MultiSelect = True

branches/generator/Forms/UFormRules.pas

@@ -146 +146 @@
     Item.SubItems.Add(BooleanText[CreateSourceNode]);
     Item.SubItems.Add(Items.GetString);
+    Item.SubItems.Add(IntToStr(Items.GetCharLength));
   end;
 end;