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

IDE: source marks: fix scaling.

Browse Source 
git-svn-id: trunk@57209 -
This commit is contained in:
ondrej 2018-02-01 17:39:49 +00:00
parent f6ea54d3f6
commit 5bc548965e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/sourcemarks.pas
View File

@ -233,7 +233,7 @@ type
procedure GetMarksForLine(ASrcEdit: TSourceEditorBase; ALine: integer; procedure GetMarksForLine(ASrcEdit: TSourceEditorBase; ALine: integer;
out Marks: PSourceMark; out MarkCount: integer); out Marks: PSourceMark; out MarkCount: integer);
public public
property ImgList: TImageList read FImgList write FImgList; property ImgList: TImageList read FImgList;
property Items[Index: integer]: TSourceMark read GetItems; default; property Items[Index: integer]: TSourceMark read GetItems; default;
property OnAction: TMarksActionEvent read FOnAction write FOnAction; property OnAction: TMarksActionEvent read FOnAction write FOnAction;
property ExtToolsMarks: TETMarks read FExtToolsMarks; property ExtToolsMarks: TETMarks read FExtToolsMarks;
@ -550,7 +550,7 @@ var
ImgListSize: Integer; ImgListSize: Integer;
begin begin
// create default mark icons // create default mark icons
ImgList:=TImageList.Create(Self); FImgList:=TImageList.Create(Self);
ImgListSize := TIDEImages.ScaledSize(11); ImgListSize := TIDEImages.ScaledSize(11);
ImgList.Width := ImgListSize; ImgList.Width := ImgListSize;
ImgList.Height := ImgListSize; ImgList.Height := ImgListSize;
@ -817,7 +817,7 @@ end;
function TSourceMarks.AddImage(const ResName: string): integer; function TSourceMarks.AddImage(const ResName: string): integer;
begin begin
Result := TIDEImages.AddImageToImageList(ImgList, Resname); Result := TIDEImages.AddImageToImageList(ImgList, Resname, 11);
end; end;
initialization initialization