Juin 23

Mise en œuvre des fonctions SetProgressState & SetProgressValue

J’ai ajouté deux TButton sur la fiche et un TTrackBar.
Les événements OnClick et OnChange sont codés ainsi :
 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TfrmMain.btnDisplayProgressClick(Sender: TObject);
begin
  if Assigned(tbl3) then
  begin
    tbl3.SetProgressState(Self.Handle, TBPF_NORMAL); // en vert
  end;

  if Assigned(tbl3) then
  begin
    // Affiche une barre de progression sur le fond de la tâche
    tbl3.SetProgressValue(Self.Handle, trckbrProgress.Position, trckbrProgress.Max);

    btnHideProgress.Enabled := True;
  end;
end;

 

1
2
3
4
5
6
7
8
9
10
procedure TfrmMain.btnHideProgressClick(Sender: TObject);
begin
  if Assigned(tbl3) then
  begin
    // Masque la progression sur la tâche
    tbl3.SetProgressState(Self.Handle, TBPF_NOPROGRESS);

    btnHideProgress.Enabled := False;
  end;
end;

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TfrmMain.trckbrProgressChange(Sender: TObject);
begin
  if Assigned(tbl3) then
  begin
    case trckbrProgress.Position of
      0..20:  tbl3.SetProgressState(Self.Handle, TBPF_ERROR);  // en rouge
      21..50: tbl3.SetProgressState(Self.Handle, TBPF_PAUSED); // en jaune
      else    tbl3.SetProgressState(Self.Handle, TBPF_NORMAL); // en vert
    end;

    // Affiche une barre de progression sur le fond de la tâche
    tbl3.SetProgressValue(Self.Handle, trckbrProgress.Position, 100);
  end;
end;

 

Barre de progression

Barre de progression

 
Sur la page suivante, nous allons voir comment ajouter une seconde icône sur notre tâche…

Share

Pages : 1 2 3 4 5 6

Lien permanent vers Maximiser l’utilisation de la barre des tâches de Windows 7 avec Delphi Rédigé par Whiler \\ Tags : , , , , ,

Une réponse pour “Maximiser l’utilisation de la barre des tâches de Windows 7 avec Delphi”

Laisser une réponse

(requis)

(requis)

*

;) (lol) (y) |-( (hi) 8-) (angel) :s (clap) (bow) (tmi) (:| plus »

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.