2003.08.15 (金) 22:49:54 <u*j*2*6*> リストビューの右クリックメニューからえらべます。
2003.08.16 (土) 15:17:44 <u*j*2*6*> lngファイルの分の差分がとれてなかったので修正しました
shuusei24189:参照窓のリストの文字セットを変更できるようにした(24129参照)

diff --dos -ur 24188/browseform.dfm 24189/browseform.dfm
--- 24188/browseform.dfm	Sat Mar 08 23:09:36 2003
+++ 24189/browseform.dfm	Fri Aug 15 22:42:48 2003
@@ -80,8 +80,15 @@
         Caption = 'Time'
         Width = 45
       end>
+    Font.Charset = SHIFTJIS_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = 'MS Pゴシック'
+    Font.Style = []
     MultiSelect = True
     RowSelect = True
+    ParentFont = False
+    PopupMenu = PopupMenu1
     TabOrder = 0
     TabStop = False
     ViewStyle = vsReport
@@ -293,5 +300,35 @@
     OnRead = WhoisSocketRead
     Left = 440
     Top = 152
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 424
+    Top = 248
+    object mnu_charset: TMenuItem
+      Caption = '&Charset'
+      object mnu_charset_shiftjis: TMenuItem
+        Caption = '&SHIFTJIS'
+        OnClick = mnu_charsetClick
+      end
+      object mnu_charset_chinesebig5: TMenuItem
+        Caption = '&CHINESEBIG5'
+        OnClick = mnu_charsetClick
+      end
+      object mnu_charset_gb2312: TMenuItem
+        Caption = 'GB2312'
+      end
+      object mnu_charset_hangeul: TMenuItem
+        Caption = '&HANGEUL'
+        OnClick = mnu_charsetClick
+      end
+      object mnu_charset_easteurope: TMenuItem
+        Caption = '&EASTEUROPE'
+        OnClick = mnu_charsetClick
+      end
+      object mnu_charset_russian: TMenuItem
+        Caption = '&RUSSIAN'
+        OnClick = mnu_charsetClick
+      end
+    end
   end
 end
diff --dos -ur 24188/browseform.pas 24189/browseform.pas
--- 24188/browseform.pas	Thu Aug 14 00:20:00 2003
+++ 24189/browseform.pas	Fri Aug 15 22:29:26 2003
@@ -45,6 +45,14 @@
     cb_whois_auto: TCheckBox;
     WhoisSocket: TClientSocket;
     btn_ipkickban: TButton;
+    PopupMenu1: TPopupMenu;
+    mnu_charset: TMenuItem;
+    mnu_charset_shiftjis: TMenuItem;
+    mnu_charset_hangeul: TMenuItem;
+    mnu_charset_chinesebig5: TMenuItem;
+    mnu_charset_easteurope: TMenuItem;
+    mnu_charset_russian: TMenuItem;
+    mnu_charset_gb2312: TMenuItem;
     procedure mnu_closeClick(Sender: TObject);
     procedure mnu_hotlistClick(Sender: TObject);
     procedure mnu_friendClick(Sender: TObject);
@@ -75,6 +83,7 @@
       Socket: TCustomWinSocket);
     procedure btn_ipkickbanClick(Sender: TObject);
     procedure edit_reasonSelect(Sender: TObject);
+    procedure mnu_charsetClick(Sender: TObject);
   private
     { Private 宣言 }
     tries     : Integer;
@@ -229,6 +238,13 @@
  mnu_whois.Caption  :=GetLangI(LNG_LIST_MENU_WHOIS);
  mnu_ignore.Caption :=GetLangI(LNG_LIST_MENU_IGNORE);
  mnu_message.caption:=GetLangI(LNG_LIST_MENU_IM);
+ mnu_charset.Caption            :=GetLangI(LNG_BRMNU_CHARSET);
+ mnu_charset_shiftjis.Caption   :=GetLangI(LNG_BRMNU_CHARSET_SHIFTJIS);
+ mnu_charset_chinesebig5.Caption:=GetLangI(LNG_BRMNU_CHARSET_CHINESEBIG5);
+ mnu_charset_gb2312.Caption     :=GetLangI(LNG_BRMNU_CHARSET_GB2312);
+ mnu_charset_hangeul.Caption    :=GetLangI(LNG_BRMNU_CHARSET_HANGEUL);
+ mnu_charset_easteurope.Caption :=GetLangI(LNG_BRMNU_CHARSET_EASTEUROPE);
+ mnu_charset_russian.Caption    :=GetLangI(LNG_BRMNU_CHARSET_RUSSIAN);
  list.Color:=slBackground;
  list.Font.Color:=slText;
  ksoOfficeToolBar2.Rolled:=True;
@@ -618,6 +634,25 @@
         end;
       Font.Charset:=SHIFTJIS_CHARSET;
     end;
+  end;
+end;
+
+procedure TSlavaNapBrowseWindow.mnu_charsetClick(Sender: TObject);
+const
+  MNU_CHARSET_SHIFTJIS    =0;
+  MNU_CHARSET_CHINESEBIG5 =1;
+  MNU_CHARSET_GB2312      =2;
+  MNU_CHARSET_HANGEUL     =3;
+  MNU_CHARSET_EASTEUROPE  =4;
+  MNU_CHARSET_RUSSIAN     =5;
+begin
+  case mnu_charset.IndexOf(Sender as TMenuItem) of
+    MNU_CHARSET_SHIFTJIS:    list.Font.Charset:=SHIFTJIS_CHARSET;
+    MNU_CHARSET_CHINESEBIG5: list.Font.Charset:=CHINESEBIG5_CHARSET;
+    MNU_CHARSET_GB2312:      list.Font.Charset:=GB2312_CHARSET;
+    MNU_CHARSET_HANGEUL:     list.Font.Charset:=HANGEUL_CHARSET;
+    MNU_CHARSET_EASTEUROPE:  list.Font.Charset:=EASTEUROPE_CHARSET;
+    MNU_CHARSET_RUSSIAN:     list.Font.Charset:=RUSSIAN_CHARSET;
   end;
 end;
 
diff --dos -ur 24188/constants.pas 24189/constants.pas
--- 24188/constants.pas	Fri Aug 15 15:47:40 2003
+++ 24189/constants.pas	Fri Aug 15 20:57:02 2003
@@ -27,7 +27,7 @@
  SLAVANAP_VERSION             = '2.4.1';
  SLAVANAP_BUILD               = '108';
  SLAVANAP_BUILD_DATE          = '24 January 2003';
- SLAVANAP_SHUUSEI             = '88';
+ SLAVANAP_SHUUSEI             = '89';
  SLAVANAP_SHUUSEI_DATE        = '15 August 2003';
  SLAVANAP_VERSION_SHORT       = SLAVANAP_TITLE+' '+SLAVANAP_VERSION;
  SLAVANAP_FULL                = SLAVANAP_TITLE+' '+SLAVANAP_VERSION+
diff --dos -ur 24188/english.lng 24189/english.lng
--- 24188/english.lng	Sun Aug 10 17:43:32 2003
+++ 24189/english.lng	Fri Aug 15 21:22:22 2003
@@ -7,7 +7,7 @@
 Version=2.4.1
 Comments=Original file by SlavaNap development team
 BUILD=108
-SHUUSEI=78
+SHUUSEI=89
 
 [Log]
 SERVER_INIT=Starting $1
@@ -1033,3 +1033,12 @@
 FONT_CHARSET=DEFAULT_CHARSET
 FONT_SIZE=9
 FONT_NAME=MS Sans Serif
+
+[Browse]
+BRMNU_CHARSET             =&Charset
+BRMNU_CHARSET_SHIFTJIS    =&SHIFTJIS
+BRMNU_CHARSET_CHINESEBIG5 =&CHINESEBIG5
+BRMNU_CHARSET_GB2312      =&GB2312(CHINESE)
+BRMNU_CHARSET_HANGEUL     =&HANGEUL
+BRMNU_CHARSET_EASTEUROPE  =&EASTEUROPE
+BRMNU_CHARSET_RUSSIAN     =&RUSSIAN
diff --dos -ur 24188/japanese.lng 24189/japanese.lng
--- 24188/japanese.lng	Sun Aug 10 17:43:32 2003
+++ 24189/japanese.lng	Fri Aug 15 21:22:26 2003
@@ -7,7 +7,7 @@
 Version=2.4.1.108
 Comments=Translated by usj12262@hotmail.com
 BUILD=108
-SHUUSEI=78
+SHUUSEI=89
 
 [Log]
 SERVER_INIT=$1を起動中…
@@ -1033,3 +1033,12 @@
 FONT_CHARSET=SHIFTJIS_CHARSET
 FONT_SIZE=9
 FONT_NAME=MS UI Gothic
+
+[Browse]
+BRMNU_CHARSET             =エンコード(&E)
+BRMNU_CHARSET_SHIFTJIS    =日本語 (シフト JIS)(&S)
+BRMNU_CHARSET_CHINESEBIG5 =繁体字中国語(Big5)(&C)
+BRMNU_CHARSET_GB2312      =簡体字中国語(GB2312)(&G)
+BRMNU_CHARSET_HANGEUL     =韓国語(&H)
+BRMNU_CHARSET_EASTEUROPE  =西ヨーロッパ言語(&E)
+BRMNU_CHARSET_RUSSIAN     =キリル言語(&R)
diff --dos -ur 24188/lang.pas 24189/lang.pas
--- 24188/lang.pas	Sun Aug 10 17:41:44 2003
+++ 24189/lang.pas	Fri Aug 15 21:15:14 2003
@@ -819,6 +819,13 @@
  LNG_S_TEXT_OTHER3           = 804;
  LNG_S_ITEM_OTHER4           = 805;
  LNG_S_TEXT_OTHER4           = 806;
+ LNG_BRMNU_CHARSET                             = 807;
+ LNG_BRMNU_CHARSET_SHIFTJIS                    = 808;
+ LNG_BRMNU_CHARSET_CHINESEBIG5                 = 809;
+ LNG_BRMNU_CHARSET_GB2312                      = 810;
+ LNG_BRMNU_CHARSET_HANGEUL                     = 811;
+ LNG_BRMNU_CHARSET_EASTEUROPE                  = 812;
+ LNG_BRMNU_CHARSET_RUSSIAN                     = 813;
 
  LNG_S_SHMAIN_LABEL1                           = 1001;
  LNG_S_SHMAIN_LABEL3                           = 1002;
@@ -1187,7 +1194,7 @@
  LNG_S_SHOTHER4_CB_ALLOW_2GET                  = 1829;
  LNG_S_SHOTHER4_CB_ALLOW_OTHER                 = 1830;
  LNG_S_SHOTHER4_LABEL163                       = 1831;
- LNG_MAX                                       = 1862;//832;
+ LNG_MAX                                       = 1840;//832;
 
  // strings that shouldn't be translated
  STR_NOTIMPLEMENTED         = 'コマンド [%d] は'+SLAVANAP_VERSION_SHORT+'ではサポートされません。';
@@ -2196,6 +2203,13 @@
   GetIni(ini,LNG_S_TEXT_OTHER3            ,'Settings','S_TEXT_OTHER3');
   GetIni(ini,LNG_S_ITEM_OTHER4            ,'Settings','S_ITEM_OTHER4');
   GetIni(ini,LNG_S_TEXT_OTHER4            ,'Settings','S_TEXT_OTHER4');
+  GetIni(ini,LNG_BRMNU_CHARSET                              ,'Browse','BRMNU_CHARSET');
+  GetIni(ini,LNG_BRMNU_CHARSET_SHIFTJIS                     ,'Browse','BRMNU_CHARSET_SHIFTJIS');
+  GetIni(ini,LNG_BRMNU_CHARSET_CHINESEBIG5                  ,'Browse','BRMNU_CHARSET_CHINESEBIG5');
+  GetIni(ini,LNG_BRMNU_CHARSET_GB2312                       ,'Browse','BRMNU_CHARSET_GB2312');
+  GetIni(ini,LNG_BRMNU_CHARSET_HANGEUL                      ,'Browse','BRMNU_CHARSET_HANGEUL');
+  GetIni(ini,LNG_BRMNU_CHARSET_EASTEUROPE                   ,'Browse','BRMNU_CHARSET_EASTEUROPE');
+  GetIni(ini,LNG_BRMNU_CHARSET_RUSSIAN                      ,'Browse','BRMNU_CHARSET_RUSSIAN');
   //additional strings in TSlavaNapSettings
   GetIni(ini,LNG_S_SHMAIN_LABEL1                            ,'Settings','S_SHMAIN_LABEL1');
   GetIni(ini,LNG_S_SHMAIN_LABEL3                            ,'Settings','S_SHMAIN_LABEL3');