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

Timestamp:

Sep 23, 2016, 10:59:16 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Build under Linux.
• Modified: Improved deb package.

File:

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

trunk/Packages/Common/UListViewSort.pas

@@ -9 +9 @@
 uses
   {$IFDEF Windows}Windows, CommCtrl, {$ENDIF}Classes, Graphics, ComCtrls, SysUtils,
-  Controls, DateUtils, Dialogs, SpecializedList, Forms, Grids, StdCtrls, ExtCtrls;
+  Controls, DateUtils, Dialogs, SpecializedList, Forms, Grids, StdCtrls, ExtCtrls,
+  LclIntf, LMessages, LclType, LResources;
 
 type
@@ -47 +48 @@
     procedure SetColumn(const Value: Integer);
     procedure SetOrder(const Value: TSortOrder);
+    {$IFDEF WINDOWS}
     procedure NewListViewWindowProc(var AMsg: TMessage);
+    {$ENDIF}
   public
     List: TListObject;
@@ -180 +183 @@
 { TListViewSort }
 
+{$IFDEF WINDOWS}
 procedure TListViewSort.NewListViewWindowProc(var AMsg: TMessage);
 var
   vColWidth: Integer;
-  vMsgNotify: TWMNotify absolute AMsg;
+  vMsgNotify: TLMNotify absolute AMsg;
   Code: Integer;
 begin
@@ -213 +217 @@
   end;
 end;
+{$ENDIF}
 
 procedure TListViewSort.DoColumnBeginResize(const AColIndex: Integer);
@@ -261 +266 @@
   FListView.OnClick := ListViewClick;
   FOldListViewWindowProc := FListView.WindowProc;
+  {$IFDEF WINDOWS}
   FListView.WindowProc := NewListViewWindowProc;
+  {$ENDIF}
 end;