Olá amigos, tudo bem? Sou novo por aqui, e novo também no Lazarus. Gostaria de dizer que é muito bom programar no Lazarus. Sou um mero iniciante (não tenho cursos ou qualquer outra coisa assim relacionado à programação).
Bom, estou iniciando um projeto bem "pequeno", que consistem em desenvolver um emissor de recibos completo. Estou com ele já encaminhado, dem uma olhada na interface principal:
(http://i.imgur.com/KQhWX.png)
Estou com duas dúvidas.
1) Como deixar o DBGrid Zebrado?
Encontrei alguns scrips pra delphi, que não funcionaram no Lazarus. Em um deles o Lazarus não reconhece a seguinte linha:
if (DSRecibos.dataset.recordcount = 0) and (gdSelected in state) then canvas.brush.color := clSilver
else
begin
if (gdSelected in state) then canvas.Brush.Color := clGreen
else
if DBGridRecibos.SelectedRows.CurrentRowSelected
then canvas.Brush.Color := CLRed
else
if QRRecibos.RecNo mod 2 = 0
then canvas.Brush.Color := clblue
else canvas.Brush.Color := clred;
canvas.Font.Color := $FFFFFF xor canvas.Brush.Color;
end;
DBGridRecibos.DefaultDrawColumnCell(Rect,DataCol,Column,State);
---> inherited DrawColumnCell(Rect,DataCol,Column,State); 2) Como alterar o formato da data? A data está sendo gravada no BD (SQlite) no seguinte formato: DD-MM-AAA, quando deveria ser assim: DD/MM/AAAA.
Agradeço muitíssimo pela atenção. Qualquer dica ou sugestão eu agradeço