Thema: Delphi TDrawGrid Problem

Einzelnen Beitrag anzeigen

Tiefflieger

Registriert seit: 20. Mai 2003
18 Beiträge
 
Delphi 6 Personal
 
#5
  Alt 20. Mai 2003, 18:06
warum über das ereignis OnDrawCell und nicht über das ereignis On(Dbl)Click ?
gibt es eigentlich irgendeine chance, was ins drawgrid zu malen (und es auch angezeigt zu lassen, selbst wenn man weiter im drawgrid rumklickt), wenn "defaultdrawing" auf true steht?

Ich bastle grad auch an einem vier gewinnt spiel rum und beschäftige mich jetzt erstmal mit der grafik von dem spiel, sprich wenn das programm kreise in mein drawgrid malt, bin ich glücklich *g*
ich hab das folgendermaßen realisiert, ist das vielleicht umständlich oder so, gibts nen trick, wie man das mit OnDrawCell leichter machen kann?
Delphi-Quellcode:
procedure TVier_Gewinnt.DG_SpielfeldDblClick(Sender: TObject);

var zeile, spalte,
    oben, links :integer;
begin
  //welcher Kasten ist markiert?
  spalte := DG_Spielfeld.Selection.Left;
  zeile := DG_Spielfeld.Selection.Top;
  
  //welche Koordinaten hat der Kasten?
  oben := DG_Spielfeld.CellRect(zeile,spalte).Top;
  links := DG_Spielfeld.CellRect(zeile,spalte).Left;

  //kreise malen (nach zahlen *g*)
  DG_Spielfeld.Canvas.Ellipse(oben+5,links+5,oben+45,links+45);
end;
Irren ist menschlich.
Aber wenn man richtig Mist bauen will, braucht man einen Computer.

Dan Rather, CBS-Fernsehreporter
  Mit Zitat antworten Zitat