ログの読込中にカーソル表示を変えるように変更。

バージョン1.03へ変更。

diff --git a/bottleclient/BottleDef.pas b/bottleclient/BottleDef.pas
index 0fbe2f8..bbad932 100755 (executable)
--- a/bottleclient/BottleDef.pas
+++ b/bottleclient/BottleDef.pas
@@ -411,7 +411,7 @@ const
 
   DefaultMinScriptLength = 20;
 
-  Version = '1.02'; //2.69\82©\82ç\95ª\8aò
+  Version = '1.03'; //2.69\82©\82ç\95ª\8aò
 
   {$IFDEF NOMUTEX}
   VersionString = 'SSTP Bottle Client ver ' + Version + 'a NO MUTEX VERSION';

diff --git a/bottleclient/LogForm.pas b/bottleclient/LogForm.pas
index 8611c45..781ed18 100755 (executable)
--- a/bottleclient/LogForm.pas
+++ b/bottleclient/LogForm.pas
@@ -2137,6 +2137,7 @@ begin
   Index := -1;
   OpenDialog.InitialDir := Pref.LogDir;
   if OpenDialog.Execute then begin
+    Screen.Cursor := crHourGlass;
     for i := 0 to OpenDialog.Files.Count-1 do begin
       BottleLog := TBottleLogList.Create(ExtractFileName(OpenDialog.Files[i]));
       FsList := BottleLog;
@@ -2156,6 +2157,7 @@ begin
         FsList.Free;
       end;
     end;
+    Screen.Cursor := crDefault;
     UpdateTab;
     if Index >= 0 then tabBottleLog.TabIndex := Index;
     UpdateWindow;