DrawGrid & Canvas

[twityzuz]

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?

[Aphton]

Delphi-Quellcode:

if (ARow = 0) and (ACol = 0) then
Drawgrid1.Canvas.Ellipse(...)

Und statt auf 0 zu prüfen, solltest du prüfen, obs dem Ausgewählten Column gleicht! (Bei Mousedown die Position dementsprechend speichern)

[jaenicke]

Zitat von Aphton:

Und statt auf 0 zu prüfen, solltest du prüfen, obs dem Ausgewählten Column gleicht! (Bei Mousedown die Position dementsprechend speichern)

Nein, bitte nicht, mach es lieber gleich richtig...

Es gibt extra den Parameter State, in dem genau steht, ob die Zelle ausgewählt ist usw., d.h. es reicht entsprechend des Wertes dieses Parameters die Zelle zu zeichnen.