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

Timestamp:

Dec 24, 2017, 11:13:05 AM (7 years ago)

Author:

chronos

Message:

• Modified: Show rules list docked directly to main form.

Location:

branches/generator

Files:

• . (modified) (1 prop)
• Forms (modified) (1 prop)
• Forms/UFormRules.pas (modified) (1 diff)

branches/generator

@@ +1 @@
+generator
 generator.exe
 generator.lps
 lib
 heaptrclog.trc
+Generated

@@ +1 @@
+generator
 generator.exe
 generator.lps
 lib
 heaptrclog.trc
+Generated

branches/generator/Forms/UFormRules.pas

@@ -189 +189 @@
   I: Integer;
 begin
-  ListViewSort1.List.Count := Rules.Count;
-  for I := 0 to Rules.Count - 1 do
-    ListViewSort1.List[I] := Rules[I];
-  //FilterList(ListViewSort1.List);
+  if Assigned(Rules) then begin
+    ListViewSort1.List.Count := Rules.Count;
+    for I := 0 to Rules.Count - 1 do
+      ListViewSort1.List[I] := Rules[I];
+    //FilterList(ListViewSort1.List);
+  end else ListViewSort1.List.Count := 0;
 end;
 
 procedure TFormRules.UpdateInterface;
 begin
-  AModify.Enabled := Assigned(ListView1.Selected);
-  ARemove.Enabled := Assigned(ListView1.Selected);
+  AAdd.Enabled := Assigned(Rules);
+  AModify.Enabled := Assigned(Rules) and Assigned(ListView1.Selected);
+  ARemove.Enabled := Assigned(Rules) and Assigned(ListView1.Selected);
 end;
 
 procedure TFormRules.ReloadList;
 begin
-  if Assigned(Rules) then ListViewSort1.Refresh
-    else ListViewSort1.List.Count := 0;
+  ListViewSort1.Refresh;
   ListView1.Refresh;
 end;

@@ +1 @@
+generator
 generator.exe
 generator.lps
 lib
 heaptrclog.trc
+Generated