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

IDE: fix editor debug marks painting in high-dpi

Browse Source 
git-svn-id: trunk@58328 -
This commit is contained in:
ondrej 2018-06-19 11:12:56 +00:00
parent 5d96eac5ae
commit bf30f6c5f4
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/sourcesyneditor.pas
View File

@ -48,7 +48,7 @@ uses
{$ENDIF}
Classes, SysUtils,
// LCL
Controls, LCLProc, LCLType, Graphics, Menus,
Controls, LCLProc, LCLType, Graphics, Menus, ImgList,
// synedit
SynEdit, SynEditMiscClasses, SynGutter, SynGutterBase, SynEditMarks,
SynEditTypes, SynGutterLineNumber, SynGutterCodeFolding, SynGutterMarks,
@ -2232,6 +2232,7 @@ var
var
itop : Longint;
LineHeight: LongInt;
img: TScaledImageListResolution;
begin
if Line < 0 then Exit;
if Assigned(FBookMarkOpt.BookmarkImages) and
@ -2239,11 +2240,12 @@ var
(DebugMarksImageIndex >= 0) then
begin
LineHeight := TSynEdit(SynEdit).LineHeight;
img := GetImgListRes(Canvas, FBookMarkOpt.BookmarkImages);
iTop := 0;
if LineHeight > FBookMarkOpt.BookmarkImages.Height then
iTop := (LineHeight - FBookMarkOpt.BookmarkImages.Height) div 2;
if LineHeight > img.Height then
iTop := (LineHeight - img.Height) div 2;
FBookMarkOpt.BookmarkImages.Draw
img.Draw
(Canvas, AClip.Left + FBookMarkOpt.LeftMargin + aGutterOffs * ColumnWidth,
AClip.Top + iTop, DebugMarksImageIndex, True);
end