Hallo,
etwas daneben
, damit wird nur der eigentliche Text hinterlegt, und da die Textlänge unterschiedlich sein wird ...
Würde sagen das da mit Printer.Canvas.FillRect entsprechend der Bedingungen in OnDrawcell gearbeitet werden muss.
angenommen Spalte 3 und 6 in rot:
Delphi-Quellcode:
Printer.Canvas.Brush.Style := bsClear;
//...
if J in [2,5] then
begin
Printer.Canvas.Brush.Color := clRed;
Printer.Canvas.FillRect(...);
end;
Printer.Canvas.TextOut(...);
oder so ähnlich ...