エディタプレビューウィンドウの表示状態を保存し次回起動時に自動表示(ToDo ID=365)

やさぐれクライアントから過去いくつか修正を反映させたのでE01さんの名前をAboutに追加

diff --git a/bottleclient/BottleDef.pas b/bottleclient/BottleDef.pas
index bc640ac..1c9a14f 100755 (executable)
--- a/bottleclient/BottleDef.pas
+++ b/bottleclient/BottleDef.pas
@@ -102,6 +102,7 @@ type
     FBrowserExeName: string;
     FReplacePresets: TReplacePresets;
     FNoWarnOfEmptyFMO: Boolean;
+    FShowEditorPreviewWindow: Boolean;
 
     procedure SetDblClkInsert(const Value: boolean);
     procedure SetDefaultScript(const Value: String);
@@ -281,6 +282,9 @@ type
     //SSTP\83T\81[\83o\94ñ\91¶\8dÝ\8cx\8d\90\82Ì\83J\83b\83g\82ð\82·\82é\82©
     property NoWarnOfEmptyFMO: Boolean
       read FNoWarnOfEmptyFMO write FNoWarnOfEmptyFMO;
+    //\83G\83f\83B\83^\83v\83\8c\83r\83\85\81[\83E\83C\83\93\83h\83E\82Ì\8fó\91Ô\95Û\91¶\97p
+    property ShowEditorPreviewWindow: Boolean
+      read FShowEditorPreviewWindow write FShowEditorPreviewWindow;
 
     //\83R\83\93\83X\83g\83\89\83N\83^\81E\83f\83X\83g\83\89\83N\83^\81E\95Û\91¶
     constructor Create;
@@ -365,8 +369,8 @@ const
 
   SentLogFile     = 'sent.log';
 
-  BottleDisclaimer = '(C)2001-2004 WinBottle Project'#13#10 +
-    'naru, C.Ponapalt, Yune Kotomi, yese, Mikage Sawatari'#13#10 +
+  BottleDisclaimer = '(C)2001-2005 WinBottle Project'#13#10 +
+    'naru, C.Ponapalt, Yune Kotomi, yese, Mikage Sawatari, E01'#13#10 +
     DefaultHomePage;
 
   ChannelDefault = '(CH\90\84\8f§)';
@@ -546,6 +550,7 @@ begin
     ConfirmOnExit := FIni.ReadBool('System', 'ConfirmOnExit', false);
     ConfirmOnTabClose := FIni.ReadBool('System', 'ConfirmOnTabClose', false);
     NoWarnOfEmptyFMO := FIni.ReadBool('System', 'NoWarnOfEmptyFMO', False);
+    ShowEditorPreviewWindow := FIni.ReadBool('System', 'ShowEditorPreviewWindow', False);
 
     AutoClip := FIni.ReadBool('System', 'AutoClip', false);
     AutoStart := FIni.ReadBool('System', 'AutoStart', false);
@@ -1084,8 +1089,9 @@ begin
   FIni.WriteBool('System', 'SurfacePreviewOnScriptPoint', SurfacePreviewOnScriptPoint);
   FIni.WriteInteger('System', 'SurfacePreviewOnScriptPointPosition', Ord(SurfacePreviewOnScriptPointPosition));
 
-  FIni.WriteString('System', 'BrowserExeName', FBrowserExeName);
-  FIni.WriteBool('System', 'NoWarnOfEmptyFMO', FNoWarnOfEmptyFMO);
+  FIni.WriteString('System', 'BrowserExeName', BrowserExeName);
+  FIni.WriteBool('System', 'NoWarnOfEmptyFMO', NoWarnOfEmptyFMO);
+  FIni.WriteBool('System', 'ShowEditorPreviewWindow', ShowEditorPreviewWindow);
 
   Strs := TStringList.Create;
   try

diff --git a/bottleclient/EditorTalkShow.dfm b/bottleclient/EditorTalkShow.dfm
index b535ba9..ba14b5a 100644 (file)
--- a/bottleclient/EditorTalkShow.dfm
+++ b/bottleclient/EditorTalkShow.dfm
@@ -11,6 +11,7 @@ object frmEditorTalkShow: TfrmEditorTalkShow
   Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
   Font.Style = []
   OldCreateOrder = False
+  OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   PixelsPerInch = 96
@@ -19,19 +20,19 @@ object frmEditorTalkShow: TfrmEditorTalkShow
     Left = 0
     Top = 0
     Width = 385
-    Height = 466
+    Height = 470
     Align = alClient
     TabOrder = 0
     inherited PanelBevel: TPanel
       Width = 385
-      Height = 466
+      Height = 470
       inherited PaintBox: TPaintBox
         Width = 367
-        Height = 464
+        Height = 468
       end
       inherited ScrollBar: TScrollBar
         Left = 368
-        Height = 464
+        Height = 468
       end
     end
   end

diff --git a/bottleclient/EditorTalkShow.pas b/bottleclient/EditorTalkShow.pas
index f760cab..f082d6b 100644 (file)
--- a/bottleclient/EditorTalkShow.pas
+++ b/bottleclient/EditorTalkShow.pas
@@ -12,6 +12,7 @@ type
     SsParser: TSsParser;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     { Private \90é\8c¾ }
   public
@@ -54,6 +55,15 @@ begin
   Pref.EditorPreviewWindowPosition := ARect;
 end;
 
+procedure TfrmEditorTalkShow.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Pref.ShowEditorPreviewWindow := False;
+
+  //\88ê\89\9e\96¾\8e¦\93I\82É\81u\89B\82ê\82é\81v\93®\8dì\82ð\8ew\8e¦\82µ\82Ä\82¨\82­\81i\83f\83t\83H\83\8b\83g\82Å\89B\82ê\82é\81j
+  Action := caHide;
+end;
+
 initialization
 
 frmEditorTalkShow := nil;

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index 92439a7..6c077b2 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -949,11 +949,17 @@ begin
   //LUID\82ª\8eæ\93¾\82³\82ê\82Ä\82¢\82ê\82Î\91\81\91¬\93o\98^\81B\82»\82¤\82Å\82È\82¯\82ê\82ÎLUID\8eæ\93¾\81B
   if Pref.LUID <> '' then BeginConnect
   else mnGetNewIdClick(Self);
+
   FAutoAddAfterGetChannel := Pref.AutoStart;
   FBooted := true;
+
   frmLog.Show;
   frmSurfacePreview.Show;
   Self.Show;
+
+  //\83G\83f\83B\83^\83v\83\8c\83r\83\85\81[\82ª\91O\89ñ\95\\8e¦\8fó\91Ô\82È\82ç\82±\82±\82Å\95\\8e¦\82·\82é
+  if Pref.ShowEditorPreviewWindow then actEditorPreviewExecute(Sender);
+
   SakuraSeeker.BeginDetect;
   SakuraSeekerDetectResultChanged(self);
   if (SakuraSeeker.Count = 0) and not Pref.NoWarnOfEmptyFMO then
@@ -2830,6 +2836,7 @@ begin
     frmEditorTalkShow.TalkShowFrame.SetPreviewFont(memScript.Font);
     frmEditorTalkShow.Show;
   end;
+  Pref.ShowEditorPreviewWindow := True;
   EditorPreview;
 end;