Download as
Browse Code »

Commit 58619dbf34279532dab7316af6105aad6eac9ba5

Authored by Eric Menezes Noronha
1 parent abd4f27e
Exists in master

-Retirada aplicação da TaskBar.

Showing 2 changed files with 6 additions and 7 deletions   Show diff stats
MapaTesteProj/MapaTeste.dcu
View file @58619db
No preview for this file type
MapaTesteProj/MapaTeste.pas
  Diff comments   View file @58619db
... ... @@ -125,6 +125,7 @@ type
125 125 strTeInfoPatrimonio6,
126 126 strTeInfoPatrimonio7 : String;
127 127 psswd : String;
  128 + foco : boolean;
128 129  
129 130 procedure FormSetFocus(VerificaFoco: Boolean);
130 131 procedure MontaInterface;
... ... @@ -545,8 +546,6 @@ begin
545 546 End;
546 547  
547 548 procedure TfrmMapaCacic.FormCreate(Sender: TObject);
548   -var
549   - foco: boolean;
550 549  
551 550 begin
552 551 psswd := '';
... ... @@ -555,6 +554,8 @@ begin
555 554 //Definido TRUE, se não, mesmo que o foco seja falso, a aplicação não é fechada quando quiser.
556 555 Fechar:=TRUE;
557 556 foco:=true; //DEFINIDO COMO TRUE PARA QUE A JANELA NÃO SEJA FECHADA
  557 +
  558 +
558 559 Try
559 560 strFrmAtual := 'Principal';
560 561 objCacic := TCACIC.Create();
... ... @@ -653,7 +654,8 @@ procedure TfrmMapaCacic.FormActivate(Sender: TObject);
653 654 begin
654 655 pnVersao.Caption := 'Versão: ' + objCacic.getVersionInfo(ParamStr(0));
655 656 strFrmAtual := 'Principal';
656   -
  657 + Application.MainFormOnTaskBar:=FALSE;
  658 + ShowWindow(Application.Handle, SW_HIDE);
657 659 end;
658 660  
659 661 procedure TfrmMapaCacic.btCombosUpdateClick(Sender: TObject);
... ... @@ -705,11 +707,8 @@ begin
705 707 end;
706 708 end;
707 709 }
708   -// EstadoBarraTarefa(FALSE);
709   -
710   - H := FindWindow(Nil,'mapacacic'); {troque project1 pelo nome do seu projeto)}
711   - if H <> 0 then ShowWindow(H,SW_HIDE);
712 710  
  711 +// EstadoBarraTarefa(FALSE);
713 712  
714 713 end;
715 714  
... ...