Künstlichen Horizont

[MiniMax]

Hallo Zusammen,
heute wende ich mich mit einem "kleinem" Problem an euch:
Ich möchte gerne so nen Horizont wie im Video zeichnen, nur weiß ich net wie ich das mit ner Paintbox machen kann :cry:

Video

Könnt ihr mir Helfen?

[Blup]

Um die Frage genauso allgemein zu beantworten, wie diese gestellt wurde:
Benutze die Methoden des Paintbox.Canvas.

:glaskugel: Was ist das Problem?

[p80286]

Nun notwendig sollten sein

Delphi-Quellcode:

   Canvas.Pen
   canvas.MoveTo
   Canvas.Lineto

damit kann man schon eine ganze Menge erreichen.

Gruß
K-H

[MiniMax]

Hallo Zusammen,
ich gebe zu ihr seid keine Hellseher - schade :P

Wie ich die Farben hinbekomme ist mir Klar! Nur net wie ich das mit der Schräglage Machen kann?? Mit ner Linie würde der "Rest" Ja nicht Blau oder Rot?????

[himitsu]

Dafür gibt es FloodFill oder Polygon.
Außerdem könntest du auch Arc (den blauen Teilkreis) verwenden.

[add]
Falls dir Arc zu umständlich ist:
http://www.delphipraxis.net/internal...003983#1003983 (aktuelle Codes siehe letzer Post)

[MiniMax]

Hallo Zusammen,
danke für den Tipp mit FloodFill! :thumb:
Ein problem habe ich aber: Sobald ich an die 45% Grensze gehe, wechselt die Farbe von Oben Blau nach unten Blau! Im anhang habe ich mein Programm drinne - wäre dankbar für nen Tipp