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

IDE: High-DPI: SourceEditor: Fixed source mark image sizes.

Browse Source 
git-svn-id: trunk@55513 -
This commit is contained in:
michl 2017-07-15 19:34:28 +00:00
parent 470d10fcd0
commit 8cbf3a8724
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/sourcemarks.pas
View File

@ -44,7 +44,7 @@ uses
// SynEdit
SynEdit, SynEditMarks, SynEditMarkupGutterMark,
// IdeIntf
MenuIntf, SrcEditorIntf, IDEExternToolIntf,
MenuIntf, SrcEditorIntf, IDEExternToolIntf, IDEImagesIntf,
// IDE
etSrcEditMarks;
@ -543,11 +543,13 @@ var
ImgIDWarning: Integer;
ImgIDNote: Integer;
ImgIDHint: Integer;
ImgListSize: Integer;
begin
// create default mark icons
ImgList:=TImageList.Create(Self);
ImgList.Width:=11;
ImgList.Height:=11;
ImgListSize := TIDEImages.ScaledSize(11);
ImgList.Width := ImgListSize;
ImgList.Height := ImgListSize;
// synedit expects the first 10 icons for the bookmarks
for i := 0 to 9 do
@ -808,7 +810,7 @@ end;
function TSourceMarks.AddImage(const ResName: string): integer;
begin
Result := ImgList.AddResourceName(HInstance, Resname);
Result := TIDEImages.AddImageToImageList(ImgList, Resname, 11);
end;
initialization