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; |
Sur la page suivante, nous allons voir comment ajouter une seconde icône sur notre tâche…
Si vous cherchez encore plus d’informations, vous pourrez en trouver sur ces excellents articles :