Progresbar zur Laufzeit zur Marquee ProgressBar machen?

[Mazel]

Guten Morgen,

ich wusste gar nicht dass man das auch mit den Delphi Komponenten machen kann. Sehr erfreulich für mich. Nun ist mir aber unter Delphi 7 aufgefallen, dass die Progressbar ein wenig flackert. Kann man das umgehen?

[fwsp]

Zitat von Mazel:

Kann man das umgehen?

hilft das?
ProgressBar.DoubleBuffered := True;

[Mazel]

Ja, funktioniert, danke. Ich habe es vorher mit Form1.DoubleBuffered := True ausprobiert, aber das hat nicht geklappt. Müsste das aber nicht auch funktionieren?

[LizardKaiser]

Hi,

TProgressBar wrappt das Windows CommonControl ProgressBar, somit ist es von TWinControl abgeleitet, besitzt ein eigenes Handle und ist für sich selbst verantwortlich, was das zeichnen betrifft. - Also IMHO nein. Kann aber auch sein dass ich ganz deneben liege

Grüße, Lk

[Helmi]

Hallo,

gleich mal zuerst, ich schäme mich zutiefst

Aber ich muss es fragen, da ich momentan vor lauter Bäume keine Bäume mehr seh

Mit:

Delphi-Quellcode:

var 
  cs:LongInt; 
begin 
  cs := GetWindowLong(ProgressBar1.Handle, GWL_STYLE); 
  SetWindowLong(ProgressBar1.Handle, GWL_STYLE, cs Or PBS_MARQUEE);

schalt ich das Marquee für die Progressbar ein.

Nun dacht ich mir, mit

Delphi-Quellcode:

var 
  cs:LongInt; 
begin 
  cs := GetWindowLong(ProgressBar1.Handle, GWL_STYLE); 
  SetWindowLong(ProgressBar1.Handle, GWL_STYLE, cs XOR PBS_MARQUEE);  //Änderung: XOR

schalt ich es wieder aus.

Stimmt das - ist das so richtig?

Mit so was hab ich immer mal wieder Probleme - sorry *schäm*

[DeddyH]

Mit xor switchst Du um (ein in aus und umgekehrt). Um zuverlässig auszuschalten, kannst Du and not nehmen.

[Helmi]

wunderbar!

Danke für die Hilfe!

[Cyberbob]

Wenn ich in TurboDelphi2006 Explorer Progressbar1.DoubleBuffered := True; schreib, funktioniert der Marquee-Effekt nicht mehr, ohne das DoubleBuffered flackert die Progressbar allerdings, was kann ich tun?

[Luckie]

Zitat von Cyberbob:

Wenn ich in TurboDelphi2006 Explorer Progressbar1.DoubleBuffered := True; schreib, funktioniert der Marquee-Effekt nicht mehr, ohne das DoubleBuffered flackert die Progressbar allerdings, was kann ich tun?

Aktualisier sie nicht ständig. Zeig mal den entsprechenden Code.

[Cyberbob]

nix. nur den code der oben steht. sonst ist das formular leer und im sonstigen programm befindet sich auch nicht mehr
aber hier mein code:

Delphi-Quellcode:

uses
  ..., xpman;

procedure TForm2.FormCreate(Sender: TObject);
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);
  progressbar1.DoubleBuffered := True;
end;

ohne progressbar1.DoubleBuffered := True; läuft alles bestens