COR DE DBGRID EM TEMPO DE EXECUÇÃO..
09/02/2003
0
:?: :?: :?:
Creiei uma rotina que varre uma tabela verificando qual conta do meu cliente está paga ou não. Quando o prog. encontra uma conta paga dá um showmessage avisando e quando não ta paga também.
Só que ao invés do showmessage, gostaria que o programa colocasse em azul a linha da dbgrid com as contas pagas e vermelhas as não pagas.
PS. Estou usando TTable e não Tquery.
Agradeço a quem ajudar, pois preciso entregar logo esse software!!!
Creiei uma rotina que varre uma tabela verificando qual conta do meu cliente está paga ou não. Quando o prog. encontra uma conta paga dá um showmessage avisando e quando não ta paga também.
Só que ao invés do showmessage, gostaria que o programa colocasse em azul a linha da dbgrid com as contas pagas e vermelhas as não pagas.
PS. Estou usando TTable e não Tquery.
Agradeço a quem ajudar, pois preciso entregar logo esse software!!!
Chrod
Curtir tópico
+ 0
Responder
Posts
10/02/2003
Carnette
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
If TableCONTAPAGA.VALUE then begin //Se o campo for lógico caso
//contrario coloque IGUAL alguam coisa
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.Canvas.Brush.Color:= clBlue;
end
else
begin
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.Canvas.Brush.Color:= clRed;
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;
begin
If TableCONTAPAGA.VALUE then begin //Se o campo for lógico caso
//contrario coloque IGUAL alguam coisa
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.Canvas.Brush.Color:= clBlue;
end
else
begin
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.Canvas.Brush.Color:= clRed;
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;
Responder
10/02/2003
Dor_poa
coloca isto no evento DrawColumnCell
With Dbgrid1.Canvas do
begin
if contasPAGAS.AsString = ´Nao´ then // ve se NAO esta paga
BEGIN
FONT.Color := clred;
FILLRECT(RECT);
TEXTOUT(RECT.LEFT + 2,RECT.TOP +2,cOLUMN.Field.DisplayText);
EXIT;
END;
end;
With Dbgrid1.Canvas do
begin
if contasPAGAS.AsString = ´Nao´ then // ve se NAO esta paga
BEGIN
FONT.Color := clred;
FILLRECT(RECT);
TEXTOUT(RECT.LEFT + 2,RECT.TOP +2,cOLUMN.Field.DisplayText);
EXIT;
END;
end;
Responder
10/02/2003
Dor_poa
Como exporto os dados de minha tabela para o word?
Utilize os components SERVERS, caso tenha duvida veja os ex. que acompanha o delphi....
Responder
Clique aqui para fazer login e interagir na Comunidade :)