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

IDE: high-DPI: scale created components

Browse Source 
git-svn-id: trunk@55734 -
This commit is contained in:
ondrej 2017-08-21 20:00:14 +00:00
parent dc9601276e
commit 6c35289e98
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/customformeditor.pp
View File

@ -1337,8 +1337,18 @@ begin
begin
AControl := TControl(NewComponent);
// calc bounds
if CompWidth <= 0 then CompWidth := Max(5, AControl.Width);
if CompHeight <= 0 then CompHeight := Max(5, AControl.Height);
if CompWidth <= 0 then
begin
CompWidth := Max(5, AControl.Width);
if AParent<>nil then
CompWidth := AParent.Scale96ToForm(CompWidth);
end;
if CompHeight <= 0 then
begin
CompHeight := Max(5, AControl.Height);
if AParent<>nil then
CompHeight := AParent.Scale96ToForm(CompHeight);
end;
MonitorBounds := ActiveMonitor.BoundsRect;
if (CompLeft < 0) and (AParent <> nil) then
CompLeft := (AParent.Width - CompWidth) div 2