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

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

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 !

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

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.