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

IDE: highDPI: support source editor (editor toolbar).

Browse Source 
git-svn-id: trunk@53545 -
This commit is contained in:
ondrej 2016-12-03 08:23:00 +00:00
parent bbef187785
commit c22bc4f0c3
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/editortoolbarstatic.pas
View File

@ -219,6 +219,9 @@ begin
CfgItem.OnClick := @FCollection.DoConfigureEditorToolbar; CfgItem.OnClick := @FCollection.DoConfigureEditorToolbar;
FToolBar.PopupMenu := xPM; FToolBar.PopupMenu := xPM;
if FWindow.PixelsPerInch<>96 then
FToolBar.AutoAdjustLayout(lapAutoAdjustForDPI, 96, FWindow.PixelsPerInch, 0, 0, False);
end; end;
destructor TEditorToolbar.Destroy; destructor TEditorToolbar.Destroy;

3
ide/sourceeditor.lfm
View File

@ -8,7 +8,8 @@ object SourceNotebook: TSourceNotebook
ClientHeight = 300 ClientHeight = 300
ClientWidth = 400 ClientWidth = 400
OnMouseUp = FormMouseUp OnMouseUp = FormMouseUp
LCLVersion = '1.5' LCLVersion = '1.7'
Scaled = True
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Height = 20 Height = 20