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

IDE: SourceEditor: IDESynGutterMarks High-DPI aware.

Browse Source 
git-svn-id: trunk@55775 -
This commit is contained in:
michl 2017-09-02 19:28:39 +00:00
parent 53e535b678
commit 6a4cf08b92
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/sourcesyneditor.pas
View File

@ -414,6 +414,7 @@ type
protected protected
procedure CheckTextBuffer; // Todo: Add a notification, when TextBuffer Changes procedure CheckTextBuffer; // Todo: Add a notification, when TextBuffer Changes
Procedure PaintLine(aScreenLine: Integer; Canvas : TCanvas; AClip : TRect); override; Procedure PaintLine(aScreenLine: Integer; Canvas : TCanvas; AClip : TRect); override;
function PreferedWidth: Integer; override;
public public
destructor Destroy; override; destructor Destroy; override;
procedure BeginSetDebugMarks; procedure BeginSetDebugMarks;
@ -2223,6 +2224,14 @@ begin
DrawDebugMark(aScreenLine); DrawDebugMark(aScreenLine);
end; end;
function TIDESynGutterMarks.PreferedWidth: Integer;
begin
if Assigned(SourceEditorMarks) and Assigned(SourceEditorMarks.ImgList) then
Result := SourceEditorMarks.ImgList.Width * 2 + FBookMarkOpt.LeftMargin
else
Result := inherited PreferedWidth;
end;
destructor TIDESynGutterMarks.Destroy; destructor TIDESynGutterMarks.Destroy;
begin begin
ClearDebugMarks; ClearDebugMarks;