宁夏更改

AppCentre/UAppCentre.pas

@@ -68,6 +68,8 @@ type
     function AuthFromCanlian(ALoginName, APassword: WideString): Boolean; stdcall;
   end;
 
+  {$INCLUDE ..\Client\LXTalk.inc}
+  
 implementation
 
 uses
@@ -910,6 +912,9 @@ begin
   begin
     AppCentreFrm := TAppCentreForm.Create(nil);
   end;
+  {$IFDEF NXQST}
+  AppCentreFrm.Caption := 'ÄÉË°Ö®¼Ò';
+  {$ENDIF} 
   AppCentreFrm.Top := (Screen.Height - AppCentreFrm.Height) div 2;
   AppCentreFrm.Left := (Screen.Width - AppCentreFrm.Width) div 2;
   AppCentreFrm.Show();

Client/FormController/MainFormFooter.dfm

@@ -1,51 +1,51 @@
-object MainFrmFooter: TMainFrmFooter
-  Left = 0
-  Top = 0
-  BorderStyle = bsNone
-  Caption = 'MainFrmFooter'
-  ClientHeight = 46
-  ClientWidth = 315
-  Color = clBtnFace
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  OldCreateOrder = False
-  OnCreate = FormCreate
-  PixelsPerInch = 96
-  TextHeight = 13
-  object chrm1: TChromium
-    Left = 8
-    Top = 5
-    Width = 100
-    Height = 41
-    DefaultUrl = 'about:blank'
-    TabOrder = 1
-    Visible = False
-  end
-  object pnlFooter: TPanel
-    Left = 0
-    Top = 0
-    Width = 315
-    Height = 46
-    Align = alBottom
-    BevelOuter = bvNone
-    Ctl3D = False
-    ParentCtl3D = False
-    TabOrder = 0
-    OnResize = pnlFooterResize
-    object imgAppCentre: TImage
-      Left = 273
-      Top = 5
-      Width = 36
-      Height = 36
-      Cursor = crHandPoint
-      Hint = #24212#29992#20013#24515
-      AutoSize = True
-      OnClick = imgAppCentreClick
-      OnMouseEnter = imgAppCentreMouseEnter
-      OnMouseLeave = imgAppCentreMouseLeave
-    end
-  end
-end
+object MainFrmFooter: TMainFrmFooter
+  Left = 0
+  Top = 0
+  BorderStyle = bsNone
+  Caption = 'MainFrmFooter'
+  ClientHeight = 46
+  ClientWidth = 315
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object chrm1: TChromium
+    Left = 8
+    Top = 5
+    Width = 100
+    Height = 41
+    DefaultUrl = 'about:blank'
+    TabOrder = 1
+    Visible = False
+  end
+  object pnlFooter: TPanel
+    Left = 0
+    Top = 0
+    Width = 315
+    Height = 46
+    Align = alBottom
+    BevelOuter = bvNone
+    Ctl3D = False
+    ParentCtl3D = False
+    TabOrder = 0
+    OnResize = pnlFooterResize
+    object imgAppCentre: TImage
+      Left = 273
+      Top = 5
+      Width = 36
+      Height = 36
+      Cursor = crHandPoint
+      Hint = #24212#29992#20013#24515
+      AutoSize = True
+      OnClick = imgAppCentreClick
+      OnMouseEnter = imgAppCentreMouseEnter
+      OnMouseLeave = imgAppCentreMouseLeave
+    end
+  end
+end

Client/FormController/MainFormFooter.pas

@@ -35,6 +35,8 @@ type
 var
   MainFrmFooter: TMainFrmFooter;
 
+{$I LXTalk.inc}
+
 implementation
 
 uses
@@ -128,6 +130,10 @@ begin
   FDotPic := TPNGObject.Create;
   FDotPic.LoadFromFile(ExtractFilePath(ParamStr(0)) + DOT_PNG);
   imgAppCentre.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + APPCENTRE_PNG);
+
+  {$IFDEF NXQST}
+  imgAppCentre.Hint := 'ÄÉË°Ö®¼Ò';
+  {$ENDIF}
 end;
 
 procedure TMainFrmFooter.imgAppCentreClick(Sender: TObject);

Client/LXTalk.inc

@@ -1,7 +1,7 @@
 {.$DEFINE OldGroup}
 
 //用于宁夏企税通
-{.$DEFINE NXQST}
+{$DEFINE NXQST}
 
 //用于丽水市办公助手
-{$DEFINE LSSBGZS}
+{.$DEFINE LSSBGZS}