bottleclient/EditorTalkShow.pas

   1 unit EditorTalkShow;
   2
   3 interface
   4
   5 uses
   6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   7   Dialogs, TalkShowFrame, BottleDef, SsParser;
   8
   9 type
  10   TfrmEditorTalkShow = class(TForm)
  11     TalkShowFrame: TfrmTalkShow;
  12     SsParser: TSsParser;
  13     procedure FormCreate(Sender: TObject);
  14     procedure FormDestroy(Sender: TObject);
  15   private
  16     { Private \90é\8c¾ }
  17   public
  18     { Public \90é\8c¾ }
  19   end;
  20
  21 var
  22   frmEditorTalkShow: TfrmEditorTalkShow;
  23
  24 implementation
  25
  26 {$R *.dfm}
  27
  28 uses MainForm;
  29
  30 procedure TfrmEditorTalkShow.FormCreate(Sender: TObject);
  31 begin
  32   with SsParser do
  33   begin
  34     MetaPattern.Assign(frmSender.SsParser.MetaPattern);
  35     TagPattern.Assign(frmSender.SsParser.TagPattern);
  36   end;
  37   TalkShowFrame.SsParser := SsParser;
  38   self.Left := Pref.EditorPreviewWindowPosition.Left;
  39   self.Top  := Pref.EditorPreviewWindowPosition.Top;
  40   self.Width := Pref.EditorPreviewWindowPosition.Right - self.Left;
  41   self.Height := Pref.EditorPreviewWindowPosition.Bottom - self.Top;
  42 end;
  43
  44 procedure TfrmEditorTalkShow.FormDestroy(Sender: TObject);
  45 var ARect: TRect;
  46 begin
  47   with ARect do
  48   begin
  49     Left   := self.Left;
  50     Top    := self.Top;
  51     Right  := self.Width + self.Left;
  52     Bottom := self.Height + self.Top;
  53   end;
  54   Pref.EditorPreviewWindowPosition := ARect;
  55 end;
  56
  57 initialization
  58
  59 frmEditorTalkShow := nil;
  60
  61 end.