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: Set ActiveFrame at start with Lazarus 0.9.30

Browse source
This commit is contained in:
Alexander Koblov 2011-12-10 11:41:07 +00:00
commit 4a3dca0f9b
1 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/fmain.pas
View file

@ -440,6 +440,7 @@ type
Shift: TShiftState; X, Y: Integer);
procedure MainToolBarToolButtonClick(Sender: TObject; NumberOfButton : Integer);
procedure frmMainClose(Sender: TObject; var CloseAction: TCloseAction);
procedure frmMainAfterShow(Data: PtrInt);
procedure frmMainShow(Sender: TObject);
procedure mnuDropClick(Sender: TObject);
procedure mnuSplitterPercentClick(Sender: TObject);
@ -1671,11 +1672,21 @@ begin
Application.Terminate;
end;
procedure TfrmMain.frmMainAfterShow(Data: PtrInt);
begin
ActiveFrame.SetFocus;
HiddenToTray := False;
end;
procedure TfrmMain.frmMainShow(Sender: TObject);
begin
DCDebug('frmMain.frmMainShow');
{$IF DEFINED(LCLCARBON) and DECLARED(lcl_fullversion) and (lcl_fullversion >= 093100)}
ActiveControl:= ActiveFrame;
HiddenToTray := False;
{$ELSE}
Application.QueueAsyncCall(@frmMainAfterShow, 0);
{$ENDIF}
end;
procedure TfrmMain.mnuDropClick(Sender: TObject);
@ -4845,4 +4856,4 @@ initialization
TFormCommands.RegisterCommandsForm(TfrmMain, HotkeysCategory, @rsHotkeyCategoryMain);
end.