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

IDE: scale sourceeditor. Issue #31753

Browse Source 
git-svn-id: branches/fixes_1_8@55697 -
This commit is contained in:
mattias 2017-08-19 08:44:45 +00:00
parent 5f1ddc0419
commit 307148c6a6
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

@ -4918,6 +4918,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);