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

UPD: in thumbnail view, if the preview is too small, zoom in to gIconsSize to maintain a normal visual, especially on Retina Display

Browse source 
(cherry picked from commit ab390e93ce)
This commit is contained in:
rich2014 2026-01-22 23:37:06 +08:00 • committed by Alexander Koblov
commit ff38f5da3d
1 changed files with 21 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/fileviews/uthumbfileview.pas
View file

@ -495,6 +495,26 @@ var
IconID: PtrInt;
Bitmap: TBitmap;
aRect: TRect;
procedure zoomInSmallPreview( var width: Integer; var height: Integer );
begin
// if the thumbnail grid cell is already small, don't zoom in
if (aRect.Width<gIconsSize) or (aRect.Height<gIconsSize) then
Exit;
// if the generated preview is large enough, don't zoom in
if (width>=gIconsSize) or (height>=gIconsSize) then
Exit;
if width >= height then begin
height:= Round( Double(height) / Double(width) * Double(gIconsSize) );
width:= gIconsSize;
end else begin
width:= Round( Double(width) / Double(height) * Double(gIconsSize) );
height:= gIconsSize;
end;
end;
begin
factor:= self.GetCanvasScaleFactor;
aRect:= params.drawingRect;
@ -509,6 +529,7 @@ var
IconWidth:= Round(Bitmap.Width / factor);
IconHeight:= Round(Bitmap.Height / factor);
IconRect.Left:= aRect.Left + (aRect.Right - aRect.Left - IconWidth) div 2;
zoomInSmallPreview(IconWidth, IconHeight);
IconRect.Top:= aRect.Top + (iTextTop - aRect.Top - IconHeight) div 2;
IconRect.Width:= IconWidth;
IconRect.Height:= IconHeight;