Commit f441f40f0c03cb40b651bba971e833472076e58a
1 parent
44cc5a6b
Exists in
master
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
Showing
6 changed files
with
0 additions
and
123 deletions
Show diff stats
formularioSenha.dfm
| @@ -1,18 +0,0 @@ | @@ -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 |
formularioSenha.pas
| @@ -1,24 +0,0 @@ | @@ -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. |
frmConfiguracoes.ddp
No preview for this file type
frmLog.ddp
No preview for this file type
frmLog.pas
| @@ -1,81 +0,0 @@ | @@ -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. |
frmsenha.ddp
No preview for this file type