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: Item size and text position with big font

Browse source
This commit is contained in:
Alexander Koblov 2015-01-08 18:53:36 +00:00
commit b4099ba669
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/frames/foptionsfileassoc.pas
View file

@ -135,7 +135,7 @@ implementation
{$R *.lfm}
uses
LCLType, uGlobsPaths, uGlobs, uPixMapManager, uLng, uDCUtils,
Math, LCLType, uGlobsPaths, uGlobs, uPixMapManager, uLng, uDCUtils,
DCOSUtils, DCStrUtils;
{ TfrmOptionsFileAssoc }
@ -166,7 +166,7 @@ begin
// load extension file
if mbFileExists(gpCfgDir + 'doublecmd.ext') then
Exts.LoadFromFile(gpCfgDir + 'doublecmd.ext');
lbFileTypes.ItemHeight := gIconsSize + 4;
lbFileTypes.ItemHeight := Max(gIconsSize, lbFileTypes.Canvas.TextHeight('Pp')) + 4;
// fill file types list box
for I := 0 to Exts.Count - 1 do
begin
@ -344,7 +344,7 @@ end;
procedure TfrmOptionsFileAssoc.lbFileTypesDrawItem(Control: TWinControl;
Index: Integer; ARect: TRect; State: TOwnerDrawState);
var
iTextTop: Integer;
iDrawTop: Integer;
begin
with (Control as TListBox) do
begin
@ -361,10 +361,13 @@ begin
Canvas.FillRect(ARect);
end;
iTextTop := ARect.Top + (gIconsSize div 2) - (Canvas.TextHeight(Items[Index]) div 2);
if (Canvas.Locked = False) and (Assigned(Items.Objects[Index])) then
Canvas.Draw(ARect.Left + 2, ARect.Top + 2, TBitmap(Items.Objects[Index]));
Canvas.TextOut(ARect.Left + gIconsSize + 6, iTextTop, Items[Index]);
begin
iDrawTop := ARect.Top + ((lbFileTypes.ItemHeight - gIconsSize) div 2);
Canvas.Draw(ARect.Left + 2, iDrawTop, 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;