Die Links von Deddy sind zwar gut, aber kurz noch der Ansatz im OnDrawCell :
Delphi-Quellcode:
with StringGrid1 do begin
canvas.Font.Name := 'Arial';
if ACol = 1 then begin
canvas.Font.Size:=8;
canvas.Font.Color:=clwhite;
canvas.brush.Color := clNavy;
canvas.TextOut(rect.Left,rect.bottom-canvas.Textheight('X')-1,
' TEST ');
end;
end
Baue das da mal bei dir ein und experimentiere damit. Für das Runden bietet sich eventuell eine selbst geschriebene Funktion an, die man eventuell auch in das OndrawCell einbauen könnte.
OK, das wars. Bis auf weiteres keine Antwort-Postings mehr von mir...