From 3aeb9f6f61a9fbf01adfae8f06d79023620f96b8 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Wed, 26 Aug 2009 09:07:05 +0000
Subject: [PATCH] Qt: TQtWSCustomListView - implemented SetScrollBars()

git-svn-id: trunk@21450 -
---
 lcl/interfaces/qt/qtwscomctrls.pp | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/qt/qtwscomctrls.pp b/lcl/interfaces/qt/qtwscomctrls.pp
index c11f4d36d9..a00c74d216 100644
--- a/lcl/interfaces/qt/qtwscomctrls.pp
+++ b/lcl/interfaces/qt/qtwscomctrls.pp
@@ -33,7 +33,8 @@ uses
   qt4,
   qtwidgets, qtprivate, qtobjects, qtproc, qtwscontrols,
   // LCL
-  SysUtils, Classes, Types, ComCtrls, Controls, LCLType, Graphics, LCLProc, LCLIntf, Forms,
+  SysUtils, Classes, Types, ComCtrls, Controls, LCLType, Graphics, StdCtrls,
+  LCLProc, LCLIntf, Forms,
   // Widgetset
   WSProc, WSComCtrls, WSLCLClasses;
 
@@ -111,6 +112,8 @@ type
     class procedure SetProperty(const ALV: TCustomListView; const AProp: TListViewProperty; const AIsSet: Boolean); override;
     class procedure SetProperties(const ALV: TCustomListView; const AProps: TListViewProperties); override;
 
+    class procedure SetScrollBars(const ALV: TCustomListView; const AValue: TScrollStyle); override;
+
     (*
     // Column
 
@@ -1305,4 +1308,18 @@ begin
     SetProperty(ALV, i, i in AProps);
 end;
 
+class procedure TQtWSCustomListView.SetScrollBars(const ALV: TCustomListView;
+  const AValue: TScrollStyle);
+var
+  QtTreeWidget: TQtTreeWidget;
+begin
+  if not WSCheckHandleAllocated(ALV, 'SetScrollBars') then
+    Exit;
+  QtTreeWidget := TQtTreeWidget(ALV.Handle);
+  {always reset before applying new TScrollStyle}
+  QtTreeWidget.setScrollStyle(ssNone);
+  if AValue <> ssNone then
+    QtTreeWidget.setScrollStyle(AValue);
+end;
+
 end.