* * *

Author Topic: [dúvida] DBGrid Zebrado  (Read 2798 times)

JonatanWillian

  • Newbie
  • Posts: 2
[dúvida] DBGrid Zebrado
« on: December 24, 2011, 02:20:32 am »
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 statethen canvas.brush.color := clSilver
     
else
     
begin
          
if (gdSelected in statethen 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  :)

Mando

  • Full Member
  • ***
  • Posts: 175
Re: [dúvida] DBGrid Zebrado
« Reply #1 on: December 29, 2011, 10:47:14 am »
Olá.

Te escribo en español:

Debes probar con las propiedades "AlternateColor"  y  "Color" del DBGrid.

En Código.

DBGridRecibos.AlternateColor:=clBlue;
DBGridRecibos.Color:=clRed;



JonatanWillian

  • Newbie
  • Posts: 2
Re: [dúvida] DBGrid Zebrado
« Reply #2 on: December 30, 2011, 12:32:23 am »
Gracias, voy a probar.




deciorocha

  • Newbie
  • Posts: 2
Re: [dúvida] DBGrid Zebrado
« Reply #3 on: September 06, 2016, 11:47:35 pm »
Olá pessoal, desculpem ressuscitar um tópico antigo, todavia, isto muito me interessa...  :D

Afinal, conseguiram criar um dbgrid zebrado para o Lazarus??? eu tenho um que veio do DTDelphi, mas, não consegui fazê-lo funcionar no Lazarus.

Obrigado!!!

 

Recent

Get Lazarus at SourceForge.net. Fast, secure and Free Open Source software downloads Open Hub project report for Lazarus