mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Thumbnails alignment

Browse source
This commit is contained in:
Alexander Koblov 2013-01-02 16:29:27 +00:00
commit 5df18712b5
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/fileviews/uthumbfileview.pas
View file

@ -247,7 +247,7 @@ procedure TThumbDrawGrid.UpdateView;
Canvas.Font.Style := gFonts[dcfMain].Style;
Canvas.Font.Size := gFonts[dcfMain].Size;
Result := gThumbHeight + Canvas.GetTextHeight('Wg') + 4;
Result := gThumbHeight + Canvas.GetTextHeight('Wg') + 6;
// Restore old font.
Canvas.Font := OldFont;
@ -394,17 +394,17 @@ var
FileSourceDirectAccess,
Canvas,
aRect.Left + 2,
iTextTop - gIconsSize
iTextTop - gIconsSize - 2
);
end;
s := AFile.DisplayStrings[0];
Y:= (DefaultColWidth - 4 - Canvas.TextWidth('W'));
Y:= (ColWidths[ACol] - 4 - Canvas.TextWidth('W'));
s:= FitFileName(s, Canvas, AFile.FSFile, Y);
Canvas.TextOut(aRect.Left + 2, iTextTop, s);
Canvas.Pen.Color:= InvertColor(gBackColor);
Canvas.Frame(aRect.Left + 1, aRect.Top + 1, aRect.Right - 1, aRect.Bottom - Canvas.TextHeight('Pp'));
Canvas.Frame(aRect.Left + 1, aRect.Top + 1, aRect.Right - 1, aRect.Bottom - Canvas.TextHeight('Pp') - 1);
end; //of DrawIconCell
//------------------------------------------------------