{*******************************************************}
{                                                       }
{       SSTP Bottle Client                              }
{                                                       }
{       Copyright (C) 2001-2003 naru/Mikage Sawatari    }
{                                                       }
{*******************************************************}


(********************************)
(* これは不幸のソースです。     *)
(* このソースを見た人は、       *)
(* 一週間以内に６つのバグを     *)
(* 取らないと死にます。         *)
(********************************)

{ http://bottle.mikage.to/viewlog2.cgi?around=3eb34d9300000001 }

program SstpBottle;

{%ToDo 'SstpBottle.todo'}

uses
  Forms,
  MainForm in 'MainForm.pas' {frmSender},
  BRegExp in 'BRegExp.pas',
  BottleDef in 'BottleDef.pas',
  ConstEditor in 'ConstEditor.pas' {frmConstEditor},
  SendConfirm in 'SendConfirm.pas' {frmConfirmSend},
  SettingForm in 'SettingForm.pas' {frmSetting},
  LogForm in 'LogForm.pas' {frmLog},
  HeadValue in 'HeadValue.pas',
  ChannelListForm in 'ChannelListForm.pas' {frmChannelList},
  MessageBox in 'MessageBox.pas' {frmMessageBox},
  Logs in 'Logs.pas',
  HttpThread in 'HttpThread.pas',
  LogDownload in 'LogDownload.pas' {frmLogDownload},
  ColorSettingFrame in 'ColorSettingFrame.pas' {frmColorSetting: TFrame},
  ScriptConsts in 'ScriptConsts.pas',
  BottleChainEvent in 'BottleChainEvent.pas',
  BottleChainRule in 'BottleChainRule.pas',
  BottleChainListFrame in 'BottleChainListFrame.pas' {frmBottleChainList: TFrame},
  BottleChainRuleEditor in 'BottleChainRuleEditor.pas' {frmBottleChainRuleEditor},
  MinMaxEditor in 'MinMaxEditor.pas' {frmMinMaxEditor},
  StrListEditor in 'StrListEditor.pas' {frmStrListEditor},
  MultipleChoiceEditor in 'MultipleChoiceEditor.pas' {frmMultipleChoiceEditor},
  SakuraSeekerInstance in 'SakuraSeekerInstance.pas',
  FMOExplorer in 'FMOExplorer.pas' {frmFMOExplorer},
  OpenFileEditor in 'OpenFileEditor.pas' {frmOpenFileEditor},
  BottleSstp in 'BottleSstp.pas',
  SurfacePreview in 'SurfacePreview.pas' {frmSurfacePreview},
  SppList in 'SppList.pas',
  TalkShowFrame in 'TalkShowFrame.pas' {frmTalkShow: TFrame},
  EditorTalkShow in 'EditorTalkShow.pas' {frmEditorTalkShow},
  ProgressWindow in 'ProgressWindow.pas' {frmProgressWindow},
  Plugins in 'Plugins.pas',
  SpecialCharEditor in 'SpecialCharEditor.pas' {frmSpecialCharEditor},
  HtmlOutputConfig in 'HtmlOutputConfig.pas' {frmHTMLOutputConfig},
  HtmlOutputProgress in 'HtmlOutputProgress.pas' {frmHTMLOutputProgress},
  SearchLog in 'SearchLog.pas' {frmSearchLog};

// 型付き定数を変更できるようにするコンパイラオプション
// 一部のコンポーネントにこれが必要
{$J+}

{$R *.RES}

// WindowsXPのLuna対応。ただしDelphi7のみ。
// Delphi6なら、もしかしたら$Rしても動くかもしれませんが、
// Delphi5Proだと ListView のカラムクリックなどで不具合が出ますのでダメです。
{$IFDEF CONDITIONALEXPRESSIONS}
  {$IF Declared(CompilerVersion)}
      {$IF CompilerVersion >= 15.0} // Delphi7以上なら
        {$R WindowsXP.RES}
      {$IFEND}
  {$IFEND}
{$ENDIF}

begin
  // MemChk;
  Application.Initialize;
  Application.Title := 'SSTP Bottle Client';
  Application.ShowMainForm := true;
  Application.CreateForm(TfrmSender, frmSender);
  Application.CreateForm(TfrmLog, frmLog);
  Application.CreateForm(TfrmMessageBox, frmMessageBox);
  Application.CreateForm(TfrmSurfacePreview, frmSurfacePreview);
  if not Application.Terminated then frmSender.Show;
  Application.Run;
end.