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: Delete via button

Browse source
This commit is contained in:
Alexander Koblov 2015-10-24 17:50:49 +00:00
commit 891fdf7ada
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/fmain.pas
View file

@ -976,8 +976,11 @@ procedure TfrmMain.btnF8MouseDown(Sender: TObject; Button: TMouseButton;
var
Point: TPoint;
begin
Point := (Sender as TControl).ClientToScreen(Classes.Point(X, Y));
ShowTrashContextMenu(Self, Point.X, Point.Y, nil);
if Button = mbRight then
begin
Point := (Sender as TControl).ClientToScreen(Classes.Point(X, Y));
ShowTrashContextMenu(Self, Point.X, Point.Y, nil);
end;
end;
procedure TfrmMain.mnuAllOperStopClick(Sender: TObject);