Onde está o erro?

[CATOCI 0]

Galera, não consigo achar o erro, não funciona de jeito nenhum. Da uma força ae ! Valeu !

 

 

procedure TF_BuscaMega.DBGrid1DrawDataCell(Sender: TObject;

const Rect: TRect; Field: TField; State: TGridDrawState);

var

Num1:integer;

begin

if EDTNum1.Text <> '' then

Begin

Num1 := StrToInt(EDTNum1.Text);

if ClientDataSet1.FieldByName('Num1').AsInteger = Num1 then

Begin

DBGrid1.Canvas.Brush.Color := clGreen;

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

DBGrid1.Canvas.Brush.Color := holdColor;

end;

end;

end;

[Raficcha 1]

UOPA! Cara, você postou no laboratório de scripts..

 

bom, vejo que é novo por aqui..

 

Então seja bem vindo ao iMasters.

 

 

Leia as regras do fórum : http://forum.imasters.com.br/index.php?app=core&module=help

E Este tópico em especial: http://forum.imasters.com.br/index.php?/topic/341714-antes-de-criar-seu-topico-ou-postar-uma-resposta-leia-este-topico/

 

Seja bem vindo

[quintelab 91]

Movido Delphi > Laboratório de scripts (Delphi) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Delphi