nich trauchig sein, du hast es doch gut gemacht ... dort steht ja drin, wie man zeichnet und den Text reinmacht, also alles, was man braucht, dieses müß jetzt halt nur noch angepasst werden
Zusammenfassung aus deiner Demo:
Delphi-Quellcode:
// Hintergrund zeichnen
Canvas.Brush.Color := clGreen;
Canvas.FillRect(Rect);
// Textausgeben
DrawText(Canvas.Handle, PChar(celltext), Length(celltext), Rect, DT_SINGLELINE);