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

Fix DPI scaling for synedit gutter marks in IDE options preview editor. Issue #37857

Browse Source 
git-svn-id: trunk@64778 -
This commit is contained in:
martin 2021-03-10 18:35:39 +00:00
parent ce01c83e72
commit 13fc4dd5e2
1 changed files with 5 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/frames/editor_general_options.pas
View File

@ -27,7 +27,7 @@ interface
uses
Classes, SysUtils, math,
// LCL
LCLProc, LCLType, StdCtrls, Controls, Graphics,
LCLProc, LCLType, StdCtrls, Controls, Graphics, ImgList,
// LazControls
DividerBevel,
// SynEdit
@ -35,7 +35,7 @@ uses
// IdeIntf
IDEOptionsIntf, IDEOptEditorIntf, IDEUtils, SrcEditorIntf,
// IDE
EditorOptions, LazarusIDEStrConsts;
EditorOptions, LazarusIDEStrConsts, SourceMarks;
type
TPreviewEditor = TSynEdit;
@ -90,11 +90,10 @@ type
procedure ScrollPastEndFileCheckBoxChange(Sender: TObject);
procedure ScrollPastEndLineCheckBoxChange(Sender: TObject);
private
FDefaultBookmarkImages: TImageList;
FDialog: TAbstractOptionsEditorDialog;
FPasExtendedKeywordsMode: Boolean;
FPasStringKeywordMode: TSynPasStringMode;
function DefaultBookmarkImages: TImageList;
function DefaultBookmarkImages: TCustomImageList;
procedure SetExtendedKeywordsMode(const AValue: Boolean);
procedure SetStringKeywordMode(const AValue: TSynPasStringMode);
protected
@ -423,19 +422,9 @@ begin
SetPreviewOption(ScrollPastEndLineCheckBox.Checked, eoScrollPastEoL);
end;
function TEditorGeneralOptionsFrame.DefaultBookmarkImages: TImageList;
var
i: integer;
function TEditorGeneralOptionsFrame.DefaultBookmarkImages: TCustomImageList;
begin
if FDefaultBookmarkImages = nil then
begin
FDefaultBookmarkImages := TImageList.Create(Self);
FDefaultBookmarkImages.Width := 11;
FDefaultBookmarkImages.Height := 11;
for i in TBookmarkNumRange do
FDefaultBookmarkImages.AddResourceName(HInstance, 'bookmark' + IntToStr(i));
end;
Result := FDefaultBookmarkImages;
Result := SourceEditorMarks.ImgList;
end;
procedure TEditorGeneralOptionsFrame.SetExtendedKeywordsMode(const AValue: Boolean);