Exclusão para posterior reposição com versão 2.6-Beta-2

git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@972 fecfc0c7-e812-0410-ae72-849f08638ee7

Exclusão para posterior reposição com versão 2.6-Beta-2
git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@972 fecfc0c7-e812-0410-ae72-849f08638ee7
anderson.peterle@previdencia.gov.br
1 parent 44cc5a6b
Showing 6 changed files with 0 additions and 123 deletions Show diff stats
formularioSenha.dfm
formularioSenha.pas
frmConfiguracoes.ddp
frmLog.ddp
frmLog.pas
frmsenha.ddp
@@ -1,18 +0,0 @@
-object FormSenha: TFormSenha
-  Left = 335
-  Top = 103
-  Width = 544
-  Height = 375
-  Caption = 
-    'CACIC - Configurador Autom'#225'tico e Coletor de Informa'#231#245'es Computa' +
-    'cionais'
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Sans Serif'
-  Font.Style = []
-  OldCreateOrder = False
-  PixelsPerInch = 96
-  TextHeight = 13
-end
@@ -1,24 +0,0 @@
-unit formularioSenha;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs;
-
-type
-  TFormSenha = class(TForm)
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-var
-  FormSenha: TFormSenha;
-
-implementation
-
-{$R *.dfm}
-
-end.
@@ -1,81 +0,0 @@
-(**
----------------------------------------------------------------------------------------------------------------------------------------------------------------
-Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil
-
-Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais
-
-O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como
-publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.
-
-Este programa é distribuido na esperança que possa ser  util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer
-MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.
-
-Você deve ter recebido uma cópia da Licença Pública Geral GNU, sob o título "LICENCA.txt", junto com este programa, se não, escreva para a Fundação do Software
-Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
----------------------------------------------------------------------------------------------------------------------------------------------------------------
-*)
-
-unit frmLog;
-
-interface
-uses Forms, StdCtrls, Classes, Controls, SysUtils, ExtCtrls;
-{
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  StdCtrls, Buttons, Dialogs, Grids;
-}
-
-type
-  TFormLog = class(TForm)
-    MemoLog: TMemo;
-    Bt_Fechar_Log: TButton;
-    procedure FormCreate(Sender: TObject);
-    procedure Bt_Fechar_LogClick(Sender: TObject);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-  end;
-
-var
-  FormLog: TFormLog;
-
-implementation
-
-{$R *.dfm}
-
-Uses main;
-
-procedure TFormLog.FormCreate(Sender: TObject);
-var
-  sl: TStringList;
-  begin
-    sl := TStringList.Create;
-    try
-      FormularioGeral.log_diario('');
-
-      sl.LoadFromFile(ExtractFilePath(Application.Exename) + '\cacic2.log');
-      MemoLog.Text := '';
-      MemoLog.SetSelTextBuf(PChar(sl.Text));
-    finally
-      sl.Free;
-  end;
-end;
-
-
-procedure TFormLog.Bt_Fechar_LogClick(Sender: TObject);
-begin
-  Release;
-  Close;
-end;
-
-
-procedure TFormLog.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
-   Release;
-   Close;
-end;
-
-
-end.
...	...	@@ -1,18 +0,0 @@
1		-object FormSenha: TFormSenha
2		- Left = 335
3		- Top = 103
4		- Width = 544
5		- Height = 375
6		- Caption =
7		- 'CACIC - Configurador Autom'#225'tico e Coletor de Informa'#231#245'es Computa' +
8		- 'cionais'
9		- Color = clBtnFace
10		- Font.Charset = DEFAULT_CHARSET
11		- Font.Color = clWindowText
12		- Font.Height = -11
13		- Font.Name = 'MS Sans Serif'
14		- Font.Style = []
15		- OldCreateOrder = False
16		- PixelsPerInch = 96
17		- TextHeight = 13
18		-end
...	...	@@ -1,24 +0,0 @@
1		-unit formularioSenha;
2		-
3		-interface
4		-
5		-uses
6		- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7		- Dialogs;
8		-
9		-type
10		- TFormSenha = class(TForm)
11		- private
12		- { Private declarations }
13		- public
14		- { Public declarations }
15		- end;
16		-
17		-var
18		- FormSenha: TFormSenha;
19		-
20		-implementation
21		-
22		-{$R *.dfm}
23		-
24		-end.
...	...	@@ -1,81 +0,0 @@
1		-(**
2		----------------------------------------------------------------------------------------------------------------------------------------------------------------
3		-Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil
4		-
5		-Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais
6		-
7		-O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como
8		-publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.
9		-
10		-Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer
11		-MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.
12		-
13		-Você deve ter recebido uma cópia da Licença Pública Geral GNU, sob o título "LICENCA.txt", junto com este programa, se não, escreva para a Fundação do Software
14		-Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
15		----------------------------------------------------------------------------------------------------------------------------------------------------------------
16		-*)
17		-
18		-unit frmLog;
19		-
20		-interface
21		-uses Forms, StdCtrls, Classes, Controls, SysUtils, ExtCtrls;
22		-{
23		-uses
24		- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
25		- StdCtrls, Buttons, Dialogs, Grids;
26		-}
27		-
28		-type
29		- TFormLog = class(TForm)
30		- MemoLog: TMemo;
31		- Bt_Fechar_Log: TButton;
32		- procedure FormCreate(Sender: TObject);
33		- procedure Bt_Fechar_LogClick(Sender: TObject);
34		- procedure FormClose(Sender: TObject; var Action: TCloseAction);
35		- private
36		- { Private declarations }
37		- public
38		- { Public declarations }
39		- end;
40		-
41		-var
42		- FormLog: TFormLog;
43		-
44		-implementation
45		-
46		-{$R *.dfm}
47		-
48		-Uses main;
49		-
50		-procedure TFormLog.FormCreate(Sender: TObject);
51		-var
52		- sl: TStringList;
53		- begin
54		- sl := TStringList.Create;
55		- try
56		- FormularioGeral.log_diario('');
57		-
58		- sl.LoadFromFile(ExtractFilePath(Application.Exename) + '\cacic2.log');
59		- MemoLog.Text := '';
60		- MemoLog.SetSelTextBuf(PChar(sl.Text));
61		- finally
62		- sl.Free;
63		- end;
64		-end;
65		-
66		-
67		-procedure TFormLog.Bt_Fechar_LogClick(Sender: TObject);
68		-begin
69		- Release;
70		- Close;
71		-end;
72		-
73		-
74		-procedure TFormLog.FormClose(Sender: TObject; var Action: TCloseAction);
75		-begin
76		- Release;
77		- Close;
78		-end;
79		-
80		-
81		-end.