Vista Progressbar

[delphi_user14]

Hallo, ich habe eine Progressbar für Vista* (& XP) geschrieben, über deren Einstellungen man auch Marquee einstellen kann.

Jetzt ist auch eine neue Version NUR für Vista verfügbar. Bei der kann man auch den State einstellen (Dank Assertor :-D)!

*) Für Vista hatte ich sie eigentlich geschrieben, wegen dem Flackern, funktioniert aber auch unter XP.

Würde gerne von euch hören.

[RavenIV]

Hast Du auch einen Screenshot?
Ich installier mir doch nicht die Katze im Sack :-(

[delphi_user14]

Auf dem Designer oder in Aktion?

[mkinzler]

Zitat:

Zitat von delphi_user14

Auf dem Designer oder in Aktion?

Am Besten von beidem

[RavenIV]

Zitat:

Zitat von delphi_user14

Auf dem Designer oder in Aktion?

Wäre beides interessant.
a) Designer mit ObjectInspector, damit man sieht, was man alles einstellen kann
b) in Action, damit man das Design der Komponente sieht.

/edit
Männo.
Sitze der Kienzler nur vor dem PC und macht ständig <F5> im Browser, oder was?

[Luckie]

Zitat:

Zitat von RavenIV

Männo.
Sitze der Kienzler nur vor dem PC und macht ständig <F5> im Browser, oder was?

Er will wohl mich in den Beiträgen überholen. ;)

Aber jetzt bitte wieder zurük zum Thema.

[RavenIV]

Zitat:

Zitat von Luckie

Zitat:

Zitat von RavenIV

Männo.
Sitze der Kienzler nur vor dem PC und macht ständig <F5> im Browser, oder was?

Er will wohl mich in den Beiträgen überholen. ;)

Aber jetzt bitte wieder zurük zum Thema.

/nochmal offtopic
Im Prinzip hat er das schon geschafft.
In kürzerer Zeit mehr Beiträge erstellt.

[DP-Maintenance]

Dieses Thema wurde von "Phoenix" von "VCL / WinForms / Controls" nach "Open-Source" verschoben.
Ist keine Frage zu einer Komponente, sondern eine Komponente mit Soße ;-)

[delphi_user14]

Obwohl die Komp eigentlich nur eine Ableitung von TProgressbar ist, hier zwei Screenshots.

PS: Ich hatte ja nen Flacker-beitrag darüber.

Ist natürlich behoben!!

Schreibt bitte, wie ihr sie findet.

Danke!

[Assertor]

Hi,

find ich gut (man beachte mal sein Alter!). Etwas vergleichbares gab es mal bei den Schweizern.

Was ich in einer ähnlichen Komponente auch realisiert habe, mal als Anregung für Dich:
- Marquee Emulation für ComCtl32.dll < v6.00, z.B. mit Timer und einer Objectlist
- Set States für Vista (paused, waiting, error) für das normale Progressbar

Gruß Assertor

[Der.Kaktus]

Hallo,

auch mal ein Lob schick...weiter so :thumb:

[delphi_user14]

@Assertor

Das mit den States hab ich versucht, bin aber jämmerlich gescheitert :cry:

Kannst du mir einen Quelltext posten?

[Die Muhkuh]

Zitat:

Zitat von Assertor

find ich gut (man beachte mal sein Alter!). Etwas vergleichbares gab es mal bei den Schweizern.

Arg viel mehr als den Code davon verpackt isses auch nicht :stupid:

[DeddyH]

Och, mach doch seine Arbeit nicht so schlecht, er ist ja noch sooooooo jung :stupid:

[Die Muhkuh]

Ähem, kopier gleich unser Skypegespräch rein :stupid:

[delphi_user14]

Kann mir jemand sagen, wie ich die States der Progressbar (Vista) ändern kann?

[TurboMartin]

Das mit den States kommt nacher auch bei mir in die Sammlung. Das geht übrigens mit SendMessage ;)

[delphi_user14]

OK, aber mit welcher Message?

[Poseidon]

Du hast gesagt Processbar für Vista.
Läuft die auch unter XP?

Screenshots sehen gut aus. :thumb:

[Assertor]

Hi,

Zitat:

Zitat von delphi_user14

@Assertor
Das mit den States hab ich versucht, bin aber jämmerlich gescheitert :cry:
Kannst du mir einen Quelltext posten?

Sorry, war heute nicht im Forum...

Mal etwas Source, das mit den Marquees hast Du ja schon:

Delphi-Quellcode:

// die Symbole, falls dir welche noch fehlen
const
  {$EXTERNALSYM PBM_SETSTATE}
  PBM_SETSTATE      = WM_USER + 16;
  {$EXTERNALSYM PBM_GETSTATE}
  PBM_GETSTATE      = WM_USER + 17;

  {$EXTERNALSYM PBST_NORMAL}
  PBST_NORMAL       = $0001;
  {$EXTERNALSYM PBST_ERROR}
  PBST_ERROR        = $0002;
  {$EXTERNALSYM PBST_PAUSED}
  PBST_PAUSED       = $0003;

procedure DoFoo;
begin
  SendMessage(AProgressBar.Handle, PBM_SETSTATE, WPARAM(PBST_NORMAL), 0);
end;

Gruß Assertor

[delphi_user14]

Dankeschöööön!

[delphi_user14]

Apropos: Wisst ihr eigentlich, dass die ganzen Vista-Konstanten in der CommCtrl deklariert sind? (Delphi 2007)

@Poseidon

Zitat:

Zitat von Poseidon

Du hast gesagt Processbar für Vista.
Läuft die auch unter XP?

Ja, nur hat man dann eben den XP-Stil.

P.S. Sorry, wegen der hintereinander folgenden Beiträge. :angel:

[Poseidon]

Zitat:

Zitat von delphi_user14

@Poseidon

Zitat:

Zitat von Poseidon

Du hast gesagt Processbar für Vista.
Läuft die auch unter XP?

Ja, nur hat man dann eben den XP-Stil.

Dann setz ich einfach ne normale Processbar aufs Form und ein XPManifest :wink:
Hat den selben Effekt.

[delphi_user14]

Aber bei einer normalen Progressbar gibts kein Marquee.

[Poseidon]

Zitat:

Zitat von delphi_user14

Aber bei einer normalen Progressbar gibts kein Marquee.

Muss man nur noch wissen was Marquee ist. Ich weiß es leider nicht :oops:
Na ja, ich beschäftige mich auch wenig mit Progressbars......

[Zacherl]

Damit kannst du dem Benutzer zeigen, dass ein Prozess noch arbeitet, wenn du keine genauen Informationen bestizt, um den Fortschritt zu berechnen.

Die Bar bewegt sich dann immer hin & her.

[Poseidon]

Ich hab's installiert (xp) und Marquueentabled auf true gestellt und den Speen auf 10. Position ist 40 aber irgendwie geschieht nicht's.....

[Die Muhkuh]

Hi Assertor,

wie hast Du die gefunden? Ich hatte die Tage ein bisschen im MSDN und bei Google danach geschaut, wurde aber nicht fündig.

[Assertor]

Zitat:

Zitat von Die Muhkuh

Hi Assertor,
wie hast Du die gefunden? Ich hatte die Tage ein bisschen im MSDN und bei Google danach geschaut, wurde aber nicht fündig.

Sind im SDK für Vista in der CommCtrl.h:

Code:

#if _WIN32_WINNT >= 0x0600

#define PBM_GETSTEP             (WM_USER+13)
#define PBM_GETBKCOLOR          (WM_USER+14)
#define PBM_GETBARCOLOR         (WM_USER+15)
#define PBM_SETSTATE            (WM_USER+16) // wParam = PBST_[State] (NORMAL, ERROR, PAUSED)
#define PBM_GETSTATE            (WM_USER+17)

#define PBST_NORMAL             0x0001
#define PBST_ERROR              0x0002
#define PBST_PAUSED             0x0003

#endif      // _WIN32_WINNT >= 0x0600

Gruß Assertor

Edit: Über Google findest Du doch auch PBM_SETSTATE, dort steht dann ja auch als Quellenangabe commctrl.h mit Minimum OS Version Windows Vista.

[Die Muhkuh]

Zitat:

Zitat von Assertor

Edit: Über Google findest Du doch auch PBM_SETSTATE, dort steht dann ja auch als Quellenangabe commctrl.h mit Minimum OS Version Windows Vista.

Klar, wenn man weiß, wie die Message heißt :zwinker:

Hatte nach "setState ProgressBar" gesucht, da wurde ich nicht wirklich fündig.

[Assertor]

Zitat:

Zitat von Die Muhkuh

Klar, wenn man weiß, wie die Message heißt :zwinker:

Ok, da hast Du recht. Wobei ich auch mal bei Google über "vista progressbar" gesucht habe. Ich mach mir dann die Mühe, die ersten ca. 5 Treffer anzusehen ;)

Der 5. ist vom SPS Weblog und da kommt auch PBM_SETSTATE im Text vor *g*.

Der zweite Treffer ist übrigens dieser Thread, man ist Daniels Seite wieder schnell ;)

Gruß Assertor
:dp:

[Die Muhkuh]

An die Suchbegriffe "Vista Progressbar" hatte ich gar nicht gedacht, sonst hätte ich es wohl auch gefunden.

[Helmi]

Hallo,

ich hab mir mal die Vista-Progressbar angeschaut
Funktioniert ganz gut.

Nur für was sind die States?
Wenn ich etwas anderes als "psNormal" auswähle, dann
läuft die ProgressBar nicht mehr?

Für was sind die anderen States und wie funktionieren
Die?

[delphi_user14]

Die Progressbar mit den States kann nur unter Vista benutzt werden.

psNormal bedeutet, dass der Vorgang planmäßig verläuft.

psPaused bedeutet, dass der Vorgang angehalten wurde.

psError bedeutet, dass ein Fehler aufgetreten ist.

Es macht KEINEN Sinn, die States und Marquee gleichzeitig zu aktivieren.

Hast du die Komponente XPManifest auf die Form geworfen?

[Helmi]

Ich hab XPManifest als auch ein Vista-Manifest ausprobiert

Hab MarqueeEnabled false und z. B. psError ausgewählt
Aber die Progressbar macht nichts!

Rechner:
Vista Ultimate 32 Bit
Delphi 7

[delphi_user14]

Hast du den Wert "Position" gesetzt?

[Die Muhkuh]

Wird bei Error die ProgressBar nicht rot anstatt grün?

[delphi_user14]

Ja

[Helmi]

Zitat:

Zitat von delphi_user14

Hast du den Wert "Position" gesetzt?

Nein - das hatte gefehlt!
Danke!

[delphi_user14]

Gern geschehen!