(Resolvido) Colorir linha do Dbgrid

[valSistemasDelphi]

Olá amigos do Fórum.. Tenho um form produtos onde tenho dois RadiosButons, "Ativo" e "Inativo"!!  Gostaria que quando eu clicasse no RadioButton("Inativo"), A linha em foco ou onde eu selecionar com o mouse ficasse "vermelha" indicando que aquele produto está inativo, mais so aquela linha selecionada.. E o outro para quando o produto ficar "Ativo" denovo, e selecionar e pintar a cor preto por exemplo..

o que eu consegui fazer ate agora sem sucesso foi isso, mais ele acaba colorindo todas as linhas..

procedure TForm5.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

if radiobutton2.Checked = true then
//If (gdFocused in State) then

begin

  DBGrid1.Canvas.Font.Color := clRed;

end;

if Radiobutton1.Checked = true then
  DBGrid1.Canvas.Font.Color := clGreen;

DBGrid1.DefaultDrawColumnCell( Rect, DataCol, Column, State);
 

Mais ele colori todas as linhas ao passar o mouse pelo grid.. Quem poder me ajudar a respeito disso!!

[Jhonas]

pra voce deixar um produto ativo ou inativo, e mostrar isso no dbgrid, voce deve criar um campo para controle na sua tabela

tipo :  status   ( i ou 0 para Inativo )  e ( a ou 1 para ativo ) char ou numerico

dessa forma voce tera o controle no dbgrid que será mostrado em vermelho ou verde no ( DrawColumnCell  )

depois , basta voce clicar duas vezes na linha selecionada para mudar a condição

abraço

 

[valSistemasDelphi]

Obrigado pela resposta.. Seguinte pelo o que eu entendi só há como fazer isso acrescentando isso na tabela? Não tem como fazer ela colorir a linha so marcando um TRádioButton por exemplo... Usando uma condição se ele estiver marcada ou não?

[Jhonas]

voce vai fazer um TRádioButton para cada linha da tabela ? claro que não ... mas pelo  TRádioButton voce vai poder saber se uma linha esta marcada ou não, pela condição do campo do registro ( status )

é bem simples ... coloque mais um campo na sua tabela como mencionei

status - numeric ( 1 )

depois no evento   DrawColumnCell  voce coloca a condição do TRádioButton e a condição para que o registro apareça em vermelho ou verde

ai no procedure TForm1.DBGrid1DblClick(Sender: TObject); ( envento duplo click  do dbgrid )  voce muda a condição do campo ( Status ) do registro selecionado ( 1 ou 0 )

e vai ficar da maneira como voce quer

voce sabe como fazer ?  quer tentar fazer sozinho ?

abraço

 

 

[valSistemasDelphi]

Valeu Obigado!!!!!

[valSistemasDelphi]

Considere o tópico como resolvido.. Consegui seguindo está lógica.. Para o caso de surgir alguém com o mesmo problema estarei postanto o código!!!!

 if Form5.IBTable2.FieldByName('Status').AsString = 'Inativo' then  // Se o campo Status estiver como "Inativo" Executa a cor...
DbGrid1.Canvas.Font.Color := clRed;
DbGrid1.DefaultDrawDataCell(Rect,DbGrid1.Columns[datacol].field, State);

Simples assim..!! Valeu jhonas pela ajuda!!

[Jhonas]

ok... que bom que conseguiu

abraço