Forum: Programmieren allgemein
by DeddyH,
20. Dez 2011
Noch' n Gedicht:
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
Forum: Programmieren allgemein
by DeddyH,
20. Dez 2011
Na gut, hier ein Beispiel:
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);
...
Forum: Programmieren allgemein
by DeddyH,
20. Dez 2011
Hast Du Dir die Parameter von OnDrawColumnCell einmal genau angeschaut? Die Spalte und das Rechteck der aktuellen Zelle werden Dir doch übergeben.
Forum: Programmieren allgemein
by DeddyH,
20. Dez 2011
Wie zeichnest Du denn sonst ein Rechteck?
Forum: Programmieren allgemein
by DeddyH,
20. Dez 2011
DBGrid färben, damit findet man nichts? Das mag ich nicht glauben.