Added frmOpenFileEditor

diff --git a/bottleclient/OpenFileEditor.dfm b/bottleclient/OpenFileEditor.dfm
new file mode 100755 (executable)
index 0000000..973e495
--- /dev/null
+++ b/bottleclient/OpenFileEditor.dfm
@@ -0,0 +1,65 @@
+object frmOpenFileEditor: TfrmOpenFileEditor
+  Left = 458
+  Top = 546
+  Width = 428
+  Height = 129
+  Caption = #12501#12449#12452#12523#12398#25351#23450
+  Color = clBtnFace
+  Font.Charset = SHIFTJIS_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poDesktopCenter
+  PixelsPerInch = 96
+  TextHeight = 12
+  object lblFile: TLabel
+    Left = 8
+    Top = 8
+    Width = 58
+    Height = 12
+    Caption = #12501#12449#12452#12523'(&F):'
+    FocusControl = edtFile
+  end
+  object edtFile: TEdit
+    Left = 8
+    Top = 24
+    Width = 313
+    Height = 20
+    TabOrder = 0
+    Text = 'edtFile'
+  end
+  object btnBrowse: TButton
+    Left = 336
+    Top = 24
+    Width = 75
+    Height = 25
+    Caption = #21442#29031'(&B)'
+    TabOrder = 1
+  end
+  object btnCancel: TButton
+    Left = 256
+    Top = 64
+    Width = 81
+    Height = 25
+    Cancel = True
+    Caption = #12461#12515#12531#12475#12523'(&C)'
+    ModalResult = 2
+    TabOrder = 2
+  end
+  object btnOk: TButton
+    Left = 344
+    Top = 64
+    Width = 67
+    Height = 25
+    Caption = '&OK'
+    Default = True
+    ModalResult = 1
+    TabOrder = 3
+  end
+  object OpenDialog1: TOpenDialog
+    Left = 16
+    Top = 64
+  end
+end

diff --git a/bottleclient/OpenFileEditor.pas b/bottleclient/OpenFileEditor.pas
new file mode 100755 (executable)
index 0000000..8dd5b80
--- /dev/null
+++ b/bottleclient/OpenFileEditor.pas
@@ -0,0 +1,30 @@
+unit OpenFileEditor;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls;
+
+type
+  TfrmOpenFileEditor = class(TForm)
+    OpenDialog1: TOpenDialog;
+    edtFile: TEdit;
+    btnBrowse: TButton;
+    btnCancel: TButton;
+    btnOk: TButton;
+    lblFile: TLabel;
+  private
+    { Private \90é\8c¾ }
+  public
+    { Public \90é\8c¾ }
+  end;
+
+var
+  frmOpenFileEditor: TfrmOpenFileEditor;
+
+implementation
+
+{$R *.dfm}
+
+end.

diff --git a/bottleclient/SstpBottle.dpr b/bottleclient/SstpBottle.dpr
index edcc393..43024ec 100755 (executable)
--- a/bottleclient/SstpBottle.dpr
+++ b/bottleclient/SstpBottle.dpr
@@ -35,7 +35,8 @@ uses
   StrListEditor in 'StrListEditor.pas' {frmStrListEditor},
   MultipleChoiceEditor in 'MultipleChoiceEditor.pas' {frmMultipleChoiceEditor},
   SakuraSeekerInstance in 'SakuraSeekerInstance.pas',
-  FMOExplorer in 'FMOExplorer.pas' {frmFMOExplorer};
+  FMOExplorer in 'FMOExplorer.pas' {frmFMOExplorer},
+  OpenFileEditor in 'OpenFileEditor.pas' {frmOpenFileEditor};
 
 {$R *.RES}
 {$DEFINE Mani}
@@ -52,6 +53,7 @@ begin
   Application.CreateForm(TfrmChannelList, frmChannelList);
   Application.CreateForm(TfrmMessageBox, frmMessageBox);
   Application.CreateForm(TfrmFMOExplorer, frmFMOExplorer);
+  Application.CreateForm(TfrmOpenFileEditor, frmOpenFileEditor);
   if not Application.Terminated then frmSender.Show;
   Application.Run;
 end.