From 5bc548965ec66f9112c6af2927bf2394d0f51274 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Thu, 1 Feb 2018 17:39:49 +0000
Subject: [PATCH] IDE: source marks: fix scaling.

git-svn-id: trunk@57209 -
---
 ide/sourcemarks.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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