Progresbar zur Laufzeit zur Marquee ProgressBar machen?

[FriFra]

Die Schweizer haben eine MarqueeProgressbar von der normalen Progressbar abgeleitet:
http://www.swissdelphicenter.ch/de/showcode.php?id=1680

Ich frage mich nun, ob es nicht möglich wäre eine "normale" Progressbar zur Laufzeit zur MarqueeProgressbar zu machen?

[Luckie]

Klar, setze die entsprechenden Stile einfach zur Laufzeit: PBS_MARQUEE und entsprechend dann die Animation: PBM_SETMARQUEE.

Also manchmal erstaunst du mich immer wieder. Du programmierst doch nicht erst seit gestern oder? :gruebel:

[FriFra]

Zitat:

Zitat von Luckie

Also manchmal erstaunst du mich immer wieder. Du programmierst doch nicht erst seit gestern oder? :gruebel:

Sicher, aber manchmal ist es spät, und manchmal sieht man den Wald vor Bäumen nicht ;)

[jfheins]

Beispiel:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
   Bar: TProgressBar;
begin
Bar := ProgressBar1;

SetWindowLong(Bar.Handle, GWL_STYLE, GetWindowLong(Bar.Handle, GWL_STYLE) or PBS_MARQUEE) // Jetzt isses ne Marquee-Progresbar

end;



procedure TForm1.Button4Click(Sender: TObject); // hier verändern wir die Geschwindigkeit - je kleiner, desto langsamer
var
   AniSpeed: Cardinal;
   Bar: TProgressBar;
begin
   Bar := ProgressBar1;
   AniSpeed := strtoint (Edit1.Text);

   if AniSpeed <> 0 then
      SendMessage(Bar.Handle, PBM_SETMARQUEE, 1, AniSpeed)
   else
      SendMessage(Bar.Handle, PBM_SETMARQUEE, 0, 0);
end;

Den Code in Funktionen umzuformen, das überlass ich dir ;)

Und L...war natürlich mal wieder schneller :cry:

[FriFra]

So, jetzt hab ichs...

Delphi-Quellcode:

const
  PBS_MARQUEE  = $08;
  PBM_SETMARQUEE = WM_USER + 10;
var
  cs:LongInt;
begin
  cs := GetWindowLong(ProgressBar1.Handle, GWL_STYLE);
  SetWindowLong(ProgressBar1.Handle, GWL_STYLE, cs Or PBS_MARQUEE);
  SendMessage(ProgressBar1.Handle, PBM_SETMARQUEE, 1, 40);
...

Aber das ganze funktioniert leider nur, wenn die unit XPMan engebunden wurde :x ... somit kann ich's nicht gebrauchen :?
Bekommt man den ProgressBar auch ohne XPMan in den Marquee-Style?

[Edit]
:oops: Ups... da war ja wieder einer schneller ;)

[jfheins]

Nein, das XPMan sagt Windows, dass du die neuen XP-Controls nutzen möchtest - und erst die Unterstützen das afaik ;)

[Daniel G]

da müsstest du dann nach "XPManifest" suchen....

[Loni]

Hi kann mir jemand sagen warum Delphi 2007 PBS_MARQUEE nicht erkennt "[DCC Fehler] KyteUnit.pas(41): E2003 Undefinierter Bezeichner: 'PBS_MARQUEE'" ich habe auch das XPMan eingebunden . Was mache ich falsch???

[ManuMF]

Hast du vielleicht die Konstanten vergessen (siehe Beitrag #5)?

[Luckie]

Die Delphi Units hinken immer etwas hinter her und kennen deshalb die Konstante nicht. Du musst sie also selber deklarieren.