Ano: 2017

Dicas Lazarus / Programação: StringGrid #3 Mudando a cor das células

Posted By: Daniel MoraisPosted On:

Neste vídeo vamos criar uma tabela no Firebird de quartos (Código Apto, Status )

Status = Vago, Ocupado e Manutenção

Vamos capturar estes dados e alimentar o stringgrid.

Após isso vamos colorir a célula tendo como parâmetro o status de cada apartamento.


Dicas Lazarus / Programação: StringGrid #2 Quebra Linha Dentro da Célula

Posted By: Daniel MoraisPosted On:

Neste vídeo vou mostrar como quebrar linhas dentro das células.

Vamos utilizar a propriedade OnPrepareCanvas do StringGrid:

Inscreva-se no canal e fique ligado a cada novo vídeo !

procedure TfrmPRINCIPAL.StringGrid1PrepareCanvas(sender: TObject; aCol,
  aRow: Integer; aState: TGridDrawState);
var
  MyTextStyle : TTextStyle;
begin
  MyTextStyle := StringGrid1.Canvas.TextStyle;
  MyTextStyle.SingleLine := false;
  MyTextStyle.Alignment  := taCenter;
  StringGrid1.Canvas.TextStyle := MyTextStyle;
end;  

Ransomware, proteja-se deste ataque !

Posted By: Daniel MoraisPosted On:
Ontem 12 de maio de 2017 um mega ataque hacker está ocorrendo  em mais de 70 países.
Os hackers aproveitam uma falha do Windows e criptografam seus documentos, fotos, banco de dados e posteriormente pedem um valor (como um resgate) para descriptografar seus dados para que você possa novamente acessa-los.
A Microsoft já encontrou e corrigiu a falha, e lançou o Hotfix abaixo.
Antes de fazer o download você precisa saber qual versão do Windows está usando, exemplo: Windows 7 64 SP1, Windows Server 2008 R2… etc.
Para saber qual versão, basta ir nas propriedades do meu computador.
Logo após, clique no link abaixo, faça o download correspondente a versão do seu Windows e instale.
Vale ressaltar que quem utiliza servidor RDP/TS o ideal é mudar a porta padrão 3389 para outra porta que só você saiba. (clique aqui para saber como mudar a porta do RDP/TS)

Hotfix da Microsoft: Clique Aqui

Dicas Lazarus: Criar base de dados firebird em tempo de execução

Posted By: Daniel MoraisPosted On:

Neste vídeo mostro como criar uma base de dados (base.fdb) em tempo de execução.
Além da base de dados, vamos criar duas tabelas, clientes e produtos utilizando uma query.
Componente necessário ZEOSLIB.
Funciona em Lazarus, CodeTyphon e Delphi.