Zitat von
fishly:
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