|
Registriert seit: 15. Dez 2008
Ort: Schweiz
5 Beiträge
Delphi 2006 Professional
|
Re: Shape auf Paintbox
1. Feb 2009, 02:25
Die Idee der ersten Lösung war, in einer Turnier-Tabelle bestimmte Spiele mit Shapes
1.) hervorzuheben (deshalb Brush.Color := clFarbe1 für ein laufendes Spiel, Brush.Color := clFarbe2 für ein beendetes Spiel usw. )
2.) auf OnMouseEnter / OnMouseLeave / OnMouseDown / OnMouseUp zu reagieren
Nun verwende ich die unsichtbaren Shapes "nur" noch, um zu erkennen, ob ich auf einem bestimmten Spiel in der Tabelle bin.
Dann setze ich eine Variable mit dem entsprechenden Spiel und mache ein Repaint.
Inzwischen hätte ich das ganze auch völlig ohne Shapes lösen können, da mir die Shapes weniger halfen als angenommen.
Wenn ich von Beginn weg gewusst hätte, dass transparente Shapes nur ohne Farbe funktionieren, hätte ich alles direkt via Maus-Koordinaten gelöst.
|