Hi!
Ich wollte mal so´n Programm schreiben mit ´ner Ellipse die sich um ihren Mittelpunkt dreht. Aber leider habe ich weder in Delphi noch in Windows eine entsprechende Funktion gefunden. Bei dem Versuch eine solche Ellipse zu zeichnen bin ich halb wahnsinnig geworden! Ich bekam alle möglichen Ergebnisse, aber keine Ellipse. Dann ist mir der Kragen geplatzt und ich habe das Netz nach einer entsprechenden Funktion abgesucht, und diese zum Glück auch gefunden! Es war nicht sehr schwer diesen Algorythmus in Delphi zu übersetzen.
Achtung : Wenn ihr dieses Projekt ladet wird die Eigenschaft 'AutoScroll' von Form1 dummerweise immer wieder auf 'False' gesetzt. Ich habe keine Ahnung woran dies liegt. Ihr müßt 'AutoScroll' auf 'True' setzen bevor ihr das Programm startet oder abspeichert, da sonst die Größe vom BitMap nicht an die Formular-Größe angepaßt wird!
http://img238.exs.cx/img238/271/atomklein9hv.gif
Dieses Atom-Programm spielt ein wenig mit drehenden Ellipsen herum. Wenn ihr solche gedrehten Ellipsen
in Euren Programmen verwenden wollt dann bindet einfach die
Unit 'Ellipse' in Euer Programm ein!
------------------------------------------------------------------------------------------------
Hi!
Hier kommt Version 1.2 von Atom!
Änderungen:
1.) Das Atom-Programm speichert nun unter dem Schlüssel 'HKEY_CURRENT_USER\SoftWare\TocWare\Atom" seine Daten in der System-Registrierung.
2.) Der Dateityp "*.qex" = Atomparameter-Datei wird nun nicht mehr automatisch registriert. Wenn Du diesen Dateityp registrieren möchtest dann öffne mit der rechten Maustaste das Context-Menü und wähle "Dateityp *.qex registrieren". Dort findest Du nun auch eine Funktion mit der Du alle Daten, die Atom in unter dem Schlüssel 'HKEY_CURRENT_USER\SoftWare\TocWare\Atom' in die Registrierung schreibt, wieder löschen kannst ("Registrierung aufheben").
3.) In den Delphi 3 und Delphi 7 Versionen habe ich die
Unit 'Ellipse.pas' etwas erweitert. Dort findest Du nun zwei neue Funktionen, um einen fließenden Farbverlauf zu berechnen und um eine gedrehte Ellipse mit Farbverlauf zu zeichnen.
4.) In der Delphi 7 Version von Ellipse.pas gibt es nun eine neue Funktion mit der Du auch Teilellipsen (Arcs) einer gedrehten Ellipse zeichnen kannst (von
Phantom1@Delphipraxis.net).
Hinweis: Dieses Programm verwendet einige meiner selbst gebastelten Komponenten, die Du benötigst um das Projekt zu öffnen und neu zu kompilieren. Eine aktuelle Version meiner Komponenten im Packet findest Du hier :
Tocs Komponenten als Paket
Grüße von TOC!