TSpeedButton reste grisé

Version imprimable

28/06/2006, 11h17
franck.thibault

TSpeedButton reste grisé
J'utile un SpeedButton qui a la propriété Enabled à True. Lorsque je clique sur ce bouton, je lance différents traitements. Pendant ce temps là, le bouton ne doit pas être accessible. A la fin, je redonne accès au bouton.
Code:

1 2 3 4 5 6 7 procedure TForm1.SpeedButton1Click(Sender: TObject); begin SpeedButton1.Enabled := False; // ... SpeedButton1.Enabled := True; end;
Le problème est que le bouton reste grisé lorsque je redonne accès (mais est bien accessible). J'ai essayé avec un Refresh. Mais le bouton reste tout de même accessible. Quelqu'un aurait-il une solution à mon problème ?
28/06/2006, 11h35
Eric Sigoillot

Bonjour,

Je n'ai pas tout compris :?
Tu cliques sur le bouton, il devient grisé (Enabled = False). A la fin du traitement, tu réactives le bouton (Enabled = True), mais celui-ci ne reprend pas son apparence normale, c'est ça ?

Parce que si c'est ça, le problème n'est pas reproduisible chez moi (dernière version de Lazarus).

@++
28/06/2006, 11h41
franck.thibault

Citation:

Envoyé par Eric Sigoillot

Bonjour,

Je n'ai pas tout compris :?
Tu cliques sur le bouton, il devient grisé (Enabled = False). A la fin du traitement, tu réactives le bouton (Enabled = True), mais celui-ci ne reprend pas son apparence normale, c'est ça ?

Oui c'est ça.

Citation:

Envoyé par Eric Sigoillot

Parce que si c'est ça, le problème n'est pas reproduisible chez moi (dernière version de Lazarus).

@++

J'ai aussi la dernière version de Lazarus. Quelques précisions : je suis sous Windows (XP Pro et 2000). Le SpeedButton a la propriété Flat à True.
28/06/2006, 11h50
Eric Sigoillot

Non, rien à faire, aucun problème sur ma version avec Win XP Pro SP2.
Pour avoir l'image grisée sur le TSpeedButton, tu utilises bien une image simple contenant la version non grisée et la version grisée côte à côte avec la propriété NumGlyphs du TSpeedButton positionnée sur 2 ?

@++

Citation:

Envoyé par Eric Sigoillot

Non, rien à faire, aucun problème sur ma version avec Win XP Pro SP2.
Pour avoir l'image grisée sur le TSpeedButton, tu utilises bien une image simple contenant la version non grisée et la version grisée côte à côte avec la propriété NumGlyphs du TSpeedButton positionnée sur 2 ?

@++

D'autres précisions : j'utilise un TSpeedButton uniquement pour pouvoir bénéficier de sa propriété flat. Je n'utilise pas d'image, juste un Caption.
Voici le code exact :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
procedure TFormPrincipal.BtnApacheClick(Sender: TObject);
var
  idxMenuAccueil: Integer;
  idxMenuServeur: Integer;
  idxMenuApache: Integer;
begin
  // Récupération de l'index de menu de l'item Accueil
  idxMenuAccueil := PopupMenuTrayIcon.Items.IndexOfCaption('Accueil');
  // Récupération de l'index de menu de l'item Serveurs
  idxMenuServeur := PopupMenuTrayIcon.Items.IndexOfCaption('Serveurs');
  if Parametre.ApacheStatus = ssOff then
  begin
    BtnApache.Enabled := False;
    // Récupération de l'index de menu de l'item Apache du sous-menu Serveurs
    idxMenuApache := PopupMenuTrayIcon.Items.Items[idxMenuServeur].IndexOfCaption('Lancer serveur Apache...');
    PopupMenuTrayIcon.Items.Items[idxMenuServeur].Items[idxMenuApache].Enabled := False;
    PopupMenuTrayIcon.Items.Items[idxMenuServeur].Items[idxMenuApache].Caption := 'Démarrage...';
    LabelEtatServeurApache.Caption := 'Démarrage...';
    LabelEtatServeurApache.Color := clYellow;
    FormPrincipal.Refresh;
    Application.ProcessMessages;
    LancerApache;
    LabelEtatServeurApache.Color := clLime;
    LabelEtatServeurApache.Caption := 'Démarré';
    PopupMenuTrayIcon.Items.Items[idxMenuServeur].Items[idxMenuApache].Enabled := True;
    PopupMenuTrayIcon.Items.Items[idxMenuServeur].Items[idxMenuApache].Caption := 'Arrêter serveur Apache...';
    BtnApache.Caption := 'Arrêter...';
    BtnApache.Enabled := True;
    BtnAccueil.Enabled := True;
    PopupMenuTrayIcon.Items.Items[idxMenuAccueil].Enabled := True;
  end else if Parametre.ApacheStatus = ssOn then
  begin
    BtnApache.Enabled := False;
    // Récupération de l'index de menu de l'item Apache du sous-menu Serveurs
    idxMenuApache := PopupMenuTrayIcon.Items.Items[idxMenuServeur].IndexOfCaption('Arrêter serveur Apache...');
    PopupMenuTrayIcon.Items.Items[idxMenuServeur].Items[idxMenuApache].Enabled := False;
    PopupMenuTrayIcon.Items.Items[idxMenuServeur].Items[idxMenuApache].Caption := 'Arrêt...';
    LabelEtatServeurApache.Caption := 'Arrêt...';
    LabelEtatServeurApache.Color := clYellow;
    FormPrincipal.Refresh;
    Application.ProcessMessages;
    ArreterApache;
    LabelEtatServeurApache.Color := clRed;
    LabelEtatServeurApache.Caption := 'Arrêté';
    PopupMenuTrayIcon.Items.Items[idxMenuServeur].Items[idxMenuApache].Enabled := True;
    PopupMenuTrayIcon.Items.Items[idxMenuServeur].Items[idxMenuApache].Caption := 'Lancer serveur Apache...';
    BtnApache.Caption := 'Lancer...';
    BtnApache.Enabled := True;
    BtnAccueil.Enabled := False;
    PopupMenuTrayIcon.Items.Items[idxMenuAccueil].Enabled := False;
  end;
  BtnApache.Refresh;
  BtnAccueil.Refresh;
end;

28/06/2006, 13h50
Eric Sigoillot
Il y a en effet un bug dans la LCL. La couleur du canevas pour dessiner la police n'est pas remise à jour lorsque le bouton change d'état.

Au lieu de :

Code:

SpeedButton.Enabled := True;

Il suffit d'écrire ça :
Code:

1 2 SpeedButton.Canvas.Font.Color := clBtnText; SpeedButton.Enabled := True;
Ca devrait fonctionner :)

Si jamais tu veux une modification permanente, il faut éditer le fichier speedbutton.inc (dans Lazarus\lcl\include) et vers la ligne 465 ajouter le code suivant avant l'appel à DrawText :

Code:

Canvas.Font.Color := clBtnText;

Sans oublier de recompiler toute la LCL :wink:

@++
29/06/2006, 09h46
franck.thibault
Citation:
Envoyé par Eric Sigoillot

Au lieu de :

Code:

SpeedButton.Enabled := True;

Il suffit d'écrire ça :

Code:

1 2 SpeedButton.Canvas.Font.Color := clBtnText; SpeedButton.Enabled := True;

Ca devrait fonctionner :)
Merci. Ca marche. Je verrai plus tard pour modifier la LCL.