Progressbar flackert unter Vista

[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.