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,6 +125,7 @@ type
125 strTeInfoPatrimonio6, 125 strTeInfoPatrimonio6,
126 strTeInfoPatrimonio7 : String; 126 strTeInfoPatrimonio7 : String;
127 psswd : String; 127 psswd : String;
  128 + foco : boolean;
128 129
129 procedure FormSetFocus(VerificaFoco: Boolean); 130 procedure FormSetFocus(VerificaFoco: Boolean);
130 procedure MontaInterface; 131 procedure MontaInterface;
@@ -545,8 +546,6 @@ begin @@ -545,8 +546,6 @@ begin
545 End; 546 End;
546 547
547 procedure TfrmMapaCacic.FormCreate(Sender: TObject); 548 procedure TfrmMapaCacic.FormCreate(Sender: TObject);
548 -var  
549 - foco: boolean;  
550 549
551 begin 550 begin
552 psswd := ''; 551 psswd := '';
@@ -555,6 +554,8 @@ begin @@ -555,6 +554,8 @@ begin
555 //Definido TRUE, se não, mesmo que o foco seja falso, a aplicação não é fechada quando quiser. 554 //Definido TRUE, se não, mesmo que o foco seja falso, a aplicação não é fechada quando quiser.
556 Fechar:=TRUE; 555 Fechar:=TRUE;
557 foco:=true; //DEFINIDO COMO TRUE PARA QUE A JANELA NÃO SEJA FECHADA 556 foco:=true; //DEFINIDO COMO TRUE PARA QUE A JANELA NÃO SEJA FECHADA
  557 +
  558 +
558 Try 559 Try
559 strFrmAtual := 'Principal'; 560 strFrmAtual := 'Principal';
560 objCacic := TCACIC.Create(); 561 objCacic := TCACIC.Create();
@@ -653,7 +654,8 @@ procedure TfrmMapaCacic.FormActivate(Sender: TObject); @@ -653,7 +654,8 @@ procedure TfrmMapaCacic.FormActivate(Sender: TObject);
653 begin 654 begin
654 pnVersao.Caption := 'Versão: ' + objCacic.getVersionInfo(ParamStr(0)); 655 pnVersao.Caption := 'Versão: ' + objCacic.getVersionInfo(ParamStr(0));
655 strFrmAtual := 'Principal'; 656 strFrmAtual := 'Principal';
656 - 657 + Application.MainFormOnTaskBar:=FALSE;
  658 + ShowWindow(Application.Handle, SW_HIDE);
657 end; 659 end;
658 660
659 procedure TfrmMapaCacic.btCombosUpdateClick(Sender: TObject); 661 procedure TfrmMapaCacic.btCombosUpdateClick(Sender: TObject);
@@ -705,11 +707,8 @@ begin @@ -705,11 +707,8 @@ begin
705 end; 707 end;
706 end; 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 end; 713 end;
715 714