Changeset 130

Timestamp:

Jan 19, 2011, 11:07:07 AM (13 years ago)

Author:

george

Message:

• Modified: ListViewSort rewrited to support Lazarus.

File:

• ListViewSort/UListViewSort.pas (modified) (10 diffs)

ListViewSort/UListViewSort.pas

@@ -6 +6 @@
 
 uses
-  Windows, Types, Classes, ComCtrls, Contnrs, Graphics, SysUtils, StdCtrls, Controls,
-  DateUtils, CommCtrl;
+  Windows, Types, Classes, ComCtrls, Contnrs, Graphics, SysUtils, StdCtrls,
+  Controls, DateUtils, CommCtrl, Dialogs, SpecializedList;
 
 type
@@ -28 +28 @@
     procedure SetListView(const Value: TListView);
     procedure ColumnClick(Sender: TObject; Column: TListColumn);
-    procedure QuickSort(SortList: TObjectList; L, R: Integer;
-      SCompare: TCompareEvent);
     procedure Sort(Compare: TCompareEvent);
     procedure DrawCheckMark(Item: TListItem; Checked: Boolean);
@@ -41 +39 @@
     procedure SetOrder(const Value: TSortOrder);
   public
-    List: TObjectList;
-    Source: TObjectList;
+    List: TListObject;
+    Source: TListObject;
     constructor Create;
     destructor Destroy; override;
@@ -100 +98 @@
 begin
   if (List.Count > 0) then
-    QuickSort(List, 0, List.Count - 1, Compare);
-end;
-
-procedure TListViewSort.QuickSort(SortList: TObjectList; L, R: Integer;
-  SCompare: TCompareEvent);
-var
-  I, J: Integer;
-  P, T: Pointer;
-begin
-  repeat
-    I := L;
-    J := R;
-    P := SortList[(L + R) shr 1];
-    repeat
-      while SCompare(SortList[I], P) < 0 do
-        Inc(I);
-      while SCompare(SortList[J], P) > 0 do
-        Dec(J);
-      if I <= J then
-      begin
-        T := SortList[I];
-        SortList[I] := SortList[J];
-        SortList[J] := T;
-        Inc(I);
-        Dec(J);
-      end;
-    until I > J;
-    if L < J then
-      QuickSort(SortList, L, J, SCompare);
-    L := I;
-  until I >= R;
-end;
-
+    List.Sort(Compare);
+end;
 
 procedure TListViewSort.Refresh;
@@ -143 +110 @@
     ListView.Items.Count := List.Count;
   if Assigned(FOnCompareItem) then Sort(FOnCompareItem);
+  ListView.Items[-1]; // Workaround for not show first row if selected
   ListView.Refresh;
+  // Workaround for not working item selection on first row
+  if not Assigned(ListView.Selected) then begin
+    ListView.Items.Count := 0;
+    ListView.Items.Count := List.Count;
+  end;
+  //if ListView.Items.Count > 0 then
+  //    ListView.Items[0].Selected := True;
+  //ListView.Selected := nil;
   UpdateColumns;
 end;
 
 const
-  W_64: Word = 64; {Width of thumbnail in ICON view mode}
-  H_64: Word = 64; {Height of thumbnail size}
-  CheckWidth: Word = 14; {Width of check mark box}
-  CheckHeight: Word = 14; {Height of checkmark}
-  CheckBiasTop: Word = 2; {This aligns the checkbox to be in centered}
-  CheckBiasLeft: Word = 3; {In the row of the list item display}
+  W_64: Integer = 64; {Width of thumbnail in ICON view mode}
+  H_64: Integer = 64; {Height of thumbnail size}
+  CheckWidth: Integer = 14; {Width of check mark box}
+  CheckHeight: Integer = 14; {Height of checkmark}
+  CheckBiasTop: Integer = 2; {This aligns the checkbox to be in centered}
+  CheckBiasLeft: Integer = 3; {In the row of the list item display}
 
 function TListViewSort.CompareBoolean(Value1, Value2: Boolean): Integer;
@@ -184 +160 @@
 constructor TListViewSort.Create;
 begin
-  List := TObjectList.Create;
+  List := TListObject.Create;
   List.OwnsObjects := False;
 end;
@@ -202 +178 @@
   BiasTop, BiasLeft: Integer;
   Rect1: TRect;
-begin
+  lRect: TRect;
+  ItemLeft: Integer;
+begin
+  Item.Left := 0;
   GetCheckBias(XBias, YBias, BiasTop, BiasLeft, ListView);
   OldColor := ListView.Canvas.Pen.Color;
-  TP1 := Item.GetPosition;
+  //TP1 := Item.GetPosition;
+  lRect := Item.DisplayRect(drBounds); // Windows 7 workaround
+  TP1.X := lRect.Left;
+  TP1.Y := lRect.Top;
+  //ShowMessage(IntToStr(Item.Index) + ', ' + IntToStr(GetScrollPos(Item.ListView.Handle, SB_VERT)) + '  ' +
+  //  IntToHex(Integer(Item), 8) + ', ' + IntToStr(TP1.X) + ', ' + IntToStr(TP1.Y));
+
 //  if Checked then
     ListView.Canvas.Brush.Color := clWhite;
-  Rect1.Left := Item.Left - CheckWidth - BiasLeft + 1 + XBias;
+  ItemLeft := Item.Left;
+  ItemLeft := 23; // Windows 7 workaround
+  
+  Rect1.Left := ItemLeft - CheckWidth - BiasLeft + 1 + XBias;
+  //ShowMessage(IntToStr(Tp1.Y) + ', ' + IntToStr(BiasTop) + ', ' + IntToStr(XBias));
   Rect1.Top := Tp1.Y + BiasTop + 1 + YBias;
-  Rect1.Right := Item.Left - BiasLeft - 1 + XBias;
+  Rect1.Right := ItemLeft - BiasLeft - 1 + XBias;
   Rect1.Bottom := Tp1.Y + BiasTop + CheckHeight - 1 + YBias;
+  //ShowMessage(IntToStr(Rect1.Left) + ', ' + IntToStr(Rect1.Top) + ', ' + IntToStr(Rect1.Right) + ', ' + IntToStr(Rect1.Bottom));
+
   ListView.Canvas.FillRect(Rect1);
   //if Checked then ListView.Canvas.Brush.Color := clBlack
@@ -220 +211 @@
   if Checked then begin
     ListView.Canvas.Pen.Color := clBlack;
-    ListView.Canvas.MoveTo(Item.Left - BiasLeft - 2 + XBias - 2,
+    ListView.Canvas.MoveTo(ItemLeft - BiasLeft - 2 + XBias - 2,
       Tp1.Y + BiasTop + 3 + YBias);
-    ListView.Canvas.LineTo(Item.Left - BiasLeft - (CheckWidth div 2) + XBias,
+    ListView.Canvas.LineTo(ItemLeft - BiasLeft - (CheckWidth div 2) + XBias,
       Tp1.Y + BiasTop + (CheckHeight - 4) + YBias);
-    ListView.Canvas.LineTo(Item.Left - BiasLeft - (CheckWidth - 3) + XBias,
+    ListView.Canvas.LineTo(ItemLeft - BiasLeft - (CheckWidth - 3) + XBias,
       Tp1.Y + BiasTop + (CheckHeight div 2) + YBias - 1);
 
-    ListView.Canvas.MoveTo(Item.Left - BiasLeft - 2 - 1 + XBias - 2,
+    ListView.Canvas.MoveTo(ItemLeft - BiasLeft - 2 - 1 + XBias - 2,
       Tp1.Y + BiasTop + 3 + YBias);
-    ListView.Canvas.LineTo(Item.Left - BiasLeft - (CheckWidth div 2) - 1 + XBias,
+    ListView.Canvas.LineTo(ItemLeft - BiasLeft - (CheckWidth div 2) - 1 + XBias,
       Tp1.Y + BiasTop + (CheckHeight - 4) + YBias);
-    ListView.Canvas.LineTo(Item.Left - BiasLeft - (CheckWidth - 3) - 1 + XBias,
+    ListView.Canvas.LineTo(ItemLeft - BiasLeft - (CheckWidth - 3) - 1 + XBias,
       Tp1.Y + BiasTop + (CheckHeight div 2) + YBias - 1);
   end;
-  ListView.Canvas.Brush.Color := ListView.Color;
+  //ListView.Canvas.Brush.Color := ListView.Color;
+  ListView.Canvas.Brush.Color := clWindow;
   ListView.Canvas.Pen.Color := OldColor;
 end;
@@ -260 +252 @@
   Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
 begin
-  if ListView.Checkboxes then
-    DrawCheckMark(Item, Item.Checked);
-  if Assigned(FOnCustomDraw) then
-    FOnCustomDraw(Sender, Item, State, DefaultDraw);  
+  if Assigned(Item) then begin
+    if ListView.Checkboxes then
+      DrawCheckMark(Item, Item.Checked);
+    if Assigned(FOnCustomDraw) then
+      FOnCustomDraw(Sender, Item, State, DefaultDraw);
+  end;
 end;
 
@@ -270 +264 @@
   Item: TListItem;
   Pos: TPoint;
+  DefaultDraw: Boolean;
 begin
   Pos := ListView.ScreenToClient(Mouse.CursorPos);
   Item := ListView.GetItemAt(Pos.X, Pos.Y);
+  //ShowMessage(IntToStr(Item.Index) + ', ' + IntToStr(Pos.X) + ', ' + IntToStr(Pos.Y));
   if Assigned(Item) and (Pos.X < 20) then begin
+
     Item.Checked := not Item.Checked;
-    ListView.UpdateItems(Item.Index, Item.Index);
+    //ShowMessage(IntToStr(Item.Index) + ', ' +BoolToStr(Item.Checked));
     if Assigned(ListView.OnChange) then
       ListView.OnChange(Self, Item, ctState);
+    DefaultDraw := False;
+    ListViewCustomDrawItem(ListView, Item, [], DefaultDraw);
+      //ListView.UpdateItems(Item.Index, Item.Index);
   end;
 end;