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: Focus not being restored to the panel after choosing drive from the drives list (GTK2).

Browse source
This commit is contained in:
cobines 2010-02-01 22:29:51 +00:00
commit 15557b9143
1 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/udriveslist.pas
View file

@ -117,7 +117,11 @@ implementation
uses
StdCtrls, Graphics, LCLProc,
uPixMapManager, uOSUtils, uDCUtils;
uPixMapManager, uOSUtils, uDCUtils
{$IFDEF LCLGTK2}
, GtkProc // for ReleaseMouseCapture
{$ENDIF}
;
const
DriveIconSize = 16;
@ -504,6 +508,9 @@ begin
begin
MouseCapture := False;
{$IFDEF LCLGTK2}
// Workaround a bug in GTK2 where mouse capture is not released.
ReleaseMouseCapture;
// On GTK2 first the control must be hidden (to lose focus), otherwise
// any modal form shown in the OnDriveSelected handler cannot be closed
// due to a bug in LCLGTK2.
@ -539,6 +546,10 @@ end;
procedure TDrivesListPopup.Close;
begin
MouseCapture := False;
{$IFDEF LCLGTK2}
// Workaround a bug in GTK2 where mouse capture is not released.
ReleaseMouseCapture;
{$ENDIF}
Visible := False;
if Assigned(FOnClose) then
@ -546,4 +557,4 @@ begin
end;
end.