From f837f355f34ece8163eed136ead8ab24073bdf36 Mon Sep 17 00:00:00 2001
From: naru <bottle@mikage.to>
Date: Sun, 13 Oct 2002 13:16:03 +0000
Subject: [PATCH] Fixed URL tag convertion problem in script preview style

---
 bottleclient/LogForm.pas | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/bottleclient/LogForm.pas b/bottleclient/LogForm.pas
index a082f4b..0ee7dbb 100755
--- a/bottleclient/LogForm.pas
+++ b/bottleclient/LogForm.pas
@@ -198,7 +198,6 @@ begin
         frmSender.actVoteMessage.Enabled := true;
         frmSender.actAgreeMessage.Enabled := true;
         mnPopUpCopyScript.Enabled := true;
-        frmSender.DoTrans(Script, [toConvertURL]);
         UpdateScript(Script);
       end else begin
         frmSender.actVoteMessage.Enabled := false;
@@ -252,10 +251,13 @@ end;
 
 procedure TfrmLog.UpdateScriptConversationColor(const Script: String);
 var i: integer;
+    scr: String;
     UnyuTalking, Talked: boolean;
 begin
+  scr := Script;
+  frmSender.DoTrans(scr, [toConvertURL]);
   SsParser.LeaveEscape := false;
-  SsParser.InputString := Script;
+  SsParser.InputString := scr;
   SsParser.LeaveEscape := true;
   UnyuTalking := false;
   Talked := false; //'\h\u\h\u'‚̂悤‚ȃXƒNƒŠƒvƒg‚ŋ󂫍s‚ðì‚ç‚È‚¢‚½‚ß‚Ì‘[’u
@@ -297,8 +299,10 @@ var Scr: String;
     i: integer;
     UnyuTalking, Talked, LastUnyuTalked: boolean;
 begin
+  Scr := Script;
+  frmSender.DoTrans(Scr, [toConvertURL]);
   SsParser.LeaveEscape := false;
-  SsParser.InputString := Script;
+  SsParser.InputString := Scr;
   SsParser.LeaveEscape := true;
   edtScript.Text := '';
   edtScript.Color := clWindow;
@@ -631,12 +635,12 @@ end;
 procedure TfrmLog.lvwLogCustomDrawSubItem(Sender: TCustomListView;
   Item: TListItem; SubItem: Integer; State: TCustomDrawState;
   var DefaultDraw: Boolean);
-var
+{var
   DestRect: TRect;
   Script: String;
   i, x, w: integer;
   SavedDC: integer;
-  Mark: TSsMarkUpType;
+  Mark: TSsMarkUpType;}
 begin
   Exit // !!
   {if (SubItem <> SubScript+1) or (not Pref.ColorScript) then Exit; // DefaultDraw = true
@@ -691,7 +695,7 @@ begin
     end else begin
       UpdateScriptScript(Script);
     end;
-    SendMessage(edtScript.Handle, EM_LINESCROLL, 0, 0); //ƒXƒNƒ[ƒ‹–ß‚µ
+    SendMessage(edtScript.Handle, EM_LINESCROLL, Low(integer), Low(integer)); //ƒXƒNƒ[ƒ‹–ß‚µ
     FLastScript := Script;
   end;
 end;
-- 
2.11.0