1
Procedure DoProperties(widget : pGtkWidget ; Window : PMainWindow); cdecl;
5
Dlg : PFilePropertiesDialog;
9
S:=AddTrailingSeparator(FDir)+GetFileFirstSelection(FileList);
10
Dlg:=NewFilePropertiesDialog(S);
11
ShowFilePropertiesDialog(Dlg);
14
Procedure DeleteFile(Widget : PGtkWidget; Window : PMainWindow); cdecl;
20
S:=TStringList.Create;
22
GetFileSelection(Window^.FileList,S);
23
For I:=0 to S.Count-1 do
25
For I:=0 to S.Count-1 do
26
SysUtils.DeleteFile(Window^.FDir+S[i]);
30
RefreshFileView(Window);
b'\\ No newline at end of file'