mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Draw icon with the correct size when scaling used

Browse source 
(cherry picked from commit 0a66df886b)
This commit is contained in:
Alexander Koblov 2026-04-02 19:45:49 +03:00
commit 69bb8780c6
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/frames/foptionsfileassoc.pas
View file

@ -615,7 +615,8 @@ end;
{ TfrmOptionsFileAssoc.lbFileTypesDrawItem }
procedure TfrmOptionsFileAssoc.lbFileTypesDrawItem(Control: TWinControl; Index: integer; ARect: TRect; State: TOwnerDrawState);
var
iDrawTop: integer;
iDrawTop: Integer;
AStyle: TTextStyle;
begin
with (Control as TListBox) do
begin
@ -640,13 +641,16 @@ begin
Canvas.FillRect(ARect);
end;
AStyle:= Canvas.TextStyle;
AStyle.Layout:= tlCenter;
Canvas.TextRect(ARect, gIconsSize + 6, 0, Items[Index], AStyle);
if (Canvas.Locked = False) and (Assigned(Items.Objects[Index])) then
begin
iDrawTop := ARect.Top + ((lbFileTypes.ItemHeight - gIconsSize) div 2);
Canvas.Draw(ARect.Left + 2, iDrawTop, TBitmap(Items.Objects[Index]));
iDrawTop := ARect.Top + ((ARect.Height - gIconsSize) div 2);
ARect:= Classes.Bounds(ARect.Left + 2, iDrawTop, gIconsSize, gIconsSize);
Canvas.StretchDraw(ARect, TBitmap(Items.Objects[Index]));
end;
iDrawTop := ARect.Top + ((lbFileTypes.ItemHeight - Canvas.TextHeight(Items[Index])) div 2);
Canvas.TextOut(ARect.Left + gIconsSize + 6, iDrawTop, Items[Index]);
end;
end;