Hi Leute!
Ich habe die Komponente Drawgrid auf eine Form gezogen. Jetzt zeichne ich ein Kreis in eine Zelle:
Delphi-Quellcode:
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
Drawgrid1.Canvas.Brush.Color:=clred;
Drawgrid1.Canvas.Ellipse(ACol*100,ARow*100,(ACol+1)*100,(ARow+1)*100); {eine Zelle ist 100*100 Pixel groß.}
end;
Mein Problem: Sobald ich das Programm starte, sind in jeder Zelle die roten Kreise. Wie schaffe ich es, dass, wenn ich z.B. auf die Zelle (0,0) klicke, dass auch nur in der Zelle (0,0) ein roter Kreis erscheint?