Einzelne Zelle in DBGrid einfärben

[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?

[DeddyH]

Noch' n Gedicht:

Delphi-Quellcode:

uses Types; //für Rect-Funktion benötigt

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  R: TRect;
  Gr: TDBGrid;
  RdPercent: integer;
begin
  Gr := Sender as TDBGrid;
  //Standard-Zeichnen ohne Berücksichtigung von State
  Gr.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  //Spalte "ObjectId" selbst zeichnen
  if Column.FieldName = 'ObjectId' then
    begin
      //roter Rahmen
      R := Rect;
      Gr.Canvas.Pen.Color := clRed;
      Gr.Canvas.Rectangle(R);
      //Zufallswert zwischen 0 und 100 als fiktive Prozentangabe
      RdPercent := Random(101);
      //Rechteck anhand des Zufallswertes neu definieren
      R := Types.Rect(R.Left,
                      R.Top,
                      R.Left + trunc((R.Right - R.Left) * (RdPercent / 100)),
                      R.Bottom);
      //...und einfärben
      Gr.Canvas.Brush.Color := clRed;
      //Prozentangabe mittig ausgeben
      Gr.Canvas.Rectangle(R);
      Gr.Canvas.Brush.Style := bsClear;
      R := Rect;
      DrawText(Gr.Canvas.Handle, PChar(IntToStr(RdPercent) + '%'), -1, R, DT_CENTER or DT_VCENTER or DT_SINGLELINE);
    end;

[t0mmy]

Welche Uses muss ich für Types.Rect einbinden? Es wird nämlich nicht erkannt