Task #1560 Help Center

Forms/MainFrm.dfm

@@ -472,6 +472,11 @@ object MainForm: TMainForm
           BeginGroup = True
           Item = dxbtnAbout
           Visible = True
+        end
+        item
+          BeginGroup = True
+          Item = dxbtnHelpCenter
+          Visible = True
         end>
     end
     object dxbtnCopy: TdxBarButton
@@ -1083,6 +1088,13 @@ object MainForm: TMainForm
       Hint = 'New Item'
       Visible = ivAlways
     end
+    object dxbtnHelpCenter: TdxBarButton
+      Caption = #24110#21161#20013#24515
+      Category = 0
+      Hint = #24110#21161#20013#24515
+      Visible = ivAlways
+      OnClick = dxbtnHelpCenterClick
+    end
   end
   object Images: TImageList
     DrawingStyle = dsTransparent

Forms/MainFrm.pas

@@ -162,6 +162,7 @@ type
     dxbtnWithoutCalcCurPay: TdxBarButton;
     dxbtnSignOnline: TdxBarButton;
     dxbtnExportTpExcel: TdxBarButton;
+    dxbtnHelpCenter: TdxBarButton;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure jtsProjectsChange(Sender: TObject; NewTab: Integer;
@@ -206,6 +207,7 @@ type
     procedure actnReplyUpdate(Sender: TObject);
     procedure dxbtnTenderPartitionClick(Sender: TObject);
     procedure actnImportDmfExecute(Sender: TObject);
+    procedure dxbtnHelpCenterClick(Sender: TObject);
   private
     FProjectManagerFrame: TProjectManagerFrame;
     FProjectFrames: TList;
@@ -850,4 +852,11 @@ begin
     CurProjectFrame.ProjectData.ImportDmfFile(sFileName);
 end;
 
+procedure TMainForm.dxbtnHelpCenterClick(Sender: TObject);
+const
+  sHelpUrl = 'http://help.smartcost.com.cn/hc/';
+begin
+  ShellExecute(Application.Handle, nil, PChar(sHelpUrl), nil, nil, SW_SHOWNORMAL);
+end;
+
 end.