Changeset 181 for trunk/Packages/Common/UListViewSort.pas

Timestamp:

Apr 11, 2018, 11:35:38 AM (6 years ago)

Author:

chronos

Message:

• Modified: Updated files for Common package.

File:

• trunk/Packages/Common/UListViewSort.pas (modified) (2 diffs)

trunk/Packages/Common/UListViewSort.pas

@@ -384 +384 @@
   ItemLeft := Item.Left;
   ItemLeft := 23; // Windows 7 workaround
-  
+
   Rect1.Left := ItemLeft - CheckWidth - BiasLeft + 1 + XBias;
   //ShowMessage(IntToStr(Tp1.Y) + ', ' + IntToStr(BiasTop) + ', ' + IntToStr(XBias));
@@ -483 +483 @@
     FHeaderHandle := ListView_GetHeader(FListView.Handle);
     for I := 0 to FListView.Columns.Count - 1 do begin
+      {$push}{$warn 5057 off}
       FillChar(Item, SizeOf(THDItem), 0);
+      {$pop}
       Item.Mask := HDI_FORMAT;
       Header_GetItem(FHeaderHandle, I, Item);