1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| procedure TChrono.DisplayTime(T: TTime); // Affichage des chiffres.
var
var Hour, Min, Sec, MSec: Word;
Hd, Hu, Md, Mu, Sd, Su: Word;
begin // On pourrait raccourcir le code, mais c'est plus clair ainsi
DecodeTime(T, Hour, Min, Sec, MSec);
DivMod(Sec , 10, Sd, Su);
DivMod(Min, 10, Md, Mu);
DivMod(Hour, 10, Hd, Hu);
{ Charge le TPicture dont l'indice dans le tableau correspond au chiffre à afficher. }
ImgSu.Picture := TabImg[Su];
ImgSd.Picture := TabImg[Sd];
ImgMu.Picture := TabImg[Mu];
ImgMd.Picture := TabImg[Md];
ImgHu.Picture := TabImg[Hu];
ImgHd.Picture := TabImg[Hd];
end; |
Partager