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: Rename file in thumbnail view mode

Browse source
This commit is contained in:
Alexander Koblov 2013-01-01 10:11:32 +00:00
commit 2d24bd67bb
1 changed files with 29 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

30
src/fileviews/uthumbfileview.pas
View file

@ -6,7 +6,8 @@ interface
uses
Classes, SysUtils, Controls, Grids, DCXmlConfig, uFileSource, uOrderedFileView,
uDisplayFile, uFileViewWorker, uThumbnails, uFileView, uTypes, uFileViewWithGrid;
uDisplayFile, uFileViewWorker, uThumbnails, uFileView, uTypes, uFileViewWithGrid,
uFile;
type
@ -75,6 +76,7 @@ type
procedure EnsureDisplayProperties; override;
function GetFileViewGridClass: TFileViewGridClass; override;
function GetVisibleFilesIndexes: TRange; override;
procedure ShowRenameFileEdit(aFile: TFile); override;
public
constructor Create(AOwner: TWinControl; AConfig: TXmlConfig; ANode: TXmlNode; AFlags: TFileViewFlags = []); override;
constructor Create(AOwner: TWinControl; AFileView: TFileView; AFlags: TFileViewFlags = []); override;
@ -544,6 +546,32 @@ begin
end;
end;
procedure TThumbFileView.ShowRenameFileEdit(aFile: TFile);
var
ARect: TRect;
ALeft, ATop, AWidth, AHeight: Integer;
begin
if not edtRename.Visible then
begin
edtRename.Font.Name := gFonts[dcfMain].Name;
edtRename.Font.Size := gFonts[dcfMain].Size;;
edtRename.Font.Style := gFonts[dcfMain].Style;
with dgPanel do
begin
ARect := CellRect(Col, Row);
ATop := ARect.Bottom - Canvas.TextHeight('Wg') - 4;
ALeft := ARect.Left;
AWidth := ARect.Right - ALeft;
AHeight := ARect.Bottom - ATop;
end;
edtRename.SetBounds(ALeft, ATop, AWidth, AHeight);
end;
inherited ShowRenameFileEdit(AFile);
end;
constructor TThumbFileView.Create(AOwner: TWinControl; AConfig: TXmlConfig;
ANode: TXmlNode; AFlags: TFileViewFlags);
begin