Download as
Browse Code »

Commit 4859335a1810533259cc92abd5a23e908bc2f3d7

Authored by pedroricardo
1 parent a2a4aedd
Exists in master

git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windo… 

…ws@1573 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 8 changed files with 133 additions and 132 deletions   Show diff stats
mapacacic/MapaCACIC.dpr
View file @a2a4aed
@@ -1,58 +0,0 @@ @@ -1,58 +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 -program MapaCacic;  
19 -  
20 -uses  
21 - Forms,  
22 - Windows,  
23 - uMainMapa in 'uMainMapa.pas' {frmMapaCacic},  
24 - uAcessoMapa in 'uAcessoMapa.pas' {frmAcesso},  
25 - CACIC_Library in '..\CACIC_Library.pas',  
26 - CACIC_Comm in '..\CACIC_Comm.pas';  
27 -  
28 -{$R *.res}  
29 -  
30 -const APP_NAME = 'MapaCacic.exe';  
31 -  
32 -var hwind:HWND;  
33 - oCacic : TCACIC;  
34 -  
35 -begin  
36 - oCacic := TCACIC.Create();  
37 -  
38 - if( oCacic.isAppRunning( APP_NAME ) )  
39 - then begin  
40 - hwind := 0;  
41 - repeat // The string 'My app' must match your App Title (below)  
42 - hwind:=Windows.FindWindowEx(0,hwind,'TApplication', APP_NAME );  
43 - until (hwind<>Application.Handle);  
44 - IF (hwind<>0) then  
45 - begin  
46 - Windows.ShowWindow(hwind,SW_SHOWNORMAL);  
47 - Windows.SetForegroundWindow(hwind);  
48 - end;  
49 - FreeMemory(0);  
50 - end  
51 - else  
52 - begin  
53 - Application.Initialize;  
54 - Application.CreateForm(TfrmMapaCacic, frmMapaCacic);  
55 - Application.Run;  
56 - end;  
57 - oCacic.Free();  
58 -end.  
mapacacic/MapaCACIC.dproj
View file @a2a4aed
@@ -1,53 +0,0 @@ @@ -1,53 +0,0 @@
1 -<?xml version="1.0" encoding="utf-8"?>  
2 -<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">  
3 - <PropertyGroup>  
4 - <ProjectGuid>{bd12cdd9-2bb5-4ae7-9da9-8d9f09bab843}</ProjectGuid>  
5 - <MainSource>MapaCACIC.dpr</MainSource>  
6 - <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>  
7 - <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>  
8 - <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>  
9 - <DCC_DependencyCheckOutputName>..\..\Agentes_Windows_BINARIOS\MapaCACIC.exe</DCC_DependencyCheckOutputName>  
10 - </PropertyGroup>  
11 - <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">  
12 - <Version>7.0</Version>  
13 - <DCC_AssertionsAtRuntime>False</DCC_AssertionsAtRuntime>  
14 - <DCC_DebugInformation>False</DCC_DebugInformation>  
15 - <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>  
16 - <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>  
17 - <DCC_ExeOutput>C:\devel\cacic\Agentes_Windows_BINARIOS</DCC_ExeOutput>  
18 - <DCC_Define>DEBUG</DCC_Define>  
19 - </PropertyGroup>  
20 - <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">  
21 - <Version>7.0</Version>  
22 - <DCC_AssertionsAtRuntime>False</DCC_AssertionsAtRuntime>  
23 - <DCC_DebugInformation>False</DCC_DebugInformation>  
24 - <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>  
25 - <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>  
26 - <DCC_ExeOutput>C:\devel\cacic\Agentes_Windows_BINARIOS</DCC_ExeOutput>  
27 - <DCC_UnitSearchPath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_UnitSearchPath>  
28 - <DCC_ResourcePath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_ResourcePath>  
29 - <DCC_ObjPath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_ObjPath>  
30 - <DCC_IncludePath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_IncludePath>  
31 - <DCC_Define>DEBUG</DCC_Define>  
32 - </PropertyGroup>  
33 - <ProjectExtensions>  
34 - <Borland.Personality>Delphi.Personality</Borland.Personality>  
35 - <Borland.ProjectType>VCLApplication</Borland.ProjectType>  
36 - <BorlandProject>  
37 -<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">1331</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Dataprev - Emp. de TI da Prev.Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Avulso para Coleta de Informações Patrimoniais</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.0.1331</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">MapaCACIC</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys><VersionInfoKeys Name="Comments">Licença: GNU/LGPL</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">MapaCACIC.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>  
38 - </ProjectExtensions>  
39 - <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />  
40 - <ItemGroup>  
41 - <DelphiCompile Include="MapaCACIC.dpr">  
42 - <MainSource>MainSource</MainSource>  
43 - </DelphiCompile>  
44 - <DCCReference Include="..\CACIC_Comm.pas" />  
45 - <DCCReference Include="..\CACIC_Library.pas" />  
46 - <DCCReference Include="uAcessoMapa.pas">  
47 - <Form>frmAcesso</Form>  
48 - </DCCReference>  
49 - <DCCReference Include="uMainMapa.pas">  
50 - <Form>frmMapaCacic</Form>  
51 - </DCCReference>  
52 - </ItemGroup>  
53 -</Project>  
54 \ No newline at end of file 0 \ No newline at end of file
mapacacic/MapaCACIC.res
View file @a2a4aed
No preview for this file type
mapacacic/MapaCACICl.dpr 0 → 100644
  Diff comments   View file @4859335
@@ -0,0 +1,58 @@ @@ -0,0 +1,58 @@
  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 +program MapaCACICl;
  19 +
  20 +uses
  21 + Forms,
  22 + Windows,
  23 + uMainMapa in 'uMainMapa.pas' {frmMapaCacic},
  24 + uAcessoMapa in 'uAcessoMapa.pas' {frmAcesso},
  25 + CACIC_Library in '..\CACIC_Library.pas',
  26 + CACIC_Comm in '..\CACIC_Comm.pas';
  27 +
  28 +{$R *.res}
  29 +
  30 +const APP_NAME = 'MapaCacic.exe';
  31 +
  32 +var hwind:HWND;
  33 + oCacic : TCACIC;
  34 +
  35 +begin
  36 + oCacic := TCACIC.Create();
  37 +
  38 + if( oCacic.isAppRunning( APP_NAME ) )
  39 + then begin
  40 + hwind := 0;
  41 + repeat // The string 'My app' must match your App Title (below)
  42 + hwind:=Windows.FindWindowEx(0,hwind,'TApplication', APP_NAME );
  43 + until (hwind<>Application.Handle);
  44 + IF (hwind<>0) then
  45 + begin
  46 + Windows.ShowWindow(hwind,SW_SHOWNORMAL);
  47 + Windows.SetForegroundWindow(hwind);
  48 + end;
  49 + FreeMemory(0);
  50 + end
  51 + else
  52 + begin
  53 + Application.Initialize;
  54 + Application.CreateForm(TfrmMapaCacic, frmMapaCacic);
  55 + Application.Run;
  56 + end;
  57 + oCacic.Free();
  58 +end.
mapacacic/MapaCACICl.dproj 0 → 100644
  Diff comments   View file @4859335
@@ -0,0 +1,53 @@ @@ -0,0 +1,53 @@
  1 +<?xml version="1.0" encoding="utf-8"?>
  2 +<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  3 + <PropertyGroup>
  4 + <ProjectGuid>{bd12cdd9-2bb5-4ae7-9da9-8d9f09bab843}</ProjectGuid>
  5 + <MainSource>MapaCACICl.dpr</MainSource>
  6 + <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
  7 + <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
  8 + <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
  9 + <DCC_DependencyCheckOutputName>..\..\Agentes_Windows_BINARIOS\MapaCACICl.exe</DCC_DependencyCheckOutputName>
  10 + </PropertyGroup>
  11 + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
  12 + <Version>7.0</Version>
  13 + <DCC_AssertionsAtRuntime>False</DCC_AssertionsAtRuntime>
  14 + <DCC_DebugInformation>False</DCC_DebugInformation>
  15 + <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
  16 + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
  17 + <DCC_ExeOutput>C:\devel\cacic\Agentes_Windows_BINARIOS</DCC_ExeOutput>
  18 + <DCC_Define>DEBUG</DCC_Define>
  19 + </PropertyGroup>
  20 + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
  21 + <Version>7.0</Version>
  22 + <DCC_AssertionsAtRuntime>False</DCC_AssertionsAtRuntime>
  23 + <DCC_DebugInformation>False</DCC_DebugInformation>
  24 + <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
  25 + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
  26 + <DCC_ExeOutput>C:\devel\cacic\Agentes_Windows_BINARIOS</DCC_ExeOutput>
  27 + <DCC_UnitSearchPath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_UnitSearchPath>
  28 + <DCC_ResourcePath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_ResourcePath>
  29 + <DCC_ObjPath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_ObjPath>
  30 + <DCC_IncludePath>C:\vendors_lib;C:\vendors_lib\MD5;C:\agentes_Windows;C:\vendors_lib\CriptografiaDCP;C:\vendors_lib\PJVersion;C:\vendors_lib\MagWMI;C:\devel\cacic\agente-windows</DCC_IncludePath>
  31 + <DCC_Define>DEBUG</DCC_Define>
  32 + </PropertyGroup>
  33 + <ProjectExtensions>
  34 + <Borland.Personality>Delphi.Personality</Borland.Personality>
  35 + <Borland.ProjectType>VCLApplication</Borland.ProjectType>
  36 + <BorlandProject>
  37 +<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">1331</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Dataprev - Emp. de TI da Prev.Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Avulso para Coleta de Informações Patrimoniais</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.0.1331</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">MapaCACIC</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys><VersionInfoKeys Name="Comments">Licença: GNU/LGPL</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">MapaCACICl.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
  38 + </ProjectExtensions>
  39 + <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
  40 + <ItemGroup>
  41 + <DelphiCompile Include="MapaCACICl.dpr">
  42 + <MainSource>MainSource</MainSource>
  43 + </DelphiCompile>
  44 + <DCCReference Include="..\CACIC_Comm.pas" />
  45 + <DCCReference Include="..\CACIC_Library.pas" />
  46 + <DCCReference Include="uAcessoMapa.pas">
  47 + <Form>frmAcesso</Form>
  48 + </DCCReference>
  49 + <DCCReference Include="uMainMapa.pas">
  50 + <Form>frmMapaCacic</Form>
  51 + </DCCReference>
  52 + </ItemGroup>
  53 +</Project>
0 \ No newline at end of file 54 \ No newline at end of file
mapacacic/MapaCACICl.res 0 → 100644
View file @4859335
No preview for this file type
mapacacic/uMainMapa.dfm
  Diff comments   View file @4859335
1 object frmMapaCacic: TfrmMapaCacic 1 object frmMapaCacic: TfrmMapaCacic
2 Left = 494 2 Left = 494
3 Top = 200 3 Top = 200
4 - Width = 1109  
5 - Height = 579  
6 BorderIcons = [biSystemMenu] 4 BorderIcons = [biSystemMenu]
7 Caption = 5 Caption =
8 'MapaCacic - M'#243'dulo Avulso para Coleta de Informa'#231#245'es Patrimoniai' + 6 'MapaCacic - M'#243'dulo Avulso para Coleta de Informa'#231#245'es Patrimoniai' +
9 's' 7 's'
  8 + ClientHeight = 545
  9 + ClientWidth = 1101
10 Color = clBtnFace 10 Color = clBtnFace
11 Font.Charset = DEFAULT_CHARSET 11 Font.Charset = DEFAULT_CHARSET
12 Font.Color = clWindowText 12 Font.Color = clWindowText
@@ -262,7 +262,7 @@ object frmMapaCacic: TfrmMapaCacic @@ -262,7 +262,7 @@ object frmMapaCacic: TfrmMapaCacic
262 Left = 3 262 Left = 3
263 Top = 170 263 Top = 170
264 Width = 48 264 Width = 48
265 - Height = 14 265 + Height = 13
266 Caption = 'Etiqueta 3' 266 Caption = 'Etiqueta 3'
267 Font.Charset = DEFAULT_CHARSET 267 Font.Charset = DEFAULT_CHARSET
268 Font.Color = clWindowText 268 Font.Color = clWindowText
@@ -586,6 +586,21 @@ object frmMapaCacic: TfrmMapaCacic @@ -586,6 +586,21 @@ object frmMapaCacic: TfrmMapaCacic
586 Visible = False 586 Visible = False
587 OnClick = AtualizaPatrimonio 587 OnClick = AtualizaPatrimonio
588 end 588 end
  589 + object pnVersao: TPanel
  590 + Left = 674
  591 + Top = 514
  592 + Width = 105
  593 + Height = 20
  594 + BevelInner = bvLowered
  595 + Caption = 'Vers'#227'o'
  596 + Font.Charset = DEFAULT_CHARSET
  597 + Font.Color = clWindowText
  598 + Font.Height = -11
  599 + Font.Name = 'MS Sans Serif'
  600 + Font.Style = [fsBold]
  601 + ParentFont = False
  602 + TabOrder = 3
  603 + end
589 object pnMessageBox: TPanel 604 object pnMessageBox: TPanel
590 Left = 0 605 Left = 0
591 Top = 133 606 Top = 133
@@ -599,7 +614,7 @@ object frmMapaCacic: TfrmMapaCacic @@ -599,7 +614,7 @@ object frmMapaCacic: TfrmMapaCacic
599 Font.Name = 'Arial' 614 Font.Name = 'Arial'
600 Font.Style = [] 615 Font.Style = []
601 ParentFont = False 616 ParentFont = False
602 - TabOrder = 3 617 + TabOrder = 4
603 Visible = False 618 Visible = False
604 object lbMensagens: TLabel 619 object lbMensagens: TLabel
605 Left = 2 620 Left = 2
@@ -616,23 +631,9 @@ object frmMapaCacic: TfrmMapaCacic @@ -616,23 +631,9 @@ object frmMapaCacic: TfrmMapaCacic
616 Font.Style = [] 631 Font.Style = []
617 ParentFont = False 632 ParentFont = False
618 Layout = tlCenter 633 Layout = tlCenter
  634 + ExplicitTop = -2
619 end 635 end
620 end 636 end
621 - object pnVersao: TPanel  
622 - Left = 674  
623 - Top = 514  
624 - Width = 105  
625 - Height = 20  
626 - BevelInner = bvLowered  
627 - Caption = 'Vers'#227'o'  
628 - Font.Charset = DEFAULT_CHARSET  
629 - Font.Color = clWindowText  
630 - Font.Height = -11  
631 - Font.Name = 'MS Sans Serif'  
632 - Font.Style = [fsBold]  
633 - ParentFont = False  
634 - TabOrder = 4  
635 - end  
636 object timerMessageShowTime: TTimer 637 object timerMessageShowTime: TTimer
637 Enabled = False 638 Enabled = False
638 Interval = 0 639 Interval = 0
mapacacic/uMainMapa.pas
  Diff comments   View file @4859335
@@ -72,8 +72,6 @@ type @@ -72,8 +72,6 @@ type
72 edTeInfoPatrimonio4: TEdit; 72 edTeInfoPatrimonio4: TEdit;
73 edTeInfoPatrimonio5: TEdit; 73 edTeInfoPatrimonio5: TEdit;
74 edTeInfoPatrimonio6: TEdit; 74 edTeInfoPatrimonio6: TEdit;
75 - pnMessageBox: TPanel;  
76 - lbMensagens: TLabel;  
77 lbEtiqueta1a: TLabel; 75 lbEtiqueta1a: TLabel;
78 cbIdUnidOrganizacionalNivel1a: TComboBox; 76 cbIdUnidOrganizacionalNivel1a: TComboBox;
79 pnDivisoria01: TPanel; 77 pnDivisoria01: TPanel;
@@ -83,6 +81,8 @@ type @@ -83,6 +81,8 @@ type
83 btCombosUpdate: TButton; 81 btCombosUpdate: TButton;
84 timerMessageShowTime: TTimer; 82 timerMessageShowTime: TTimer;
85 timerMessageBoxShowOrHide: TTimer; 83 timerMessageBoxShowOrHide: TTimer;
  84 + pnMessageBox: TPanel;
  85 + lbMensagens: TLabel;
86 86
87 procedure AtualizaPatrimonio(Sender: TObject); 87 procedure AtualizaPatrimonio(Sender: TObject);
88 procedure mapa; 88 procedure mapa;