Changeset 116 for branches/generator/Forms/UFormRules.pas

Timestamp:

Nov 27, 2017, 10:04:52 AM (7 years ago)

Author:

chronos

Message:

• Modified: Rule items interface moved to separate unit UFormRuleItems.

File:

• branches/generator/Forms/UFormRules.pas (modified) (5 diffs)

branches/generator/Forms/UFormRules.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
   ComCtrls, ActnList, Menus, URules;
 
@@ -32 +32 @@
     procedure ARemoveExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
@@ -107 +108 @@
 end;
 
+procedure TFormRules.FormCreate(Sender: TObject);
+begin
+  Rules := nil;
+end;
+
 procedure TFormRules.ListView1Data(Sender: TObject; Item: TListItem);
 begin
@@ -112 +118 @@
     Item.Caption := Rules[Item.Index].Name;
     Item.Data := Rules[Item.Index];
-    Item.SubItems.Add(Rules[Item.Index].Items.GetBNF(Rules[Item.Index].RuleType));
+    Item.SubItems.Add(Rules[Item.Index].Items.GetBNF(Rules[Item.Index].Items.RuleType));
   end;
 end;
@@ -140 +146 @@
 procedure TFormRules.ReloadList;
 begin
-  ListView1.Items.Count := Rules.Count;
+  if Assigned(Rules) then ListView1.Items.Count := Rules.Count
+    else ListView1.Items.Count := 0;
   ListView1.Refresh;
 end;