Marquee in Delphi 5

[WizoHulk]

Hallo Gemeinde,

Ich musst emit entsetzen festtellen, das die Progressbar von Delphi 5 kein Marquee kann.
Gut habe ich mir gedacht schreibe ich mir schnell selber eine Fertig, bzw hole mir der Quellcode aus der JvProgressbar die dies schon kann.
So, konnte es Comperlieren und Installieren. Jetzt kann ich über die Properties marquee alles einstellen. Aber Leider funktioniert diese nicht.

Hat jemand eine Ahnung was ich Falsch gemacht habe, oder kann Delphi 5 das von vorne rein nicht?

Danke schon mal für eure Hilfe.

[jfheins]

Auch die Standard-Prograssbar von Delphi 5 kann das.
Du brauchst aber wohl mindestens WinXP und ein Manifest; dann kannst du einfach eine Message an die Progressbar senden und schon läuft sie durch ;-) ( http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx )

[WizoHulk]

hmmm, es gibt kein propertie Marquee in der Progressbar.
Delphi 5 Läuft auf Windows 7

[DeddyH]

Du brauchst keine Property, setze ControlStyle der ProgressBar auf PBS_MARQUEE und sende ihr dann eine PBM_SETMARQUEE-Nachricht. Das steht alles in dem verlinkten Artikel.

[WizoHulk]

Danke schön das haut hin.
Aber wie kann ich das Flakern umgehen, denn mit Double Buffered Geht die Progressbar gar nicht.

[DeddyH]

Was hast Du denn ge"doublebuffered"? Die ProgressBar selbst oder ihren Parent?

[WizoHulk]

Die Progressbar selbst

[DeddyH]

Nimm das mal wieder raus. Ich bin gerade im Quality Central fündig geworden. Versuch es mal so:

Delphi-Quellcode:

type
  TProgressBar = class(ComCtrls.TProgressBar)
  private
    procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
  end;

  TForm1 = class(TForm)
    ...
  end;

implementation

...

procedure TProgressBar.WMEraseBkgnd(var Message: TWMEraseBkgnd);
begin
  DefaultHandler(Message);
end;

[WizoHulk]

Ast rein Super
Danke schön.

und was macht die genau.

[DeddyH]

Zitat:

The solution is simple. A WM_ERASEBKGND handler needs to be added to TProgressBar that calls DefaultHandler. This bypasses TWinControl.WMEraseBkgnd and its FillRect call.

Quelle: http://qc.embarcadero.com/wc/qcmain.aspx?d=38178