Стр. 325 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
325
{$R *.dfm}
procedure GetHMS(Value:integer;var h,m,s:byte);
begin
h:=value div 24 div 3600;
m:=(value div 24 - h*3600) div 60;
s:=value div 24 - h*3600 - m*60;
end;
function GetHHMMSS(h,m,s:byte):string;
begin
Result:='';
if h<10 then
Result:=Result+'0'+IntToStr(h)+':'
else
Result:=Result+IntToStr(h)+':';
if m<10 then
Result:=Result+'0'+IntToStr(m)+':'
else
Result:=Result+IntToStr(m)+':';
if s<10 then
Result:=Result+'0'+IntToStr(s)
else
Result:=Result+IntToStr(s);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
dir:=GetCurrentDir+'\';
Timer1.Enabled:=false;
Form1.BorderStyle:=bsSingle;
Form1.BorderIcons:=[biMinimize,biSystemMenu];
Form1.Caption:='Видеоплеер';
Form1.Color:=clWhite;
MediaPlayer1.Visible:=false;
MediaPlayer1.Display:=Panel1;
Panel1.Caption:='';
Panel1.BevelInner:= bvLowered;
Panel1.BevelOuter:= bvLowered;
Panel1.Color:=clBlack;
Label1.Caption:='';
SpeedButton1.Flat:=true;
SpeedButton2.Flat:=true;
SpeedButton1.NumGlyphs:=1;
SpeedButton2.NumGlyphs:=1;
SpeedButton1.Glyph.LoadFromFile(dir+'Play.bmp');