paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 09:59:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

forgotten: patch to solve scrollbar to show upon handle creation instead of after first resize

Browse Source 
git-svn-id: trunk@6160 -
This commit is contained in:
micha 2004-10-25 11:13:52 +00:00
parent 3c81935809
commit 944b1d8ec7
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ideintf/objectinspector.pp
View File

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