From c9d2b3669329b4d6c9fa081151473e5704b56d2e Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Tue, 19 Jun 2018 16:50:04 +0000
Subject: [PATCH] IDE: sourceeditor: fix smallest value

git-svn-id: trunk@58335 -
---
 ide/sourcesyneditor.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ide/sourcesyneditor.pas b/ide/sourcesyneditor.pas
index f665198fb4..ef65e60c1d 100644
--- a/ide/sourcesyneditor.pas
+++ b/ide/sourcesyneditor.pas
@@ -2330,7 +2330,7 @@ end;
 function TIDESynGutterMarks.GetImgListRes(const ACanvas: TCanvas;
   const AImages: TCustomImageList): TScaledImageListResolution;
 const
-  AllowedHeights: array[0..5] of Integer = (8, 11, 16, 22, 33, 44);
+  AllowedHeights: array[0..5] of Integer = (5, 8, 11, 16, 22, 33, 44);
 var
   Scale: Double;
   PPI, LineHeight, I, ImageHeight: Integer;
@@ -2344,7 +2344,7 @@ begin
   if SynEdit is TSynEdit then
   begin
     LineHeight := TSynEdit(SynEdit).LineHeight;
-    ImageHeight := Low(AllowedHeights);
+    ImageHeight := AllowedHeights[0];
     for I := High(AllowedHeights) downto Low(AllowedHeights) do
       if AllowedHeights[I]<LineHeight then
       begin