mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug [0000062]: When quickly doubleclicking to move through directories some doubleclicks don't work.

Browse source
This commit is contained in:
cobines 2012-11-10 12:03:34 +00:00
commit f255468923
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/fileviews/ufileviewwithmainctrl.pas
View file

@ -108,6 +108,7 @@ type
}
function IsMouseSelecting: Boolean; inline;
procedure MainControlDblClick(Sender: TObject);
procedure MainControlQuadClick(Sender: TObject);
procedure MainControlDragDrop(Sender, Source: TObject; X, Y: Integer);
procedure MainControlDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
procedure MainControlEndDrag(Sender, Target: TObject; X, Y: Integer);
@ -768,6 +769,11 @@ begin
FMainControlMouseDown := False;
end;
procedure TFileViewWithMainCtrl.MainControlQuadClick(Sender: TObject);
begin
MainControlDblClick(Sender);
end;
procedure TFileViewWithMainCtrl.MainControlShowHint(Sender: TObject; HintInfo: PHintInfo);
var
AFile: TDisplayFile;
@ -964,6 +970,8 @@ begin
if FMainControl = AValue then Exit;
FMainControl := AValue;
FMainControl.ControlStyle := FMainControl.ControlStyle + [csQuadClicks];
FMainControl.OnEnter := @MainControlEnter;
FMainControl.OnExit := @MainControlExit;
FMainControl.OnKeyDown := @MainControlKeyDown;
@ -972,6 +980,7 @@ begin
FMainControl.OnUTF8KeyPress := @MainControlUTF8KeyPress;
TControlHandlersHack(FMainControl).OnDblClick := @MainControlDblClick;
TControlHandlersHack(FMainControl).OnQuadClick := @MainControlQuadClick;
TControlHandlersHack(FMainControl).OnDragDrop := @MainControlDragDrop;
TControlHandlersHack(FMainControl).OnDragOver := @MainControlDragOver;
TControlHandlersHack(FMainControl).OnEndDrag := @MainControlEndDrag;