paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed setting height of vertical scrollbar after loading when handle is not yet created

Browse Source 
git-svn-id: trunk@17534 -
This commit is contained in:
marc 2008-11-23 02:21:15 +00:00
parent 62a3b51538
commit b9211d6127
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lcl/include/scrollbar.inc
View File

@ -80,21 +80,24 @@ var
OldWidth: Integer;
OldHeight: Integer;
begin
if FKind <> Value then begin
FKind := Value;
// switch width and height, but not when loading, because we assume that
// the lfm contains a consistent combination of kind and (width, height)
if not (csLoading in ComponentState) then begin
OldWidth:=Width;
OldHeight:=Height;
// TODO: Remove RecreateWnd
if HandleAllocated then
RecreateWnd(Self)
else
Constraints.UpdateInterfaceConstraints;
SetBounds(Left,Top,OldHeight,OldWidth);
end;
end;
if FKind = Value then Exit;
FKind := Value;
// the InterfaceConstraints need to get updated, even when loading
OldWidth:=Width;
OldHeight:=Height;
Constraints.UpdateInterfaceConstraints;
// switch width and height, but not when loading, because we assume that
// the lfm contains a consistent combination of kind and (width, height)
if csLoading in ComponentState then Exit;
// TODO: Remove RecreateWnd
if HandleAllocated
then RecreateWnd(Self);
SetBounds(Left,Top,OldHeight,OldWidth);
end;
procedure TCustomScrollBar.SetParams(APosition, AMin, AMax, APageSize: Integer);