(none)

diff --git a/bottleclient/EditorTalkShow.dfm b/bottleclient/EditorTalkShow.dfm
new file mode 100644 (file)
index 0000000..927b7f1
--- /dev/null
+++ b/bottleclient/EditorTalkShow.dfm
@@ -0,0 +1,38 @@
+object frmEditorTalkShow: TfrmEditorTalkShow
+  Left = 1027
+  Top = 433
+  Width = 393
+  Height = 497
+  Caption = #12456#12487#12451#12479#12503#12524#12499#12517#12540
+  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
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 12
+  inline TalkShowFrame: TfrmTalkShow
+    Left = 0
+    Top = 0
+    Width = 385
+    Height = 470
+    Align = alClient
+    TabOrder = 0
+    inherited PanelBevel: TPanel
+      Width = 385
+      Height = 470
+      inherited PaintBox: TPaintBox
+        Width = 367
+        Height = 468
+      end
+      inherited ScrollBar: TScrollBar
+        Left = 368
+        Height = 468
+      end
+    end
+  end
+end

diff --git a/bottleclient/EditorTalkShow.pas b/bottleclient/EditorTalkShow.pas
new file mode 100644 (file)
index 0000000..201bf7d
--- /dev/null
+++ b/bottleclient/EditorTalkShow.pas
@@ -0,0 +1,55 @@
+unit EditorTalkShow;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, TalkShowFrame, BottleDef;
+
+type
+  TfrmEditorTalkShow = class(TForm)
+    TalkShowFrame: TfrmTalkShow;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+  private
+    { Private \90é\8c¾ }
+  public
+    { Public \90é\8c¾ }
+  end;
+
+var
+  frmEditorTalkShow: TfrmEditorTalkShow;
+
+implementation
+
+{$R *.dfm}
+
+uses MainForm;
+
+procedure TfrmEditorTalkShow.FormCreate(Sender: TObject);
+begin
+  TalkShowFrame.SsParser := frmSender.SsParser;
+  self.Left := Pref.EditorPreviewWindowPosition.Left;
+  self.Top  := Pref.EditorPreviewWindowPosition.Top;
+  self.Width := Pref.EditorPreviewWindowPosition.Right - self.Left;
+  self.Height := Pref.EditorPreviewWindowPosition.Bottom - self.Top;
+end;
+
+procedure TfrmEditorTalkShow.FormDestroy(Sender: TObject);
+var ARect: TRect;
+begin
+  with ARect do
+  begin
+    Left   := self.Left;
+    Top    := self.Top;
+    Right  := self.Width + self.Left;
+    Bottom := self.Height + self.Top;
+  end;
+  Pref.EditorPreviewWindowPosition := ARect;
+end;
+
+initialization
+
+frmEditorTalkShow := nil;
+
+end.