Progressbar flackert unter Vista

[delphi_user14]

Hallo!

Ich würde gern ein Programm mit MarqueeProgressbar unter Vista schreiben, doch leider flackert die Bar.

Ich habe es mit

Delphi-Quellcode:

progressbar1.doublebuffered := True;

versucht, doch es funktioniert dann noch weniger. Sie bleibt einfach stehen.

Kann mir jemand helfen?

[lbccaleb]

hast es mal mit doublebuffered der hauptform versucht??

[delphi_user14]

funkt auch nicht :wall:

[Die Muhkuh]

Komponente evtl. noch auf DoubleBuffered.

Wird die Komponente zufällig in einer Schleife neu gezeichnet?

[DeddyH]

Zitat:

Zitat von Die Muhkuh

Komponente evtl. noch auf DoubleBuffered.

Zitat:

Zitat von delphi_user14

Delphi-Quellcode:

progressbar1.doublebuffered := True;

:mrgreen:

[edit] Auf welchem Control liegt denn die Progressbar? Form, Panel, PageControl...? [/edit]

[delphi_user14]

Die ProgressBar liegt auf der Hauptform.

[DeddyH]

Wenn Du sowohl Form als auch die Bar auf DoubleBuffered gesetzt hast, weiß ich leider auch nicht weiter, ich habe auch kein Vista, um das mal auszuprobieren.

[delphi_user14]

Die Bar ist nicht mehr auf DoubleBuffered.

[Die Muhkuh]

Ist da eine Schleife im Spiel, die refresh oder repaint aufruft?

[delphi_user14]

Nein

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  PBS_MARQUEE = $08;
  PBM_SETMARQUEE = wm_user +10;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
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);
 form1.DoubleBuffered := true;
end;

[DeddyH]

Und wo setzt Du den Progress? So wird es ja wohl kaum flackern, wenn da nichts passiert.

[Die Muhkuh]

Die Marqueebar läuft von alleine.

[DeddyH]

Ach, ist das dieses Endlosdings?

[Die Muhkuh]

Ja

[stOrM]

Hi, ich hab grad das gleiche problem mit marquee kuck mal hier:

Codegear

[delphi_user14]

Das ist ein bisschen kompliziert.

Ist da gemeint, dass ich die Message WMERASEBKGND in die Unit ComCtrls unter TProgressBar einfügen soll.

Muss ich in diesem Fall nicht das Packet neu installieren?

[toms]

Zitat:

Zitat von delphi_user14

Das ist ein bisschen kompliziert.

Ist da gemeint, dass ich die Message WMERASEBKGND in die Unit ComCtrls unter TProgressBar einfügen soll.

Muss ich in diesem Fall nicht das Packet neu installieren?

Leite eine neue Komponenete von TProgressBar ab.

[delphi_user14]

Wie leite ich eine Komponente ab.

Ich weiß nur, wie man eine Nicht-Visuelle Komponente schreibt.

[toms]

Zitat:

Zitat von delphi_user14

Wie leite ich eine Komponente ab.

Ich weiß nur, wie man eine Nicht-Visuelle Komponente schreibt.

Menü Datei - Neu - Anderes - Komponente auswählen und dem Wizard folgen.

[stOrM]

Naja so sollte man es vielleicht nicht umbedingt machen funzt aber:

Delphi-Quellcode:

type
  TMarqueeProgress = class(TProgressbar)
  public
    procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
   end;

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

[toms]

Andere Möglichkeit.

1. Datei ProgressBarVistaFix.pas anlegen:

Delphi-Quellcode:

unit ProgressBarVistaFix;   
  
interface  
  
uses 
  Messages, ComCtrls;   
  
type  
  TProgressBar = class(ComCtrls.TProgressBar) 
  private  
    procedure WMEraseBkgnd(var Message: TWmEraseBkgnd); message WM_ERASEBKGND;   
  end;   
    
implementation  
  
procedure TProgressBar.WMEraseBkgnd(var Message: TWmEraseBkgnd);    
begin  
  DefaultHandler(Message);   
end;     
  
end.

2. In jedem Projekt, wo eine Progressbar verwendet wird, die Unit ProgressBarVistaFix in die Uses Klausel aufnehmen.

[delphi_user14]

Danke, ich habe jetzt eine neue Komponente geschrieben, über deren Einstellungen man auch das Marquee einstellen kann.

[delphi_user14]

Kann man HIER herunterladen.