TUbuntuProgress - ProgressBar im Ubuntu Stil *Version 1.2*

[Jonelmeier]

TUbuntuProgress
Ich möchte euch hier meine erste eigene Komponente vorstellen. Es handelt sich, wie dem Namen sicherlich schon zu entnehmen ist, um eine ProgressBar im Ubuntu Stil (wem das nichts sagt, der möge sich den angehängten Screenshot ansehen).
Würde mich über weitere Meinungen Testwilliger Delphianer freuen

Zu den Funktionen:

• TUbuntuProgress.ColorSet - Einstellen des Colorsets
• TUbuntuProgress.DividersInner - Option ob die dünne vertikalen Balken im orangen Teil angezeigt werden sollen
• TUbuntuProgress.DividersOuter - Das ganze nur für den Hintergrund
• TUbuntuProgress.Shadow - Legt fest, ob der kleine Schatten um die Bar angezeigt werden soll
• TUbuntuProgress.Position - Fortschritt des Balkens
• TUbuntuProgress.MarqueeWidth - Einstellen der Breite des Marquee-Balkens
• TUbuntuProgress.Max - Maximalwert den Position einnehmen kann (Minimalwert ist immer 0)
• TUbuntuProgress.Speed - Einstellen der Geschwindigkeit in mmMarquee
• TUbuntuProgress.Step - Um diesen Wert wird Position beim aufruf von StepIt verschoben
• TUbuntuProgress.StepIt - Wie TProgressBar - Position wird um Step nach Rechts verschoben; wenn der Maximalwert erreicht ist, geht's von vorne los
  Modus mmNormal:
• Verhalten ähnlich TProgressBar
  Modus mmMarquee:
• Sobald Mode auf diesen Wert (mmMarquee) gesetzt wird, ändert sich die ProgressBar in eine Marquee Bar (ein Balken wandert von links nach rechts und zurück...)
• Dies geschiet völlig selbstständig, man muss nichts weiter dazu tun (Ist nur zur Runtime sichtbar; zur Designtime erscheint die Bar ohne Fortschritt)

Geplante Features:

• Option zum Ändern des Verhalten in mmMarquee
• Farben nicht per Colorset sondern durch einzelnen farbwert ändern

Download:

• Komponente (zip, 5,69 KB)
• Demoprogramm (zip, 262,5 KB)

Hinweiß:
Das Package, welches in der ZIP-Datei drin ist, ist mit Delphi 2009 erstellt. Leider hab ich momentan kein anderes Delphi zur Hand, d.h. ihr müsst euch unter Umständen das Package selber erstellen. Nicht vergessen alle nötigen Dateien (2x *.pas und 1x *.dcr) hinzuzufügen.

Getestet unter:
Windows 2000
Windows XP SP2/SP3
Windows Vista
Windows 7

Delphi 6
Delphi 2007
Delphi 2009
Delphi 2010

Das ganze steht unter Open Source bereit, d.h. jeder der will darf die Komponente verwenden und weitergeben wie er möchte. Wenn sie in einem Projekt zum Einstatz kommt, würde ich mich nur über einen kleinen Hinweis hier, oder per PN oder Mail (jonasatdoebertindotde) freuen!!!

Changelog:

Delphi-Quellcode:

//  Versionsinformationen:
//  ****Version 1.0****
//  + Erstes Release
//
//  ****Version 1.1****
//  + ColorSets eingeführt
//    + csOriginal
//    + csBlue
//    + csRed
//  + Property MarqueeWidth hinzugefügt
//  + Property Speed hinzugefügt
//  - Quelltext aufgeräumt
//
// ****Version 1.2****
//  + Property Shadow hinzugefügt
//  - DividersInner in ProgressDividers umbenannt
//  - DividersOuter in BackgroundDividers Umbenannt
//  o Property Visible funktioniert nun korrekt
//  o Beim Setzen von MarqueeWidth wird auf die Richtung geachtet
//  o Code-Optimierungen

Gruß Jonas aus Hamburg