Changeset 121 for branches

Timestamp:

Nov 29, 2017, 1:34:17 PM (7 years ago)

Author:

chronos

Message:

• Added: Sorting list of rules by name by default.

Location:

branches/generator/Forms

Files:

• UFormRules.lfm (modified) (2 diffs)
• UFormRules.pas (modified) (8 diffs)

branches/generator/Forms/UFormRules.lfm

@@ -86 +86 @@
     TabOrder = 1
     ViewStyle = vsReport
+    OnCompare = ListView1Compare
     OnData = ListView1Data
     OnDblClick = ListView1DblClick
@@ -237 +238 @@
     end
   end
+  object ListViewSort1: TListViewSort
+    ListView = ListView1
+    OnCompareItem = ListViewSort1CompareItem
+    OnFilter = ListViewSort1Filter
+    Column = 0
+    Order = soUp
+    left = 574
+    top = 212
+  end
 end

branches/generator/Forms/UFormRules.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
-  ComCtrls, ActnList, Menus, URules;
+  ComCtrls, ActnList, Menus, URules, UListViewSort;
 
 type
@@ -20 +20 @@
     CoolBar1: TCoolBar;
     ListView1: TListView;
+    ListViewSort1: TListViewSort;
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
@@ -34 +35 @@
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
+      Data: Integer; var Compare: Integer);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure ListView1DblClick(Sender: TObject);
@@ -39 +42 @@
     procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
+    function ListViewSort1CompareItem(Item1, Item2: TObject): Integer;
+    procedure ListViewSort1Filter(ListViewSort: TListViewSort);
   private
     { private declarations }
@@ -68 +73 @@
   ReloadList;
   UpdateInterface;
+end;
+
+procedure TFormRules.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
+  Data: Integer; var Compare: Integer);
+begin
+
 end;
 
@@ -125 +136 @@
 procedure TFormRules.ListView1Data(Sender: TObject; Item: TListItem);
 begin
-  if (Item.Index >= 0) and (Item.Index < Rules.Count) then begin
-    Item.Caption := Rules[Item.Index].Name;
-    Item.Data := Rules[Item.Index];
-    Item.SubItems.Add(BooleanText[Rules[Item.Index].CreateSourceNode]);
-    Item.SubItems.Add(Rules[Item.Index].Items.GetString);
+  if (Item.Index >= 0) and (Item.Index < ListViewSort1.List.Count) then
+  with TRule(ListViewSort1.List[Item.Index]) do begin
+    Item.Caption := Name;
+    Item.Data := ListViewSort1.List[Item.Index];
+    Item.SubItems.Add(BooleanText[CreateSourceNode]);
+    Item.SubItems.Add(Items.GetString);
   end;
 end;
@@ -149 +161 @@
 end;
 
+function TFormRules.ListViewSort1CompareItem(Item1, Item2: TObject): Integer;
+begin
+  Result := 0;
+  if Assigned(Item1) and Assigned(Item2) and (ListViewSort1.Order <> soNone) then begin
+    with ListViewSort1 do
+    case Column of
+      0: Result := CompareString(TRule(Item1).Name, TRule(Item2).Name);
+      1: Result := CompareString(BooleanText[TRule(Item1).CreateSourceNode], BooleanText[TRule(Item2).CreateSourceNode]);
+      2: Result := CompareString(TRule(Item1).GetString, TRule(Item2).GetString);
+    end;
+    if ListViewSort1.Order = soDown then Result := -Result;
+  end else Result := 0;
+end;
+
+procedure TFormRules.ListViewSort1Filter(ListViewSort: TListViewSort);
+var
+  I: Integer;
+begin
+  ListViewSort1.List.Count := Rules.Count;
+  for I := 0 to Rules.Count - 1 do
+    ListViewSort1.List[I] := Rules[I];
+  //FilterList(ListViewSort1.List);
+end;
+
 procedure TFormRules.UpdateInterface;
 begin
@@ -157 +193 @@
 procedure TFormRules.ReloadList;
 begin
-  if Assigned(Rules) then ListView1.Items.Count := Rules.Count
-    else ListView1.Items.Count := 0;
+  if Assigned(Rules) then ListViewSort1.Refresh
+    else ListViewSort1.List.Count := 0;
   ListView1.Refresh;
 end;