dbGrid, drawColumnCell und dgRowSelect

[Essener]

Hallo zusammen,

ich habe in einem dbGrid in den Optionen dgRowSelect aktiviert.
Im dbGridDrawColumnCell richte ich die Celle mit

Delphi-Quellcode:

  if Column.FieldName = 'Betrag' then
  begin
    Text:= dbGrid1.Fields[DataCol].AsString;
    outRect:= Rect;
    dbGrid1.Canvas.FillRect(Rect);
    drawText(dbGrid1.Canvas.Handle,Pchar(Text),length(Text),outRect,DT_Right);
  end;

rechtsbündig aus.

In der selektierten Zeile wird allerdings der ursprüngliche und der ausgerichtete Text gleichzeitig angezeigt.

Anscheinend wird beim RowSelect der Feldinhalt nach dem drawText() nochmal geschrieben?!

Wie kann ich das verhindern?

[Uwe Raabe]

Ändere mal das Property DefaultDrawing auf False und ergänze deinen Eventhandler um einen else-Zweig in dem du DefaultDrawColumnCell aufrufst.

[Essener]

Ok, habe im Objektinspektor DefaultDrawing auf false gesetzt.

Im Eventhandler

Delphi-Quellcode:

  if Column.FieldName = 'Betrag' then
  begin
    Text:= dbGrid1.Fields[DataCol].AsString;
    outRect:= Rect;
    dbGrid1.Canvas.FillRect(Rect);
    drawText(dbGrid1.Canvas.Handle,Pchar(Text),length(Text),outRect,DT_Right);
  end
  else
  dbGrid1.DefaultDrawColumnCell(outRect,DataCol,Column,State);

den else Zweig hinzugefügt. Ohne Erfolg.
Habe ich da etwas falsch verstanden oder ausgeführt?

[Uwe Raabe]

Beim Aufruf von DefaultDrawColumnCell musst du Rect verwenden anstatt outRect.