INCREMENTE SUA APLICAÇÃO COM VCL SKIN

As aplicações em Dephi podem ficar muito mais atraentes quando usamos os Skins VCL em nossos formulários . O efeito também é automaticamente aplicado aos componentes do form (dbgrid , buttons , panel , etc ).

Para os interessados possuo o pacote instalador (solicitar por email)

Instalação :

Descompacte o arquivo .zip

Na IDE do delphi entre em Tools - Options - Library Path e adicione o caminho do diretório correspondente à sua versão do delphi (d6,d7,d2007 ...) .

Depois abra o arquivo .dpk que esta na pasta correspondente a sua versão .

Compile o pacote e depois instale.

VERIFICAR SE UM FORM ESTA CRIADO NA MEMÓRIA OU NÃO

Em alguns casos , precisamos saber se um form está criado para podermos manipular algum componente do mesmo ou tratar algumas informações , nesse caso precisamos saber se o status do form é igual a "nil" .

Se for igual a "nil" é porque o mesmo ainda não foi criado na memória.

Exemplo (evendo onclick de um button por exemplo)

if frmCliente = nil then

begin

 ...

end;

OBS : para que o comando funcione em corretamente em todos os forms da sua aplicação, é preciso que ele possa ser identificado como "NÃO CRIADO" . Por isso não esqueça de colocar o form "recebendo" nil no evendo "onclose" de cada form ou simplesmente dando um "release" nesse evento.

Assim o form sera eliminado da memoria mesmo que tenha sido criado.

REGISTRANDO AS BIBLIOTECAS CAPICOM E OPENSSL NO WINDOWS 64 BITS

Olá a todos que acompanham este blog.

A um tempo atrás me deparei com um problema na migração do componente ACBR para plataforma 64 bits e, para ser mais específico , na hora de registrar as bibliotecas.

Pois bem : Copie as dll's capicom.dll , msxml5.dll , msxml5r.dll , libeay32.dll , ssleay32.dll para a pasta

C:\Windows\SysWOW64

No menu iniciar do Windows , navegue ate o ícone do prompt de comando (do MS-DOS) , clique com o botão direito sobre ele e depois clique em "Executar como Administrador".

Execute os comandos :

regsvr32 %windir%\SysWOW64\capicom.dll

regsvr32 %windir%\SysWOW64\msxml5.dll

CORES NO DBGRID DO DELPHI 2010

Na migração para o Delphi2010 os DBGrids ficaram todos estilizados com um tema do Delphi 2010 para corrigir isso altere a propriedade "DrawingStyle" para "gdsClassic"

GRAVANDO DADOS EM ARQUIVOS INI

Quando trabalhamos com arquivos INI no delphi, podemos dizer que gravamos ou lemos informações num registro que contém grupos de informações.

Basicamente, este trabalho exige os seguintes passos :

* Declarar a biblioteca "IniFiles" na cláusula "uses" da unit

* No procedure em que for chamar o recurso , declare uma variável do tipo TIniFile

   Ex : var teste : TIniFile;

* Faça a variável receber o caminho no qual o arquivo INI sera gravado

   Ex : teste := TIniFile.Create(ExtractFilePath(ParamStr(0))+'\CONFIGURACOES.INI');

   Nesse caso vai ser criado um arquivo CONFIGURACOES.INI no mesmo diretório de do executável

   do sistema

Para gravar "texto" no arquivo :

  teste.WriteString ('EMPRESA','RAZAOSOCIAL' ,edRazao.Text);

  teste.WriteString ('EMPRESA','NOMEFANTASIA' ,edFantasia.Text);

  Nesse caso o campo RAZAO SOCIAL do grupo EMPRESA recebe o valor do edRazao.Text e

  o campo NOMEFANTASIA recebe o valor do edFantasia.Text

Para gravar "número" no arquivo :

  teste.WriteInteger ('CONTROLE','DIASVENCIMENTO' ,edQtdeDiasVcto.Value);

Nesse caso o campo DIASVENCIMENTO do grupo CONTROLE vai receber o valor de uma

  variável ou objeto que tenha um valor inteiro.

Para gravar "valor boleano" no arquivo : 

  

  teste.WriteBool ('CONTROLE','BLOQUEAR',True);

Nesse caso  o campo BLOQUEAR do grupo CONTROLE vai receber o valor 1 (verdadeiro)

Visualização O arquivo vai ficar mais ou menos com o seguinte layout :

[EMPRESA]

NOMEFANTASIA = FULANO DE TAL LTDA

NOMEFANTASIA - LOJÃO DO FULANO

[CONTROLE]

DIASVENCIMENTO = 5

BLOQUEAR = 1