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?