paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-19 19:09:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

AJ:switched TImage.Autosize to use DoAutoSize

Browse Source 
git-svn-id: trunk@3524 -
This commit is contained in:
lazarus 2002-10-20 22:31:08 +00:00
parent 8ef3f22c76
commit f7e74c0c19
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/image.inc
View File

@ -19,7 +19,7 @@ begin
inherited Create(AOwner);
FCompStyle := csImage;
ControlStyle:= [csCaptureMouse, csDoubleClicks];
FAutoSize := False;
AutoSize := False;
FCenter := False;
FStretch := False;
FTransparent := True;
@ -41,12 +41,13 @@ begin
FPicture.Assign(AValue); //the onchange of the picture gets called and notifies that something changed.
end;
procedure TImage.SetAutoSize(const Value : Boolean);
procedure TImage.DoAutoSize;
var
ModifyWidth,
ModifyHeight : Boolean;
begin
If Value then begin
If AutoSize and not AutoSizing then begin
AutoSizing := True;
ModifyWidth := (Align = alleft) or (Align = alRight) or (Align = alNone);
ModifyHeight := (Align = alTop) or (Align = alBottom) or (Align = alNone);
If ModifyWidth and (Picture.Width > 0) then
@ -54,8 +55,8 @@ begin
If ModifyHeight and (Picture.Height > 0) then
Height := Max(Picture.Height, CONSTRAINTS.MinHeight);
PictureChanged(Self);
AutoSizing := False;
end;
FAutoSize := Value;
end;
procedure TImage.SetStretch(Value : Boolean);