paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-01 23:49:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: image support, TScrollBox, and many other things from Andrew

Browse Source 
git-svn-id: trunk@1162 -
This commit is contained in:
lazarus 2002-02-09 01:48:00 +00:00
parent bc261e943c
commit 7bba64c548
1 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
lcl/include/wincontrol.inc
View File

@ -282,6 +282,45 @@ begin
if Showing then AdjustSize;
end;
Procedure TWinControl.DoAutoSize;
var
I : Integer;
NewBounds : TRect;
begin
If AutoSize and not AutoSizing then
If csAcceptsControls in ControlStyle then
If ControlCount > 0 then begin
AutoSizing := True;
NewBounds := Rect(High(Integer),High(Integer),0,0);
For I := 0 to ControlCount - 1 do
If Controls[I].Visible then
With NewBounds do begin
Left := Min(Controls[I].Left, Left);
Top := Min(Controls[I].Top, Top);
Right := Max(Controls[I].Left + Controls[I].Width, Right);
Bottom := Max(Controls[I].Top + Controls[I].Height, Bottom);
end;
For I := 0 to ControlCount - 1 do
If Controls[I] <> nil then begin
If Controls[I].Visible then begin
Controls[I].Left := Controls[I].Left - NewBounds.Left;
Controls[I].Top := Controls[I].Top - NewBounds.Top;
end;
end;
ClientWidth := NewBounds.Right - NewBounds.Left;
ClientHeight := NewBounds.Bottom - NewBounds.Top;
AutoSizing := False;
end;
end;
Procedure TWinControl.SetAutoSize(const Value : Boolean);
begin
If AutoSize <> Value then begin
FAutoSize := Value;
DoAutoSize;
end;
end;
{------------------------------------------------------------------------------}
{ TWinControl BroadCast }
{------------------------------------------------------------------------------}
@ -2299,6 +2338,9 @@ end;
{ =============================================================================
$Log$
Revision 1.84 2002/09/03 08:07:20 lazarus
MG: image support, TScrollBox, and many other things from Andrew
Revision 1.83 2002/09/01 16:11:22 lazarus
MG: double, triple and quad clicks now works