From bb3984fa0a50fbc1c2b743004a5c0b2c15c57ee4 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Thu, 27 Aug 2009 10:52:05 +0000
Subject: [PATCH] Qt: added lvpHideSelection feature to TQtWSCustomListView

git-svn-id: trunk@21462 -
---
 lcl/interfaces/qt/qtwscomctrls.pp | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/lcl/interfaces/qt/qtwscomctrls.pp b/lcl/interfaces/qt/qtwscomctrls.pp
index a00c74d216..d1a18ac61b 100644
--- a/lcl/interfaces/qt/qtwscomctrls.pp
+++ b/lcl/interfaces/qt/qtwscomctrls.pp
@@ -1282,9 +1282,12 @@ const
 begin
   if not WSCheckHandleAllocated(ALV, 'SetProperty')
   then Exit;
-
   case AProp of
-    lvpMultiSelect: TQtTreeWidget(ALV.Handle).setSelectionMode(BoolToSelectionMode[AIsSet]);
+    lvpMultiSelect:
+      begin
+        if (TQtTreeWidget(ALV.Handle).getSelectionMode <> QAbstractItemViewNoSelection) then
+          TQtTreeWidget(ALV.Handle).setSelectionMode(BoolToSelectionMode[AIsSet]);
+      end;
     lvpShowColumnHeaders: TQtTreeWidget(ALV.Handle).setHeaderVisible(AIsSet);
     lvpReadOnly: TQtTreeWidget(ALV.Handle).setEditTriggers(BoolToEditTriggers[AIsSet]);
     lvpRowSelect:
@@ -1293,6 +1296,15 @@ begin
         TQtTreeWidget(ALV.Handle).setSelectionBehavior(BoolToSelectionBehavior[AIsSet]);
       end;
     lvpWrapText: TQtTreeWidget(ALV.Handle).setWordWrap(AIsSet);
+    lvpHideSelection:
+      begin
+        if AIsSet then
+        begin
+          TQtTreeWidget(ALV.Handle).clearSelection;
+          TQtTreeWidget(ALV.Handle).setSelectionMode(QAbstractItemViewNoSelection);
+        end else
+          TQtTreeWidget(ALV.Handle).setSelectionMode(BoolToSelectionMode[ALV.MultiSelect]);
+      end;
   end;
 end;
 
@@ -1303,7 +1315,6 @@ var
 begin
   if not WSCheckHandleAllocated(ALV, 'SetProperties')
   then Exit;
-
   for i := Low(TListViewProperty) to High(TListViewProperty) do
     SetProperty(ALV, i, i in AProps);
 end;