Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by FriFra,
21. Aug 2005
So, jetzt hab ichs...
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);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by FriFra,
21. Aug 2005
Sicher, aber manchmal ist es spät, und manchmal sieht man den Wald vor Bäumen nicht ;)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by FriFra,
21. Aug 2005
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?