FIX: Set active frame under gtk2

This commit is contained in:
Alexander Koblov 2016-10-19 18:49:19 +00:00
commit d1771c0284

View file

@ -2149,7 +2149,7 @@ end;
procedure TfrmMain.frmMainShow(Sender: TObject);
begin
DCDebug('frmMain.frmMainShow');
{$IF NOT DEFINED(LCLWIN32)}
{$IF NOT (DEFINED(LCLWIN32) or DEFINED(LCLGTK2))}
OnPaint := @frmMainAfterShow;
{$ELSE}
Application.QueueAsyncCall(TDataEvent(@frmMainAfterShow), 0);