Stelle mal den BrushStyle der Canvas die du benutzt (PaintBox? Form?) auf "bsClear", dann überschdeckt die Schrift/Ellipsen nicht die darunterliegende Grafik komplett:
Delphi-Quelltext
1:
| canvas.Brush.Style := bsClear; |
- Zum eintragen von Koordinaten: Du könntest z.B. jeweils einen SpeedButton in jede GroupBox (Linie, Rechtecke/Quadrate...) aufnehmen. GroubIndex aller Speedbuttons stellst du auf 1, den ersten Speedbutton (in der Linie-GroupBox) auf "down=true".
Dann kannst du auf Mausklick (onMouseDown) abfragen welcher SpeedButton gewählt ist (if speedbutton1.down then...) und die Koordinaten eintragen (edit1.text := IntToStr(x)
ob Die Linke Maustaste gewählt wurde kannst du so abfragen: "if shift = [ssLeft]", rechte Taste entsprechend [ssRight]. So kannst du z.B. veranlassen dass durch den rechtsklick die zweite Koordinate gesetzt wird. Du könntest aber auch mit einer Variable erfassen wie oft geklickt wurde, so dass beim ersten Klick die erste und beim zeitwen klick die 2. Koordinate eingetragen wird...
Nur ein paar Vorschläge.
Ist jedenfalls ein nettes Anfängerprojekt, da kannst du gut dran lernen, schön umgesetzt.