paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 19:56:21 +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 c74b232d9a
commit 15853ffffd
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;
end;
end;
if Mediator<>nil then
if (Mediator<>nil) and (ParentComponent=nil) then
begin
NewSize:=Mediator.GetDefaultSize;
if NewWidth=0 then
@ -1536,9 +1536,6 @@ begin
end
else begin
// non TControl
if CompWidth <= 0 then CompWidth := 50;
if CompHeight <= 0 then CompHeight := 50;
CompLeft := Max(Low(SmallInt), Min(High(SmallInt), CompLeft));
CompTop := Max(Low(SmallInt), Min(High(SmallInt), CompTop));
if Mediator=nil then