Ellipsen zeichnen

[Aphton]

Zitat:

Zitat von fishly

Delphi-Quellcode:

until (clientheight div 2 < 3) or (clientwidth div 2 < 3);

EDIT: Wenn du nicht mal die Grundzüge des logischen Denkens besitzt, solltest du dich nicht ans Programmieren wagen.

Fishly, sei doch nicht so streng; ichn ehme an, du weißt, dass LOGIK nicht immer selbstverständlich ist...
Selbst erfahrenste Programmierer machen gelegentlich dumme Fehler.

Threadstarter:

Code:

Definiere dir eine Variable namens Radius vom Typ Integer. (var Radius: Integer;)
Setze zu Beginn ClientWidth auf ClientHeight (ClientWidth := ClientHeight;)
Anschließend weißt du der Variable Radius den Wert von (ClientWidth div 2) zu (Radius := ClientWidth div 2;)
Nun gehst du in eine Schleife hinein, in der du
1. Einen Kreis mit dem (die Variable) Radius zeichnest und
2. Den (die Variable) Radius durch 2 dividierst.
die Bedingung der Schleife ist, so wie du es schon gesagt hast:
Radius < 3

Achte beim Zeichnen darauf, dass du relativ zum Fenstermittelpunkt zeichnest, dh:
Soetwas wie:
linke Ecke X = MittelpunkX - Radius
rechte Ecke X = MittelpunkX + Radius
usw.

MfG

[fishly]

Zitat:

Fishly, sei doch nicht so streng;

Normalerweise nicht... Mich hat nur gestört, dass sich unser Freund schon wieder abgeseilt hat, nur, weil er nicht sofort ne Antwort bekam.
Ich schreib auch nicht viel in Foren, aber solche Forenhopper find ich unsympathisch.