TBonanza -------- Moin... Beschreibung: TBonanza ist eine neue Delphi-Komponente die ich hier nirgend sah, und deshalb selbt geschrieben habe. Die Komponente hat zwei Slider, die als "Minimum" - "Maximum" - Einstellungs dings benutzt werden können. TBonanza ist allerdings meine erste graphische Delphi Koponente. Deshalb bitte ich um Entschuldigung, wenn sie nicht absolut proper programmiert ist. Falls man etwas absolut ungeheuerliches gefunden hat, bitte ich doch um eine Antwort, wäre nett, wenn ich bei der nächsten Komponente nicht nochmals dieselben Fehler machen würde (grins). Naja, was solls, jedenfalls ist die Komponente der Allgemeinheit freigegeben und ich beanspruche keinerlei Copyright. Falls die die Komponente verändert werden soll, nur zu. Das einzige was ich für mich gerne hätte, wäre eine Erwähnung als Originalautor. Das Ding darf ruhig kopiert und verändert werden. Es war eine sehr gute Lektion in Komponentendesign für mich und half mir durch ein Problem, dass ich mit meinem Studium hatte. Information: Autor: Sir Roger McMisteli Version: 1.00 Datum: 17. Oktober 1995 Copyrights: Gehört der Allgemeinheit EMail: archie@ezinfo.vmsmail.ethz.ch **************************************************** * BITTE BENUTZEN SIE NICHT DIESE COMPUSERVE-ID, UM * * MICH ZU KONTAKTIEREN! SIE IST NICHT MEHR GÜLTIG! * * (Das war mal meine Geschäfts-ID, aber ich habe * * meinen Arbeitgeber gewechselt!) * * DIESE COMPUSERVE-ID IST NICHT GÜLTIG !!!!!!!!!!! * **************************************************** Ereignisse: Das Dings reagiert auf die folgenden Ereignisse: OnChanging: kommt, wenn der Benutzer am verschieben der Slider ist OnChange: kommt, wenn er damit fertig ist, und die Maustaste losgelassen hat OnMinChanged: kommt, wenn er den Minimum-Slider losgelassen hat OmMaxChanged: Dasselbe für den Maximumslider Der Typ TSlider, der innerhalb OnChange und OnChanging vorkommt, besteht aus TSlider = (esNoChange, esMaximumSlider, esMinimumSlider); und zeigt so auf den Slider, der bewegt wurde (oder esNoChange, wenn faktisch beide Slider noch die alten Positionen haben) Eigenschaften: TBonanza hat die folgenden Eigenschaften: Units: wieviele senkrechte Striche gemalt werden sollen. Also die Anzahl Einteilungsstriche SliderWidth, SliderHeight: Die Dimensionen der beiden Slider MinColor, MaxColor: Die Farben MinValue, MaxValue: Die Positionen der beiden Dingerchen AutoSlider: berechnet automatisch die Dimensionen ShowUnits: zeigt die Einteilungen an ShowText: Zeigt auch die textliche Eintelung unterhalb der Striche Vielen Dank und guten Schlaf...