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

IDE: sourceeditor: fix smallest value

Browse Source 
git-svn-id: trunk@58335 -
This commit is contained in:
ondrej 2018-06-19 16:50:04 +00:00
parent 1dd9410185
commit c9d2b36693
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/sourcesyneditor.pas
View File

@ -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