Improve Interface

dfdragon · Apr 1, 2017 · 44e905c · 44e905c
1 parent 21397ac
commit 44e905c
Show file tree

Hide file tree

Showing 3 changed files with 24 additions and 5 deletions.
diff --git a/Interface_op.pas b/Interface_op.pas
@@ -328,8 +328,8 @@ procedure WriteHint_ModeDefault;
 
       NoDelayStr:= '默认值：' + #13 + #10 + 'fast3：开启' + #13 + #10 + 'fast2：开启' + #13 + #10 +
         'fast：不开启' + #13 + #10 + 'normal：不开启';
-      IntervalStr:= '默认值：' + #13 + #10 + 'fast3：10' + #13 + #10 + 'fast2：20' + #13 + #10 +
-        'fast：20' + #13 + #10 + 'normal：30';
+      IntervalStr:= '默认值：' + #13 + #10 + 'fast3：20' + #13 + #10 + 'fast2：30' + #13 + #10 +
+        'fast：40' + #13 + #10 + 'normal：50';
       ResendStr:= '默认值：' + #13 + #10 + 'fast3：2' + #13 + #10 + 'fast2：2' + #13 + #10 +
         'fast：2' + #13 + #10 + 'normal：2';
       NCStr:= '默认值：' + #13 + #10 + 'fast3：开启' + #13 + #10 + 'fast2：开启' + #13 + #10 +

diff --git a/Main.dfm b/Main.dfm
@@ -111,10 +111,12 @@ object FMain: TFMain
       end
       item
         Alignment = taCenter
-        Text = ' KcpTun '#23458#25143#31471#31243#24207#24314#35758#20351#29992' 20170112 '#25110#26356#39640#29256#26412
+        Text = 'KCPTun '#23458#25143#31471#31243#24207#35831#20351#29992' 20170218 '#25110#26356#39640#29256#26412
         Width = 50
       end>
     OnMouseDown = StatusBar_StatusMouseDown
+    OnMouseLeave = StatusBar_StatusMouseLeave
+    OnMouseMove = StatusBar_StatusMouseMove
   end
   object Panel_ClientNodeInfo: TPanel
     Left = 278
@@ -751,7 +753,7 @@ object FMain: TFMain
         Left = 229
         Top = 178
         Width = 41
-        Height = 18
+        Height = 20
         Hint = #40664#35748#20540#65306'600'
         ParentShowHint = False
         ShowHint = True
@@ -1242,7 +1244,7 @@ object FMain: TFMain
     Left = 209
     Top = 174
     Bitmap = {
-      494C010104001800440110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C0101040018004C0110001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000002000000001002000000000000020
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000

diff --git a/Main.pas b/Main.pas
@@ -210,6 +210,9 @@   TFMain = class(TForm)
     procedure Edit_ScavengeTTLKeyPress(Sender: TObject; var Key: Char);
     procedure CheckBox_ScavengeTTLClick(Sender: TObject);
     procedure Edit_ScavengeTTLChange(Sender: TObject);
+    procedure StatusBar_StatusMouseLeave(Sender: TObject);
+    procedure StatusBar_StatusMouseMove(Sender: TObject; Shift: TShiftState; X,
+      Y: Integer);
   private
     { Private declarations }
     function CreateQRCodeBitmap(QRData: string): TMemoryStream;
@@ -1565,6 +1568,20 @@ procedure TFMain.StatusBar_StatusMouseDown(Sender: TObject;
   end;
 end;
 
+procedure TFMain.StatusBar_StatusMouseLeave(Sender: TObject);
+begin
+  StatusBar_Status.Cursor:= crDefault;
+end;
+
+procedure TFMain.StatusBar_StatusMouseMove(Sender: TObject; Shift: TShiftState;
+  X, Y: Integer);
+begin
+  if X > StatusBar_Status.Panels[0].Width then
+    StatusBar_Status.Cursor:= crHandpoint
+  else
+    StatusBar_Status.Cursor:= crDefault;
+end;
+
 procedure TFMain.Memo_CMDLineDblClick(Sender: TObject);
 begin
   Memo_CMDLine.SelectAll;