Einzelne Zelle in DBGrid einfärben

[t0mmy]

Hallo!

Also kann ich und wenn ja kann mir jemand hilfestellung leisten? - Eine Zelle in einer DBGrid so einfärben als wäre es ein Fortschrittsbalken, sprich die länge des balkens bestimmend einfärben?

[himitsu]

Wie man einzelne Zellen zeichnet wird hier überall, an bestimmt jeder 10 Ecke erklärt.

Und was du dort reinzeichnest ist vollkommen egal.

Egal ob ein ausgemaltes Rechteck, wie in vielen Demos/Threads, oder was Anspruchvolleres, wie deinen Balken.
Für Letzteres gibt es genügend Tutorials, zur Nutzung des Canvas.

[t0mmy]

Hmm Suche=vergebens ich habe nichts gefunden oder suche halt falsch -.-

[DeddyH]

[DP]DBGrid färben[/DP], damit findet man nichts? Das mag ich nicht glauben.

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