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

IDE: scale sourceeditor. issue #31753

Browse Source 
git-svn-id: trunk@55676 -
This commit is contained in:
ondrej 2017-08-17 10:40:11 +00:00
parent 3f21545b7d
commit 6fe5b10fcc
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourceeditor.pp
View File

@ -4927,6 +4927,8 @@ Begin
RegisterMouseActionExecHandler(@EditorHandleMouseAction);
// IMPORTANT: when you change above, don't forget updating UnbindEditor
Parent := AParent;
if AParent.Font.PixelsPerInch<>96 then
AutoAdjustLayout(lapAutoAdjustForDPI, 96, AParent.Font.PixelsPerInch, 0, 0);
end;
Manager.CodeTemplateModul.AddEditor(FEditor);
Manager.FMacroRecorder.AddEditor(FEditor);