unit ufMain;

interface

uses
  windows, SysUtils, Classes, Graphics, Forms,
  Controls, StdCtrls, ExtCtrls, ComCtrls, Menus,
  uMonThread;

type
  TfMonDirMain = class(TForm)
    mm: TMainMenu;
    sbMain: TStatusBar;
    tmDate: TTimer;
    lbLog: TListBox;
    N1: TMenuItem;
    mmStart: TMenuItem;
    mmStop: TMenuItem;
    N5: TMenuItem;
    mmSettings: TMenuItem;
    mmExit: TMenuItem;
    procedure tmDateTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure mmExitClick(Sender: TObject);
    procedure mmStartClick(Sender: TObject);
    procedure mmStopClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fMonDirMain: TfMonDirMain;

implementation

{$R *.DFM}

procedure TfMonDirMain.tmDateTimer(Sender: TObject);
begin
  sbMain.Panels[0].Text := FormatDateTime('dd.mm.yyyy hh.nn.ss',now);
end;


procedure TfMonDirMain.FormCreate(Sender: TObject);
begin
   tmDateTimer(Self);
   sbMain.Panels[1].Text := 'Отключен';
// Здесь добавим заголовок для нашего приложения.
	Application.Title := 'Монитор каталогов';
//Такой заголовок будет у свернутого на панель задач (TaskBar) нашего приложения.
//На самом деле заголовок приложения можно указать сразу при разработке приложения.
//Для этого откройте в меню DelphiаProjectаOptions и на закладке Application
//исправьте поле Title
end;

procedure TfMonDirMain.mmExitClick(Sender: TObject);
begin
  Close;
end;

procedure TfMonDirMain.mmStartClick(Sender: TObject);
begin
  fMonDirMain.mmStart.Enabled := False; // Отключаем кнопку mmStart
  fMonDirMain.mmStop.Enabled := True;   // Включаем кнопку mmStop
  fMonDirMain.Tag := Integer(TMonDirThread.Create('c:\tst'));
end;

procedure TfMonDirMain.mmStopClick(Sender: TObject);
begin
  if Assigned(TMonDirThread(fMonDirMain.Tag)) then TMonDirThread(fMonDirMain.Tag).Terminate;
  fMonDirMain.Tag := 0;
end;

end.