Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#4

Re: Sechseck mit Shapes füllen

  Alt 15. Mär 2010, 17:55
Für das Zeichnen brauchst du kein array sondern Mathematik.

Mal dir die Kreise UND dann die Sechsecke (Verbindung der Kreismittelpunkte) mal auf.

Daraus kannst du eine Formel ableiten womit du aus den Parametern (MittelpunktErsterKreis( x, y ), Durchmesser) das gesamte Feld zum Zeichnen berechnen kannst.

edit: bevor du diese Formel nicht hast, brauchst du dich um das Zeichnen auf der Form nicht zu kümmern.
Aber dafür kannst du dann z.B. ein Delphi-Referenz durchsuchenTImage nehmen und dort auf dem Delphi-Referenz durchsuchenTImage.Canvas rummalen
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat