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

git-svn-id: trunk@6160 -
This commit is contained in:
micha 2004-10-25 11:13:52 +00:00
parent 3c81935809
commit 944b1d8ec7

View File

@ -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