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

ide: designer: let mediator decide the default size

Browse Source
This commit is contained in:
mattias 2024-10-09 11:26:05 +02:00
parent c0026138de
commit 0f291ef044
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/customformeditor.pp
View File

@ -1316,7 +1316,7 @@ var
FreeMediator:=true; FreeMediator:=true;
end; end;
end; end;
if Mediator<>nil then if (Mediator<>nil) and (ParentComponent=nil) then
begin begin
NewSize:=Mediator.GetDefaultSize; NewSize:=Mediator.GetDefaultSize;
if NewWidth=0 then if NewWidth=0 then
@ -1536,9 +1536,6 @@ begin
end end
else begin else begin
// non TControl // non TControl
if CompWidth <= 0 then CompWidth := 50;
if CompHeight <= 0 then CompHeight := 50;
CompLeft := Max(Low(SmallInt), Min(High(SmallInt), CompLeft)); CompLeft := Max(Low(SmallInt), Min(High(SmallInt), CompLeft));
CompTop := Max(Low(SmallInt), Min(High(SmallInt), CompTop)); CompTop := Max(Low(SmallInt), Min(High(SmallInt), CompTop));
if Mediator=nil then if Mediator=nil then