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: Set focus on mouse click (Lazarus 3.x)

Browse source
This commit is contained in:
Alexander Koblov 2024-03-27 20:28:19 +03:00
commit e2cf8a099d
1 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/fileviews/ufileviewwithgrid.pas
View file

@ -266,9 +266,18 @@ begin
FFileView.FMainControlMouseDown := True;
AllowOutboundEvents := False;
inherited MouseDown(Button, Shift, X, Y);
AllowOutboundEvents := True;
if MouseOnGrid(X, Y) then
inherited MouseDown(Button, Shift, X, Y)
else begin
if Assigned(OnMouseDown) then
begin
OnMouseDown(Self, Button, Shift, X, Y);
end;
if not Focused then
begin
if CanSetFocus then SetFocus;
end;
end;
end;
procedure TFileViewGrid.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
@ -295,9 +304,7 @@ begin
if not FFileView.FMainControlMouseDown then
Exit;
AllowOutboundEvents := False;
inherited MouseUp(Button, Shift, X, Y);
AllowOutboundEvents := True;
FFileView.FMainControlMouseDown := False;
@ -503,6 +510,7 @@ begin
DoubleBuffered := True;
Align := alClient;
MouseWheelOption:= mwGrid;
AllowOutboundEvents := False;
Options := [goTabs, goThumbTracking];
TabStop := False;