Einzelne Zelle in DBGrid einfärben

[t0mmy]

Ja das mit dem Färben bekomm ich hin aber das ich in einer Zelle ein Rechteck zeichnen möchte und das einfärben möchte -.-

[DeddyH]

Wie zeichnest Du denn sonst ein Rechteck?

[t0mmy]

Ja mit DBGrid1.Canvas.Rectangle(x,x,x,x)
Jedoch möchte ich das er mir in die zweite Spalte, erste zeile diesen balken hinzeichnet oder 3te spalte... und das es genau hineinpasst -.-

[DeddyH]

Hast Du Dir die Parameter von OnDrawColumnCell einmal genau angeschaut? Die Spalte und das Rechteck der aktuellen Zelle werden Dir doch übergeben.

[t0mmy]

Jap die hab ich mir angesehn ich kann da nur mit Rect. Left, Right, Bottom usw.. was machen aber das ich sage es soll in der zweiten Spalte das Rechteck genau so breit werden das check ich nicht -.- bin da in sachen Draw ziemlich ein anfänger -.-

[DeddyH]

Na gut, hier ein Beispiel:

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
  if Column.FieldName = 'ObjectId' then
    begin
      TDBGrid(Sender).Canvas.Brush.Color := clRed;
      TDBGrid(Sender).Canvas.RectAngle(Rect);
    end;
end;

Damit wird die Spalte, die das Feld "ObjectId" darstellt, mit Rot ausgefüllt.

[t0mmy]

Danke aber wie kann ich nur eine gewisse länge einfärben?