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: Don't open by one mouse click when activate panel by mouse

Browse source
This commit is contained in:
Alexander Koblov 2018-03-16 19:54:21 +00:00
commit 41369f4d67
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/fileviews/ufileviewwithmainctrl.pas
View file

@ -108,6 +108,7 @@ type
tmRenameFile: TTimer;
FMouseRename: Boolean;
FMouseFocus: Boolean;
FMouseEnter: Boolean;
procedure AfterChangePath; override;
// Simulates releasing mouse button that started a dragging operation,
// but was released in another window or another application.
@ -600,6 +601,7 @@ end;
procedure TFileViewWithMainCtrl.MainControlEnter(Sender: TObject);
begin
Active := True;
FMouseEnter:= ssLeft in GetKeyShiftStateEx;
end;
procedure TFileViewWithMainCtrl.MainControlExit(Sender: TObject);
@ -657,9 +659,10 @@ begin
if not AtFileList then
Exit;
FMouseFocus:= MainControl.Focused;
FMouseFocus := not FMouseEnter;
FMouseEnter := False;
SetFocus;
// SetFocus;
// history navigation for mice with extra buttons
case Button of