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

IDE: sourceeditor: fix smallest value

Browse Source 
git-svn-id: trunk@58336 -
This commit is contained in:
ondrej 2018-06-19 16:52:12 +00:00
parent c9d2b36693
commit 452ea18e69
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourcesyneditor.pas
View File

@ -2330,7 +2330,7 @@ end;
function TIDESynGutterMarks.GetImgListRes(const ACanvas: TCanvas; function TIDESynGutterMarks.GetImgListRes(const ACanvas: TCanvas;
const AImages: TCustomImageList): TScaledImageListResolution; const AImages: TCustomImageList): TScaledImageListResolution;
const const
AllowedHeights: array[0..5] of Integer = (5, 8, 11, 16, 22, 33, 44); AllowedHeights: array[0..6] of Integer = (5, 8, 11, 16, 22, 33, 44);
var var
Scale: Double; Scale: Double;
PPI, LineHeight, I, ImageHeight: Integer; PPI, LineHeight, I, ImageHeight: Integer;