Uses its own SsParser

diff --git a/bottleclient/EditorTalkShow.dfm b/bottleclient/EditorTalkShow.dfm
index 927b7f1..b535ba9 100644 (file)
--- a/bottleclient/EditorTalkShow.dfm
+++ b/bottleclient/EditorTalkShow.dfm
@@ -19,20 +19,24 @@ object frmEditorTalkShow: TfrmEditorTalkShow
     Left = 0
     Top = 0
     Width = 385
-    Height = 470
+    Height = 466
     Align = alClient
     TabOrder = 0
     inherited PanelBevel: TPanel
       Width = 385
-      Height = 470
+      Height = 466
       inherited PaintBox: TPaintBox
         Width = 367
-        Height = 468
+        Height = 464
       end
       inherited ScrollBar: TScrollBar
         Left = 368
-        Height = 468
+        Height = 464
       end
     end
   end
+  object SsParser: TSsParser
+    Left = 8
+    Top = 8
+  end
 end

diff --git a/bottleclient/EditorTalkShow.pas b/bottleclient/EditorTalkShow.pas
index 201bf7d..f760cab 100644 (file)
--- a/bottleclient/EditorTalkShow.pas
+++ b/bottleclient/EditorTalkShow.pas
@@ -4,11 +4,12 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, TalkShowFrame, BottleDef;
+  Dialogs, TalkShowFrame, BottleDef, SsParser;
 
 type
   TfrmEditorTalkShow = class(TForm)
     TalkShowFrame: TfrmTalkShow;
+    SsParser: TSsParser;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
   private
@@ -28,7 +29,12 @@ uses MainForm;
 
 procedure TfrmEditorTalkShow.FormCreate(Sender: TObject);
 begin
-  TalkShowFrame.SsParser := frmSender.SsParser;
+  with SsParser do
+  begin
+    MetaPattern.Assign(frmSender.SsParser.MetaPattern);
+    TagPattern.Assign(frmSender.SsParser.TagPattern);
+  end;
+  TalkShowFrame.SsParser := SsParser;
   self.Left := Pref.EditorPreviewWindowPosition.Left;
   self.Top  := Pref.EditorPreviewWindowPosition.Top;
   self.Width := Pref.EditorPreviewWindowPosition.Right - self.Left;