241133← ↑修正パッチ →241135


2004.07.06 (火) 22:01:18 <u*j*2*6*> 設定→Interface→トレイアイコンを表示のチェックをはずすとタスクトレイからアイコンが消えますが、
2004.07.06 (火) 22:02:17 <u*j*2*6*> それからトレイアイコンを表示のチェックを入れなおしても、トレイアイコンが再表示されない、というバグです。
2004.07.06 (火) 22:03:56 <u*j*2*6*> そのバグを直しました。それからこのバグとは関係ないですが、トレイアイコンを表示しない設定のときに「×」をおすと、否応なくシャットダウンになります。ある意味正しい動作なんですけど変えようかな?

shuusei241134:トレイアイコンを再表示できないバグを修正(report by MuumiPeikko)

Everything is expanded.Everything is shortened.
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
!
 
 
 
 
 
 
 
 
 
diff --dos -urN 241133/settings.dfm 241134/settings.dfm
--- 241133/settings.dfm    Sun May 09 21:02:34 2004
+++ 241134/settings.dfm    Tue Jul 06 21:48:26 2004
@@ -689,8 +689,8 @@
           Value = 0
         end
       end
-      object Sh_interface: TTabSheet
-        Caption = 'Sh_interface'
+      object Sh_Interface: TTabSheet
+        Caption = 'Sh_Interface'
         TabVisible = False
         OnShow = Sh_InterfaceShow
         object Label77: TLabel
diff --dos -urN 241133/settings.pas 241134/settings.pas
--- 241133/settings.pas    Sun May 09 21:02:26 2004
+++ 241134/settings.pas    Tue Jul 06 21:41:36 2004
@@ -61,7 +61,7 @@
     Edit_Users_Clones: TSpinEdit;
     Label12: TLabel;
     Edit_Users_Logintimeout: TSpinEdit;
-    Sh_interface: TTabSheet;
+    Sh_Interface: TTabSheet;
     Sh_Log: TTabSheet;
     Cb_Log_Login: TCheckBox;
     Cb_Log_Napigator: TCheckBox;
@@ -1024,7 +1024,7 @@
   else if Node.Data = DATA_LIMITS then
     Pages.ActivePage := Sh_Limits
   else if Node.Data = DATA_INTERFACE then
-    Pages.ActivePage := Sh_interface
+    Pages.ActivePage := Sh_Interface
   else if Node.Data = DATA_LOG then
     Pages.ActivePage := Sh_Log
   else if Node.Data = DATA_SHARE then
@@ -2007,7 +2007,7 @@
     Ini.WriteBool('Channels', 'LowerCase', Cb_Channels_Low.Checked);
   except
   end
-  else if Pages.ActivePage = Sh_interface then
+  else if Pages.ActivePage = Sh_Interface then
   try
     Remote_Admin_Ok := Cb_Interface_Remoteadminok.Checked;
     Remote_Adminpass := Edit_Interface_Remotepass.Text;
@@ -2021,6 +2021,7 @@
     if Cb_Interface_SysTray.Checked <> SlavaNapwindow.Tray.Active then
     begin
       SlavaNapWindow.Tray.Active := Cb_Interface_SysTray.Checked;
+      SlavaNapWindow.UpdateTray;
       if not SlavaNapWindow.Visible then
         SlavaNapWindow.Show;
     end;
@@ -2922,7 +2923,7 @@
   Label11.Caption := GetLangI(LNG_S_SHLIMITS_LABEL11);
   Cb_Limits_Limitservers.Caption :=
     GetLangI(LNG_S_SHLIMITS_CB_LIMITS_LIMITSERVERS);
-  // Sh_interface
+  // Sh_Interface
   Label77.Caption := GetLangI(LNG_S_SHINTERFACE_LABEL77);
   Label78.Caption := GetLangI(LNG_S_SHINTERFACE_LABEL78);
   Label152.Caption := GetLangI(LNG_S_SHINTERFACE_LABEL152);
241133← ↑修正パッチ →241135