Added SsPlayTime component

[winbottle/winbottle.git] / bottleclient / LogForm.pas

diff --git a/bottleclient/LogForm.pas b/bottleclient/LogForm.pas
index 54d57f6..bb2803a 100755 (executable)
--- a/bottleclient/LogForm.pas
+++ b/bottleclient/LogForm.pas
@@ -310,7 +310,7 @@ end;
 
 procedure TfrmLog.lvwLogChange(Sender: TObject; Item: TListItem;
   Change: TItemChange);
-var Script: String;
+var Script, Text: String;
     Log: TLogItem;
     Selected, IsNormalBottle: boolean;
 begin
@@ -326,7 +326,9 @@ begin
         if (Log.LogType = ltBottle) and not frmSender.Connecting then begin
           IsNormalBottle := true;
           Script := Log.Script;
-          StatusBar.Panels[1].Text := Format('%d\83o\83C\83g - \83_\83u\83\8b\83N\83\8a\83b\83N\82Å\8dÄ\90¶', [Length(Log.Script)]);
+          Text := Format('%d\83o\83C\83g/%d\95b - \83_\83u\83\8b\83N\83\8a\83b\83N\82Å\8dÄ\90¶',
+            [Length(Log.Script), frmSender.SsPlayTime.PlayTime(Log.Script) div 1000]);
+          StatusBar.Panels[1].Text := Text;
           if Pref.LogWindowPreviewStyle = psImageConversation then
             TalkShowFrame.View(Log)
           else