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: Bug http://doublecmd.sourceforge.net/forum/viewtopic.php?f=10&t=3193

Browse source
This commit is contained in:
Alexander Koblov 2016-01-16 16:42:16 +00:00
commit d4e134d682
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/fmain.pas
View file

@ -579,6 +579,7 @@ type
{$IF DEFINED(LCLGTK2)}
procedure WindowStateUpdate(Data: PtrInt);
{$ENDIF}
procedure WindowStateRefresh(Data: PtrInt);
private
{ Private declarations }
FMainSplitterPos: Double;
@ -1720,6 +1721,10 @@ begin
lastWindowState:=WindowState;
HiddenToTray := False;
end;
// Workaround http://doublecmd.sourceforge.net/forum/viewtopic.php?f=10&t=3193
if WindowState <> wsMinimized then begin
Application.QueueAsyncCall(@WindowStateRefresh, 0);
end;
end;
procedure TfrmMain.MainSplitterDblClick(Sender: TObject);
@ -5569,6 +5574,12 @@ begin
end;
end;
procedure TfrmMain.WindowStateRefresh(Data: PtrInt);
begin
pnlMain.Width:= pnlMain.Width - 1;
pnlMain.Width:= pnlMain.Width + 1;
end;
procedure TfrmMain.SetPanelDrive(aPanel: TFilePanelSelect; Drive: PDrive; ActivateIfNeeded: Boolean);
var
Index: Integer;