来宾更新

AppCentre/MessageCentre.dfm

@@ -55,6 +55,7 @@ object MessageCentreForm: TMessageCentreForm
   Padding.Right = 4
   Padding.Bottom = 4
   OldCreateOrder = False
+  OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
   object chrm1: TChromium

AppCentre/MessageCentre.pas

@@ -15,6 +15,7 @@ type
     procedure chrm1DownloadUpdated(Sender: TObject; const browser: ICefBrowser;
       const downloadItem: ICefDownloadItem;
       const callback: ICefDownloadItemCallback);
+    procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
   public
@@ -45,4 +46,9 @@ begin
   end;      
 end;
 
+procedure TMessageCentreForm.FormCreate(Sender: TObject);
+begin
+  Icon.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Images\State\TrayIcon\Desktop.ico');
+end;
+
 end.

Client/OptionsFrm.dfm

@@ -29,6 +29,7 @@ object OptionsForm: TOptionsForm
     Constraints.MinHeight = 485
     Constraints.MinWidth = 557
     TabOrder = 0
+    OnClick = pnlClientClick
     DesignSize = (
       557
       485)
@@ -74,7 +75,7 @@ object OptionsForm: TOptionsForm
       Top = 32
       Width = 428
       Height = 415
-      ActivePage = TabSheet5
+      ActivePage = TabSheet4
       Anchors = [akLeft, akTop, akRight, akBottom]
       Style = tsFlatButtons
       TabOrder = 1
@@ -6961,7 +6962,7 @@ object OptionsForm: TOptionsForm
       end
     end
     object LVOptions: TListView
-      Left = 6
+      Left = 8
       Top = 8
       Width = 118
       Height = 444
@@ -7959,7 +7960,7 @@ object OptionsForm: TOptionsForm
     Left = 16
     Top = 352
     Bitmap = {
-      494C010101000400140020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C0101010004001C0020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000800000002000000001002000000000000040
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -8501,7 +8502,7 @@ object OptionsForm: TOptionsForm
     Left = 64
     Top = 352
     Bitmap = {
-      494C010102000400140020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C0101020004001C0020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000800000002000000001002000000000000040
       000000000000000000000000000000000000FFFBFB00FFFBFB00FFFBFB00FFFB
       FB00FFFBFB00FFFBFB00FFFBFB00FFFBFB00FFFBFB00FFFBFB00FFFBFB00FFFB
@@ -9041,7 +9042,7 @@ object OptionsForm: TOptionsForm
     Left = 96
     Top = 352
     Bitmap = {
-      494C010102000400140010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C0101020004001C0010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000001000000001002000000000000010
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000

Client/OptionsFrm.pas

@@ -311,6 +311,7 @@ type
     procedure btDelAutoResponseClick(Sender: TObject);
     procedure btAddAutoResponseClick(Sender: TObject);
     procedure btModiAutoResponseClick(Sender: TObject);
+    procedure pnlClientClick(Sender: TObject);
   private
     FModifyWebPanel: Boolean;
     FPageIndex: Integer;
@@ -375,6 +376,8 @@ type
 
 var
   OptionsForm: TOptionsForm;
+
+  {$INCLUDE ..\LXTalk.inc}
 implementation
 
 uses MainFrm, TalkingFrm, AddWebTabFrm, WebTabAcountsFrm, OptionFormController,
@@ -597,7 +600,10 @@ begin
 
   FModifyWebPanel := False;
 
-  
+  {$IFDEF LBQST}
+  LVOptions.Items.Delete(12);
+  LVOptions.Items.Delete(10);
+  {$ENDIF}
 end;
 
 //------------------------------------------------------------------------------
@@ -619,7 +625,13 @@ procedure TOptionsForm.LVOptionsChange(Sender: TObject; Item: TListItem;
   Change: TItemChange);
 begin
   lbOptionIndex.Caption := ' ' + Item.Caption;
-  if LVOptions.ItemIndex >=0 then PageControl.ActivePageIndex := LVOptions.ItemIndex;
+  if LVOptions.ItemIndex >=0 then
+  begin         
+    if LVOptions.ItemIndex = 10 then
+      PageControl.ActivePageIndex := 11
+    else
+      PageControl.ActivePageIndex := LVOptions.ItemIndex;
+  end;          
 end;
 //------------------------------------------------------------------------------
 procedure TOptionsForm.lvWebTabsChange(Sender: TObject; Item: TListItem;
@@ -649,6 +661,11 @@ end;
 
 
 
+procedure TOptionsForm.pnlClientClick(Sender: TObject);
+begin
+
+end;
+
 //------------------------------------------------------------------------------
 procedure TOptionsForm.SetWebTabButtonState;
 var
@@ -1234,6 +1251,9 @@ var
   WebTabAcount1, WebTabAcount2: TWebTabAcount;
   WebPanel, WebPanel1: TWebPanel;
 begin
+  {$IFDEF LBQST}
+    Exit;
+  {$ENDIF}
   if FModifyWebPanel then
   begin
     with MainForm do
@@ -2392,6 +2412,9 @@ procedure TOptionsForm.SetSysMsgInterfaceSet;
 var iLoop:Integer;
     SysMsgInterface:TSysMsgInterface;
 begin
+  {$IFDEF LBQST}
+    Exit;
+  {$ENDIF}
     for iLoop := 0 to lvSysMsgInterface.Items.Count - 1 do
     begin
          SysMsgInterface:=lvSysMsgInterface.Items[iLoop].data;

ZWT/Config/appCentre.config

@@ -28,5 +28,9 @@
    "clientIP":"39.108.215.246",
    "clientPort":8081,
    "enable":true,
-   "DanDianDengLu":false
+   "DanDianDengLu":false,
+   "messageCentreIP":"39.108.215.246",
+   "messageCentrePort":8084,
+   "messageCentreEnable":true
+
 }

ZWT/XML/DefaultConfig.xml

@@ -4,7 +4,7 @@
 	<UIMainColor Value="15392442"/>
 	<MainFormLeft Value="906"/>
 	<MainFormTop Value="162"/>
-	<MainFormWidth Value="258"/>
+	<MainFormWidth Value="-338"/>
 	<MainFormHeight Value="734"/>
 	<TalkingFormLeft Value="695"/>
 	<TalkingFormTop Value="128"/>