Delphi-Quellcode:
procedure TForm1.listeDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var left,top:integer;
begin
if (acol=6) and (arow=1) then
begin
left:=rect.right-14;
top:=rect.bottom-16;
liste.Canvas.Brush.Color:=clred;
liste.Canvas.Ellipse(left,top,left+10,top+10);
end;
end;
Also, hier im Grid mit Namen 'liste' wird in Zeile 2 und Spalte 7 ein roter Punkt hinten in die Zelle gezeichnet.
Der Code ist nur der Test dessen in einem leeren Grid.
[edit=Admin]BBCode aktiviert. Mfg, Daniel[/edit]