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

ADD: Dynamically update thumbnails size

Browse source
This commit is contained in:
Alexander Koblov 2013-01-12 10:25:09 +00:00
commit e4f3a4f60d
1 changed files with 22 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/fileviews/uthumbfileview.pas
View file

@ -5,7 +5,7 @@ unit uThumbFileView;
interface
uses
Classes, SysUtils, Controls, Grids, DCXmlConfig, uFileSource, uOrderedFileView,
Classes, SysUtils, Controls, Grids, Types, DCXmlConfig, uFileSource, uOrderedFileView,
uDisplayFile, uFileViewWorker, uThumbnails, uFileView, uTypes, uFileViewWithGrid,
uFile;
@ -48,6 +48,7 @@ type
TThumbDrawGrid = class(TFileViewGrid)
private
FThumbSize: TSize;
FThumbView: TThumbFileView;
FUpdateColCount: Integer;
protected
@ -236,6 +237,8 @@ end;
procedure TThumbDrawGrid.UpdateView;
var
I: Integer;
function CalculateDefaultRowHeight: Integer;
var
@ -266,6 +269,20 @@ begin
// Calculate column width
CalculateColumnWidth;
// Refresh thumbnails
if (FThumbSize.cx <> gThumbSize.cx) or (FThumbSize.cy <> gThumbSize.cy) then
begin
FThumbSize:= gThumbSize;
FThumbView.FBitmapList.Clear;
if Assigned(FThumbView.FAllDisplayFiles) then
begin
// Clear thumbnail image index
for I := 0 to FThumbView.FAllDisplayFiles.Count - 1 do
FThumbView.FAllDisplayFiles[I].Tag:= -1;
end;
FThumbView.Notify([fvnVisibleFilePropertiesChanged]);
end;
end;
procedure TThumbDrawGrid.CalculateColRowCount;
@ -301,11 +318,10 @@ begin
for ACol := 0 to ColCount - 1 do
ColWidths[ACol]:= ARow;
end;
// Restore active file index
IndexToCell(AIndex, ACol, ARow);
MoveExtend(False, ACol, ARow);
end;
// Restore active file index
IndexToCell(AIndex, ACol, ARow);
MoveExtend(False, ACol, ARow);
end;
finally
EndUpdate(True);
@ -342,6 +358,7 @@ end;
constructor TThumbDrawGrid.Create(AOwner: TComponent; AParent: TWinControl);
begin
FThumbSize:= gThumbSize;
FThumbView:= AParent as TThumbFileView;
inherited Create(AOwner, AParent);
end;