From 42ecf6e5dc8310b17092cbc7094730624bb803e0 Mon Sep 17 00:00:00 2001
From: "C.Ponapalt" <ponapalt@shillest.net>
Date: Tue, 12 Jul 2005 11:19:54 +0000
Subject: [PATCH] =?utf8?q?=E8=B5=B7=E5=8B=95=E6=99=82=E3=81=AB=E3=82=AB?=
 =?utf8?q?=E3=83=BC=E3=82=BD=E3=83=AB=E4=BD=8D=E7=BD=AE=E3=81=8C=E8=A8=AD?=
 =?utf8?q?=E5=AE=9A=E3=81=95=E3=82=8C=E3=81=AA=E3=81=84=E5=95=8F=E9=A1=8C?=
 =?utf8?q?=E4=BF=AE=E6=AD=A3(ToDo=20ID=3D413)=20=20Thanks=20to=20=E6=AE=8A?=
 =?utf8?q?=E6=B5=B7=E5=A4=95=E9=9F=B3=E6=B0=8F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 bottleclient/MainForm.pas | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index a834d9d..9ddeead 100755
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -21,6 +21,9 @@ uses
   SakuraScriptFountain, SppList, SurfacePreview, XDOM_2_3_J3, SsPlayTime,
   RegexUtils, StrReplace, StrReplaceDialog, ReplacePresetEditor;
 
+const
+  WM_SHOWED = WM_USER + 100;
+
 type
   TSurfacePreviewType = (spHint, spEditor);
 
@@ -359,6 +362,9 @@ type
     //
     procedure AppendTextLog(const FileName, Line: String);
     procedure AppendXMLLog(const FileName: String; Args: THeadValue);
+
+    procedure WMShowed(var Message: TMessage); message WM_SHOWED;
+
   protected
     procedure WndProc(var Message: TMessage); override;
     procedure WMQueryEndSession(var msg: TWMQueryEndSession);
@@ -617,8 +623,6 @@ begin
   // ƒ^ƒXƒNƒo[‚̍ċN“®(Explorer‚ª—Ž‚¿‚½‚Æ‚«)‚ðŒŸo‚·‚é
   FWM_TaskBarCreated := RegisterWindowMessage('TaskBarCreated');
 
-  // ƒXƒNƒŠƒvƒg•¶Žš—ñ‚̏‰Šú‰»
-  actClearExecute(Sender);
   // ƒ^ƒXƒNƒgƒŒƒC‚ɃAƒCƒRƒ“‚ð’ljÁ
   ChangeTaskIcon;
   // ƒ`ƒƒƒ“ƒlƒ‹ŽQ‰ÁŠÖŒW‚̃^ƒu‚̏ˆ—‚È‚Ç(ƒ`ƒƒƒ“ƒlƒ‹•sŽQ‰Á‚ŏ‰Šú‰»)
@@ -946,20 +950,33 @@ end;
 procedure TfrmSender.FormShow(Sender: TObject);
 begin
   if FBooted or Application.Terminated then Exit;
+
   //LUID‚ªŽæ“¾‚³‚ê‚Ä‚¢‚ê‚Α‘¬“o˜^B‚»‚¤‚Å‚È‚¯‚ê‚ÎLUIDŽæ“¾B
   if Pref.LUID <> '' then BeginConnect
   else mnGetNewIdClick(Self);
+
   FAutoAddAfterGetChannel := Pref.AutoStart;
   FBooted := true;
+
   frmLog.Show;
   frmSurfacePreview.Show;
   Self.Show;
+
   SakuraSeeker.BeginDetect;
   SakuraSeekerDetectResultChanged(self);
   if (SakuraSeeker.Count = 0) and not Pref.NoWarnOfEmptyFMO then
     frmMessageBox.ShowMessage('ƒS[ƒXƒg(SSTPƒT[ƒo)‚ª1‚‚à‹N“®‚µ‚Ä‚¢‚Ü‚¹‚ñB'#13#10 +
       'SSTP Bottle‚ð—˜—p‚·‚邽‚߂ɂ́AƒS[ƒXƒg‚𓯎ž‚É‹N“®‚µ‚Ä‚­‚¾‚³‚¢B'#13#10 +
       'Ú×‚̓wƒ‹ƒv‚ð‚²——‰º‚³‚¢B');
+
+  //ƒEƒCƒ“ƒhƒE‚̏‰Šú‰»‚ð‘҂•K—v‚ª‚ ‚鏈—‚ÍWMShowed‚Ö“Š‚°ž‚Þ‚±‚Æ
+  PostMessage(Handle, WM_SHOWED, 0, 0);
+end;
+
+procedure TfrmSender.WMShowed(var Message: TMessage);
+begin
+  // ƒXƒNƒŠƒvƒg•¶Žš—ñ‚̏‰Šú‰»
+  ClearEditor;
 end;
 
 procedure TfrmSender.actAboutClick(Sender: TObject);
-- 
2.11.0