Autor: Daniel Morais

Comecei na área de TI há um bom tempo (1991) com aqueles cursos de MS-DOS 6.22, WordStar, Lotus123, Dbase III Plus, etc. Adorei programar em Dbase III Plus utilizando Dbf; achei fantástico quando aprendi a programar em Clipper Summer 87 e posteriormente Clipper 5.x, que era muito estável em rede utilizando Novell NetWare. Desde então sou um fanático por TI. Hoje desenvolvo aplicações para Windows, Android, OS X e Linux utilizando Lazarus (free Pascal) . Blogueiro (www.infocotidiano.com.br, www.aprendalazarus.com.br, www.startdb.info). Além dos meus Blogs tenho um canal no YouTube o www.youtube.com.br/infocotidiano onde tenho mais de 1 Milhão de visualizações com vídeos de dicas diversificadas que vão desde solucionar um erro de impressão, curso sobre banco de dados, até criar software multi-plataforma utilizando o Lazarus.

Existe Delphi free ?

Posted By: Daniel MoraisPosted On:

Neste vídeo vou apresentar o Delphi SE (Start Edition) e as opções 100% free pascal.
Ótimas ferramentas com suporte a a emissão de Nota fiscal eletrônica, cupom SAT entre outros.

Clique aqui e fique ligado nos novos vídeos!

Conheça o canal do Humberto Sales, clique aqui !

GRUPO LAZARUS / CODETYPHON DO TELEGRAM
Grupo destinado ao estudo dos ambientes de desenvolvimento integrado ( Lazarus e CodeTyphon) desenvolvido para o compilador Free Pascal. link :
https://t.me/joinchat/AAAAAEDYQdfQIFCU1AXEoQ

Grupo LAzarus/ Delphi, mas em Espanhol: https://t.me/pascalang

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;