Comment créer une barre de progression de couleur dans Delphi?

Question

je veux créer une barre de progression de couleur dans le langage delphi dans l'utilisation par XPMan composant (c'est: avec le style win xp).

Que puis-je faire?

code utilisant?

Answer 1

Lorsque les thèmes sont activés, vous ne pouvez pas modifier la couleur de la barre de progression. Avec les thèmes désactivés, vous pouvez changer la couleur en envoyant un message PBM_SETBARCOLOR au contrôle. Puisque vous voulez changer la couleur de votre barre de progression thématique, vous devez faire tout le dessin vous-même ou utiliser une barre de progression tierce qui imite une barre de progression à thème dans laquelle vous pouvez changer la couleur.

Answer 2

Même opinion que The_Fox. Si vous voulez une 3ème partie gratuite, voici une: http://rmklever.com/?p=138

Answer 3

uses 
    commctrl 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    ProgressBar1.Brush.Color := clGreen; 
    SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow); 
    ProgressBar1.Position := 50; 
end;