Программа-органайзер MS DOS

  end;

 

var

  Form1: TForm1;

  var n,c,e,x1,y1:integer; t:array[0..100] of string;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Timer1Timer(Sender: TObject);

var i:integer;

begin

label1.Caption:=datetostr(now);

label2.Caption:=timetostr(now);

 

for i:=0 to c-1 do

if t[i]=timetostr(now) then

begin

mediaplayer1.Play;

timer1.Enabled:=false;

sleep(1000);

timer1.Enabled:=true;

showmessage(listbox1.Items.Strings[i]);

mediaplayer1.Position:=0;

t[i]:='Виконано';

break;

end;

end;

 

procedure TForm1.TrayIcon1DblClick(Sender: TObject);

begin

visible:=true

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var f:string;

begin

inputquery('Повідомлення','№'+inttostr(n+1),f);

if f<>'' then

begin

listbox1.Items.Strings[n]:=f;

t[n]:=timetostr(t1.Time);

c:=listbox1.Items.Capacity;

n:=n+1;

end;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

n:=0;

t1.Time:=now;

mediaplayer1.FileName:='1.mp3';

mediaplayer1.Open;

end;

 

procedure TForm1.Label5Click(Sender: TObject);

begin

close

end;

 

procedure TForm1.Label6Click(Sender: TObject);

begin

visible:=false;

end;

 

procedure TForm1.ListBox1Click(Sender: TObject);

begin

edit1.Text:=t[listbox1.Itemindex];

end;

 

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

x1:=x;

y1:=y;

e:=1;

end;

 

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

var p:tpoint;

x2,y2:integer;

begin

getcursorpos(p);

x2:=p.X;

y2:=p.Y;

if e=1 then begin

Left:=x2-x1;

Top:=y2-y1;

end;

end;

 

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

e:=0;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var i:integer;

begin

n:=0;

for i:=0 to listbox1.Items.Capacity-1 do

t[i]:='';

listbox1.Clear;

edit1.Clear;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

var f,s:string; a:integer; h1,h2,m1,m2,s1,s2,ms1:word;

begin

if combobox1.Text='Секунд' then

if strtoint(edit2.Text)<60 then

  begin

  inputquery('Повідомлення','№'+inttostr(n+1),f);

  if f<>'' then

   begin

    listbox1.Items.Strings[n]:=f;

    DecodeTime(now,h1,m1,s1,ms1);

    if (s1+strtoint(edit2.Text))-60>0 then

      begin

        m1:=m1+1;

        s1:=(s1+strtoint(edit2.Text))-60;

      end else

      begin

        s1:=s1+strtoint(edit2.Text);

      end;

    t[n]:=timetostr(Encodetime(h1,m1,s1,ms1));

    c:=listbox1.Items.Capacity;

    n:=n+1;

   end;

  end;

if combobox1.Text='Хвилин' then

if strtoint(edit2.Text)<60 then

  begin

  inputquery('Повідомлення','№'+inttostr(n+1),f);

  if f<>'' then

   begin

    listbox1.Items.Strings[n]:=f;

    DecodeTime(now,h1,m1,s1,ms1);

    if (m1+strtoint(edit2.Text))-60>0 then

      begin

        h1:=h1+1;

        m1:=(m1+strtoint(edit2.Text))-60;

      end else

        m1:=m1+strtoint(edit2.Text);

 

    t[n]:=timetostr(Encodetime(h1,m1+strtoint(edit2.Text),s1,ms1));

    c:=listbox1.Items.Capacity;

    n:=n+1;

   end;

  end;

if combobox1.Text='Годин' then

if strtoint(edit2.Text)<24 then

  begin

  inputquery('Повідомлення','№'+inttostr(n+1),f);

  if f<>'' then

   begin

    listbox1.Items.Strings[n]:=f;

    DecodeTime(now,h1,m1,s1,ms1);

 

    if (h1+strtoint(edit2.Text))-24>0 then

      h1:=00

      else

      h1:=h1+strtoint(edit2.Text);

    t[n]:=timetostr(Encodetime(h1+strtoint(edit2.Text),m1,s1,ms1));

    c:=listbox1.Items.Capacity;

    n:=n+1;

  end;

end;

end;

end.