UPD: Optimize DrawPreviewDrawCell procedure in Viewer

This commit is contained in:
Alexander Koblov 2010-12-04 10:09:28 +00:00
commit cb144c7b0c

View file

@ -1211,6 +1211,7 @@ begin
begin
sName:= ExtractOnlyFileName(FileList.Strings[i]);
sExt:= ExtractFileExt(FileList.Strings[i]);
DrawPreview.Canvas.FillRect(aRect); // Clear cell
lstPreviewImg.Draw(DrawPreview.Canvas, aRect.Left+z+4, aRect.Top+5, i, True);
if DrawPreview.Canvas.GetTextWidth(sName+sExt) < DrawPreview.DefaultColWidth then
begin