From 944b1d8ec78216dfc632550b7b86d8e18b599bbf Mon Sep 17 00:00:00 2001
From: micha <micha@lazarus-ide.org>
Date: Mon, 25 Oct 2004 11:13:52 +0000
Subject: [PATCH] forgotten: patch to solve scrollbar to show upon handle
 creation instead of after first resize

git-svn-id: trunk@6160 -
---
 ideintf/objectinspector.pp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/ideintf/objectinspector.pp b/ideintf/objectinspector.pp
index 09448fdf49..eed0269e10 100644
--- a/ideintf/objectinspector.pp
+++ b/ideintf/objectinspector.pp
@@ -248,6 +248,7 @@ type
     procedure UpdateScrollBar;
   protected
     procedure CreateParams(var Params: TCreateParams); override;
+    procedure CreateWnd; override;
 
     procedure MouseDown(Button:TMouseButton; Shift:TShiftState; X,Y:integer); override;
     procedure MouseMove(Shift:TShiftState; X,Y:integer);  override;
@@ -630,6 +631,13 @@ begin
   end;
 end;
 
+procedure TOICustomPropertyGrid.CreateWnd;
+begin
+  inherited CreateWnd;
+  // handle just created, set scrollbar
+  UpdateScrollBar;
+end;
+
 procedure TOICustomPropertyGrid.WMVScroll(var Msg: TWMScroll);
 begin
   case Msg.ScrollCode of