UMain.pas

unit UMain;

interface

uses
  Classes, Forms, ShellAPI, WinTypes, Messages, Menus;

type
  TMainForm = class(TForm)
    MainMenu: TMainMenu;
    mFile: TMenuItem;
    mExit: TMenuItem;
    mView: TMenuItem;
    mRefresh: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    N2: TMenuItem;
    IE1: TMenuItem;
    S1: TMenuItem;

    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure Config1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure mExitClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure IE1Click(Sender: TObject);
    procedure S1Click(Sender: TObject);

  private
    IsLiveTasktray: boolean;
    NotifyIcon: TNotifyIconData;
    procedure InitTasktray;
    procedure FinishTasktray;
    procedure MovetoTasktray;
    procedure LeaveTasktray;
    procedure AppMinimize(Sender: TObject);
    procedure AppRestore(Sender: TObject);

  protected
    procedure WndProc(var Message: TMessage); override;
  end;

var
  MainForm: TMainForm;

implementation

uses
  Transport, Http, Cache, Config, StrSub,
  UConfig, UAbout, UTerminate;

{$R *.DFM}

const
  WM_NotifyTasktray = WM_USER + 100;

var
  ConfigForm: TConfigForm;
  AboutForm : TAboutForm;
  TerminateForm : TTerminateForm;
  TransportDaemon: TDaemon;
  HttpDaemon: THttp;

procedure TMainForm.WndProc(var Message: TMessage);
begin
  if Message.Msg = WM_NotifyTasktray then begin
    case Message.LParam of
    WM_LBUTTONUP:
      begin
        LeaveTasktray;
        Application.Restore;
      end;
    end;
  end else begin
    inherited;
  end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Randomize;
  FConfig := TConfig.Create;
  FConfig.Load;
  FCache := TCache.Create;
  Application.OnMinimize := AppMinimize;
  Application.OnRestore := AppRestore;
  IsLiveTaskTray := false;
  if FConfig.FIconize then begin
    Application.ShowMainForm := false;
    MoveToTaskTray;
  end;

  Caption := 'Crescent v.' + CrescentVersion;
  HttpDaemon := THttp.Create;
  HttpDaemon.Start;
  TransportDaemon := TDaemon.Create(true);
  TransportDaemon.Resume;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
var
  ARect: TRect;
begin
  if TerminateForm = nil then begin
    TerminateForm := TTerminateForm.Create(self);
    GetWindowRect(MainForm.Handle,ARect);
    TerminateForm.Top := ARect.Top + (MainForm.Height - TerminateForm.Height) div 2;
    TerminateForm.Left := ARect.Left + (MainForm.Width  - TerminateForm.Width) div 2;
    TerminateForm.Show;
    TerminateForm.Update;
    FinishTasktray;
    FTerminateFlag := true;
    TransportDaemon.Terminate;
    HttpDaemon.Free;
    TransportDaemon.Free;
    FCache.Free;
    FConfig.Free;
    TerminateForm.Hide;
    TerminateForm.Free;
    TerminateForm := nil;
  end;
end;

procedure TMainForm.AppMinimize(Sender: TObject);
begin
  MovetoTasktray
end;

procedure TMainForm.AppRestore(Sender: TObject);
begin
end;

procedure TMainForm.InitTasktray;
begin
  if IsLiveTasktray then begin
    exit;
  end;
  with NotifyIcon do begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd := Handle;
    uID := 1;
    uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
    uCallbackMessage := WM_NotifyTasktray;
    hIcon := Application.Icon.Handle;
    szTip := 'Crescent';
  end;
  Shell_NotifyIcon(NIM_ADD, @NotifyIcon);
  IsLiveTasktray := true;
end;

procedure TMainForm.FinishTasktray;
begin
  if IsLiveTasktray = False then begin
    exit;
  end;
  with NotifyIcon do begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd := Handle;
    uID := 1;
  end;
  Shell_NotifyIcon(NIM_DELETE, @NotifyIcon);
  IsLiveTasktray := False;
end;

procedure TMainForm.MovetoTasktray;
begin
  InitTasktray;
  Hide;
end;

procedure TMainForm.LeaveTasktray;
begin
  FinishTasktray;
  Show;
end;

procedure TMainForm.Config1Click(Sender: TObject);
begin
  if ConfigForm = nil then begin
    ConfigForm := TConfigForm.Create(self);
    ConfigForm.ShowModal;
    ConfigForm.Free;
    ConfigForm := nil;
  end;
end;

procedure TMainForm.About1Click(Sender: TObject);
begin
  if AboutForm = nil then begin
    AboutForm := TAboutForm.Create(self);
    AboutForm.Label1.Caption := 'Crescent v.' + CrescentVersion;
    AboutForm.ShowModal;
    AboutForm.Free;
    AboutForm := nil;
  end;
end;

procedure TMainForm.mExitClick(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.N2Click(Sender: TObject);
var
  SI: TStartupInfo;
  PI: TProcessInformation;
  s: string;
begin
  GetStartupInfo(SI);
  s := 'explorer.exe /e,"' + FConfig.FFolder + '"';
  CreateProcess(
    nil, pchar(s), nil, nil,
    false, CREATE_DEFAULT_ERROR_MODE, nil, nil, SI, PI
  );
end;

procedure TMainForm.IE1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', Pchar('http://localhost:' + FConfig.FPort + '/gateway.cgi/'),
    nil, nil, SW_SHOW);
end;

procedure TMainForm.S1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', Pchar('http://shingetsu.sourceforge.net/'),
    nil, nil, SW_SHOW);
end;

end.