Sorry!

Ich hab zwar jetzt schon über all gesucht und auch ziemlich viel gefunden, doch anfangen kann ich damit leider überhaupt nichts.



Kann mir nicht mal jemand ein kurzes Beispiel geben wie ich eine Reihe eines DBGrid s färben kann???


Ich habs mal mit
DBGrid1.DefaultDrawColumnCell(Rect(Point(0,0),Poin t(100,100)), 0, DBGrid1.Columns[1], [gdfixed]);

ausprobiert, doch leider macht der mir dann das Quadrart
Rect(Point(0,0),Point(100,100)) in die linke obere Ecke wie woher bekomme ich die Koordinaten von der zu makierenden Zelle???

Vielen Dank schon mal im Vorraus

Brauchst doch nur die Zellen abzuwandern.

markieren

Delphi-Quellcode:

 if row = 1 then
  color := red
else
  color = green;

Sorry aber irgendwie hab ich das nicht so ganz verstanden!

Kannst du mir vielleicht mal ein komplettes Besipiel geben???

markieren

Delphi-Quellcode:

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

Warum nimmst du nicht einfach die const Rect: TRect, die dir die procedure übergibt?

Sorry wenn ich so dumm frag! Aber was muss ich denn jetzt bei mir in den Quelltext schreiben, damit ich eine Zelle "angemalt" bekomme???

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if State=[gdSelected] then begin
   DBGrid1.Canvas.Brush.Color:=clGray;
   DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top, Column.Title.Caption);
  end else begin
   DBGrid1.Canvas.Brush.Color:=clRed;
   DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top, Table1.Fields[DataCol].AsString);
  end;
end;

z.B.


Probier mal ein bischen mit CANVAS rum.

Ich glaub ich hab jetzt das Schema verstanden, aber mein Problem ist, dass ich nicht weiß woher ich die Procedure TForm1.DBGrid1DrawColumnCell bekomme.

Sorry! Auslöse!

OK ich glaub ich habs jetzt!

Vielen Dank!!!