Comentário.

Eric Menezes Noronha
1 parent 58619dbf
Showing 2 changed files with 2 additions and 1 deletions Show diff stats
MapaTesteProj/MapaTeste.pas
MapaTesteProj/Source/synsock.pas
@@ -654,6 +654,7 @@ procedure TfrmMapaCacic.FormActivate(Sender: TObject);
 begin
   pnVersao.Caption := 'Versão: ' + objCacic.getVersionInfo(ParamStr(0));
   strFrmAtual := 'Principal';
+  //ESCONDE APLICAÇÃO DA TASKBAR -- DEVE SER COLOCADA NO OnActivate
   Application.MainFormOnTaskBar:=FALSE;
   ShowWindow(Application.Handle, SW_HIDE);
 end;
@@ -53,7 +53,7 @@ unit synsock;
 {$ENDIF}
  
 {$IFDEF WIN32}
-  {$I sswin32q.inc}
+  {$I sswin32.inc}
 {$ELSE}
   {$IFDEF FPC}
     {$I ssfpc.pas}
...	...	@@ -654,6 +654,7 @@ procedure TfrmMapaCacic.FormActivate(Sender: TObject);
654	654	begin
655	655	pnVersao.Caption := 'Versão: ' + objCacic.getVersionInfo(ParamStr(0));
656	656	strFrmAtual := 'Principal';
	657	+ //ESCONDE APLICAÇÃO DA TASKBAR -- DEVE SER COLOCADA NO OnActivate
657	658	Application.MainFormOnTaskBar:=FALSE;
658	659	ShowWindow(Application.Handle, SW_HIDE);
659	660	end;
...	...
...	...	@@ -53,7 +53,7 @@ unit synsock;
53	53	{$ENDIF}
54	54
55	55	{$IFDEF WIN32}
56		- {$I sswin32q.inc}
	56	+ {$I sswin32.inc}
57	57	{$ELSE}
58	58	{$IFDEF FPC}
59	59	{$I ssfpc.pas}
...	...