Discussion :

[Zankou]

Bonjour !

J'aimerais changer la couleur d'une ProgressBar pendant l'execution d'un programme. J'aimerais que quand l'utilisateur choisit quelque chose dans une liste, après que les bar se soient mise à jour, qu'elle change de couleur en fonction de leur remplissage. Donc j'ai tenté ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
if (StatsMonstres[Id1,1] <= 30) then
     BEGIN
       SendMessage(ProgressBar1.Handle,PBM_SETBARCOLOR,0,clred);
     end;
  if ((StatsMonstres[Id1,1] > 30) and (StatsMonstres[Id1,1] <= 50)) then
     BEGIN
       SendMessage(ProgressBar1.Handle,PBM_SETBARCOLOR,0,$000080FF);
     end;
  if ((StatsMonstres[Id1,1] > 50) and (StatsMonstres[Id1,1] <= 80)) then
     BEGIN
       SendMessage(ProgressBar1.Handle,PBM_SETBARCOLOR,0,clyellow);
     end;
  if ((StatsMonstres[Id1,1] > 80) and (StatsMonstres[Id1,1] <= 110)) then
     BEGIN
       SendMessage(ProgressBar1.Handle,PBM_SETBARCOLOR,0,clgreen);
     end;
  if (StatsMonstres[Id1,1] > 110) then
     BEGIN
       SendMessage(ProgressBar1.Handle,PBM_SETBARCOLOR,0,clAqua);
     end;

Sauf que là, erreur le compilateur me renvoi le message suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
unit1.pas(185,40) Error: Identifier not found "PBM_SETBARCOLOR"

Donc je regarde pendant longtemps sur internet, et je trouve, sur la F.A.Q de ce site, qu'il faut déclarer cette constante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
PBM_SETBARCOLOR = WM_USER + 9;

Je me dis que je suis tirer d'affaire... En faite non le compilateur me dit que c'est une déclaration illegal, et après quelques recherches je pense que c'est en faite une déclaration pour ceux qui sont sous Delphi.

Vous pouvez vous dire que je ne suis pas sous windows, (c'était la plus part des réponses sous les autres forums) mais non je suis sous windows 7 (pc assez vieux).

Je ne sais plus quoi faire, si vous avez des solution je sous tout oui.
Merci d'avance

[Jipété]

Yop !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PBM_SETBARCOLOR = WM_USER + 9;

Je me dis que je suis tiré d'affaire... En fait non le compilateur me dit que c'est une déclaration illégale, et après quelques recherches je pense que c'est en fait une déclaration pour ceux qui sont sous Delphi.

Exact.
Tu tenteras donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PBM_SETBARCOLOR = LM_USER + 9;

[Zankou]

Yop !

Exact.
Tu tenteras donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PBM_SETBARCOLOR = LM_USER + 9;

J'ai toujours la meme erreur

[acaumes]

Bonjour,

WM_USER fonctionne sous LAZARUS mais il faut un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

uses messages;

dans le code avant son utilisation...

Cordialement

[Jipété]

WM_USER fonctionne sous LAZARUS mais il faut un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

uses messages;

dans le code avant son utilisation...

Pas chez moi (mais j'ai une vieille, très vieille version).

Par contre je viens de tester à l'instant que LM_USER fonctionne avec uses LMessages;.

[acaumes]

Par contre je viens de tester à l'instant que LM_USER fonctionne avec uses LMessages;.

qui définit (LMessages)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
const
  LM_USER           = $400; // standard WM_USER value
  WM_USER           = LM_USER;

donc cela doit être équivalent.