From 99f0cddd30443ea219090a143916b718f29617ea Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Wed, 15 Aug 2007 18:13:43 +0000
Subject: [PATCH] lcl: added ListView.Tooltips property, implemented for win32
 widgetset (bug #9136)

git-svn-id: trunk@11823 -
---
 lcl/comctrls.pp                                | 5 ++++-
 lcl/include/customlistview.inc                 | 2 +-
 lcl/interfaces/win32/win32wscustomlistview.inc | 3 ++-
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index 352d8c1270..aba703e422 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -831,7 +831,8 @@ type
     lvpRowSelect,
     lvpShowColumnHeaders,
     lvpShowWorkAreas,
-    lvpWrapText
+    lvpWrapText,
+    lvpToolTips
   );
   TListViewProperties = set of TListViewProperty;
 
@@ -967,6 +968,7 @@ type
     property SortType: TSortType read FSortType write SetSortType;
     property SortColumn: Integer read FSortColumn write SetSortColumn;
     property StateImages: TCustomImageList index Ord(lvilState) read GetImageList write SetImageList;
+    property ToolTips: Boolean index Ord(lvpToolTips) read GetProperty write SetProperty default True;
     property ViewStyle: TViewStyle read FViewStyle write SetViewStyle default vsList;
     property OnChange: TLVChangeEvent read FOnChange write FOnChange;
     property OnColumnClick: TLVColumnClickEvent read FOnColumnClick write FOnColumnClick;
@@ -1053,6 +1055,7 @@ type
     property StateImages;
     property TabStop;
     property TabOrder;
+    property ToolTips;
     property Visible;
     property ViewStyle;
     property OnAdvancedCustomDraw;
diff --git a/lcl/include/customlistview.inc b/lcl/include/customlistview.inc
index 5b19f63cbc..0a53927a94 100644
--- a/lcl/include/customlistview.inc
+++ b/lcl/include/customlistview.inc
@@ -37,7 +37,7 @@ begin
   Color := clWindow;  
   FCanvas := TControlCanvas.Create;
   TControlCanvas(FCanvas).Control := Self;
-  FProperties := [lvpColumnClick, lvpHideSelection, lvpShowColumnHeaders];
+  FProperties := [lvpColumnClick, lvpHideSelection, lvpShowColumnHeaders, lvpToolTips];
 end;
 
 {------------------------------------------------------------------------------}
diff --git a/lcl/interfaces/win32/win32wscustomlistview.inc b/lcl/interfaces/win32/win32wscustomlistview.inc
index 952ec5818c..099828f4cd 100644
--- a/lcl/interfaces/win32/win32wscustomlistview.inc
+++ b/lcl/interfaces/win32/win32wscustomlistview.inc
@@ -39,7 +39,8 @@ const
     (StyleType: lsExStyle; Style: LVS_EX_FULLROWSELECT),   // lvpRowSelect
     (StyleType: lsInvert;  Style: LVS_NOCOLUMNHEADER),     // lvpShowColumnHeaders
     (StyleType: lsExStyle; Style: LVS_EX_MULTIWORKAREAS),  // lvpShowWorkAreas
-    (StyleType: lsInvert;  Style: LVS_NOLABELWRAP)         // lvpWrapText
+    (StyleType: lsInvert;  Style: LVS_NOLABELWRAP),        // lvpWrapText
+    (StyleType: lsExStyle; Style: LVS_EX_LABELTIP)         // lvpToolTips
   );