Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Setting.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.99 by h677, Sat Dec 10 11:01:53 2005 UTC revision 1.100 by h677, Mon Dec 12 14:12:56 2005 UTC
# Line 1  Line 1 
1  unit Setting;  unit Setting;
2    
3    
4  interface  interface
5    
6  uses  uses
# Line 11  const Line 12  const
12          LIST_COOLBAND_COUNT = 2;                //板CoolBandの数          LIST_COOLBAND_COUNT = 2;                //板CoolBandの数
13          BROWSER_COOLBAND_COUNT = 3;     //ブラウザCoolBandの数          BROWSER_COOLBAND_COUNT = 3;     //ブラウザCoolBandの数
14    
15          BOARD_FILE_NAME                                                         = 'board.2ch';  
         CUSTOMBOARD_FILE_NAME                                   = 'custom.2ch';  
         BOARD_DIR_NAME                                                          = 'Board';  
         KEY_SETTING_FILE_NAME                                   = 'key.ini';  
         EKEY_SETTING_FILE_NAME                          = 'Ekey.ini';  
         TEMP_FOLDER                                                                             = 'Temp';  
         OUTBOX_FILE_NAME                                                        = 'outbox.ini';  
         SENT_FILE_NAME                                                          = 'sent.ini';  
         CONFIG_DIR_NAME                                                         = 'config';  
         CSS_DIR_NAME                                                                    = 'css';  
         SKIN_DIR_NAME                                                                   = 'skin';  
         SKIN_HEADER_FILE_NAME                                   = 'Header.html';  
         SKIN_FOOTER_FILE_NAME                                   = 'Footer.html';  
         SKIN_NEWRES_FILE_NAME                                   = 'NewRes.html';  
         SKIN_RES_FILE_NAME                                              = 'Res.html';  
         SKIN_BOOKMARK_FILE_NAME                         = 'Bookmark.html';  
         SKIN_NEWMARK_FILE_NAME                          = 'Newmark.html';  
         NGWORDs_DIR_NAME : String               = 'NGwords';  
         BOARD_PLUGIN_DIR_NAME                                   = 'BoardPlugin';  
         SAMBATIME_FILE_NAME : String    = 'Samba.ini';  
         IGNORE_FILE_NAME : String               = 'Ignore.txt';  
 //      DOLIB_LOGIN_URL     = '/~tora3n2c/futen.cgi';  
         MAX_POPUP_RES : Integer = 10;  
         GESTURE_FILE_NAME                                                       = 'Gestures.ini';  
         SPAMFILTER_FILE_NAME                                    = 'SpamFilter.ini';  
         LANGUAGE_FILE_NAME    = 'language.ini';  
       
16  type  type
17          TGikoTabPosition = (gtpTop, gtpBottom);                                                         // タブ位置          TGikoTabPosition = (gtpTop, gtpBottom);                                                         // タブ位置
18          TGikoTabAppend = (gtaFirst, gtpLast);                                                                   // タブ追加位置          TGikoTabAppend = (gtaFirst, gtpLast);                                                                   // タブ追加位置
# Line 424  type Line 399  type
399                  //! マウスジェスチャーを使用するかどうか                  //! マウスジェスチャーを使用するかどうか
400                  FGestureEnabled : Boolean;                  FGestureEnabled : Boolean;
401    
                 //2ch言語設定  
                 //F2chLanguage : TStringList;  
   
402                  //フシアナトラップ設定                  //フシアナトラップ設定
403                  FLocalTrapAtt : Boolean;                  FLocalTrapAtt : Boolean;
404                  FRemoteTrapAtt : Boolean;                  FRemoteTrapAtt : Boolean;
# Line 438  type Line 410  type
410                  FMute: Boolean;                  FMute: Boolean;
411                  //スレ絞込みで未確定文字も有効にするか                  //スレ絞込みで未確定文字も有効にするか
412                  FUseUndecided: Boolean;                  FUseUndecided: Boolean;
                 //MessageListに出力されるメッセージ  
                 FMessageList : array[0..13] of string;  
413    
414                  //Be2ch                  //Be2ch
415                  //認証用ユーザID・パスワード                  //認証用ユーザID・パスワード
# Line 515  type Line 485  type
485                  function GetIgnoreFileName: string;                  function GetIgnoreFileName: string;
486                  function GetGestureFileName : string;                  function GetGestureFileName : string;
487                  function GetSpamFilterFileName : string;                  function GetSpamFilterFileName : string;
488                  function GetLanguageFileName: string;                  function GetLanguageFileName: string;
                 procedure SetMessages;  
                                 function GetMessage(AType :Integer): string;  
489                  function GetMainKeyFileName: String;                  function GetMainKeyFileName: String;
490                  function GetEditorKeyFileName: String;                  function GetEditorKeyFileName: String;
491                  procedure WriteLogFolder(AVal : String);                  procedure WriteLogFolder(AVal : String);
# Line 771  type Line 739  type
739  end;  end;
740    
741    
742    const
743    //      MAIN_COOLBAND_COUNT = 4;                //メインCoolBandの数
744    //      LIST_COOLBAND_COUNT = 2;                //板CoolBandの数
745    //      BROWSER_COOLBAND_COUNT = 3;     //ブラウザCoolBandの数
746    
747            BOARD_FILE_NAME                                                         = 'board.2ch';
748            CUSTOMBOARD_FILE_NAME                                   = 'custom.2ch';
749            BOARD_DIR_NAME                                                          = 'Board';
750            KEY_SETTING_FILE_NAME                                   = 'key.ini';
751            EKEY_SETTING_FILE_NAME                          = 'Ekey.ini';
752            TEMP_FOLDER                                                                             = 'Temp';
753            OUTBOX_FILE_NAME                                                        = 'outbox.ini';
754            SENT_FILE_NAME                                                          = 'sent.ini';
755            CONFIG_DIR_NAME                                                         = 'config';
756            CSS_DIR_NAME                                                                    = 'css';
757            SKIN_DIR_NAME                                                                   = 'skin';
758            SKIN_HEADER_FILE_NAME                                   = 'Header.html';
759            SKIN_FOOTER_FILE_NAME                                   = 'Footer.html';
760            SKIN_NEWRES_FILE_NAME                                   = 'NewRes.html';
761            SKIN_RES_FILE_NAME                                              = 'Res.html';
762            SKIN_BOOKMARK_FILE_NAME                         = 'Bookmark.html';
763            SKIN_NEWMARK_FILE_NAME                          = 'Newmark.html';
764            NGWORDs_DIR_NAME : String               = 'NGwords';
765            BOARD_PLUGIN_DIR_NAME                                   = 'BoardPlugin';
766            SAMBATIME_FILE_NAME : String    = 'Samba.ini';
767            IGNORE_FILE_NAME : String               = 'Ignore.txt';
768    //      DOLIB_LOGIN_URL     = '/~tora3n2c/futen.cgi';
769            MAX_POPUP_RES : Integer = 10;
770            GESTURE_FILE_NAME                                                       = 'Gestures.ini';
771            SPAMFILTER_FILE_NAME                                    = 'SpamFilter.ini';
772            LANGUAGE_FILE_NAME    = 'language.ini';
773    
774    
775    
776  implementation  implementation
777    
# Line 794  const Line 795  const
795          DEFAULT_TAB_FONT_NAME: string            = 'MS Pゴシック';          DEFAULT_TAB_FONT_NAME: string            = 'MS Pゴシック';
796          DEFAULT_TAB_FONT_SIZE: Integer          = 9;          DEFAULT_TAB_FONT_SIZE: Integer          = 9;
797          DEFAULT_2CH_BOARD_URL1: string = 'http://menu.2ch.net/bbsmenu.html';          DEFAULT_2CH_BOARD_URL1: string = 'http://menu.2ch.net/bbsmenu.html';
                 //OCNを削除しました  
         //DEFAULT_2CH_BOARD_URL2: string = 'http://menu.2ch.net/bbsmenu.html';  
                                                                                  //2005/10/1にiij4uの方は消滅                                                                                                                           //'http://www.2ch.net/newbbsmenu.html';  
798          GIKO_ENCRYPT_TEXT: string                = 'gikoNaviEncryptText';          GIKO_ENCRYPT_TEXT: string                = 'gikoNaviEncryptText';
799    
                 DEF_MESSAGES : array[0..13] of string = (  'ログアウトしました',  
                                                                                                    'ログインしました - ',  
                                                                                                    '強制ログインしました - ',  
                                                                                                    '[スレ一覧取得完了]',  
                                                                                                    '(名称不明)',  
                                                                                                    '[スレ取得完了]',  
                                                                                                    '[スレ差分取得完了]',  
                                                                                                    '[未更新]',  
                                                                                                    '[中断]',  
                                                                                                    '[エラー]',  
                                                                                                    '[レス送信終了]',  
                                                                                                    '[新スレ送信終了]',  
                                                                                                    '[レス送信失敗]',  
                                                                                                    '[新スレ送信失敗]');  
800  var  var
801          SOUND_NAME: array[0..4] of TSoundName = (          SOUND_NAME: array[0..4] of TSoundName = (
802                  (Name: 'New';                           ViewName: '取得成功';                                    FileName: ''),                  (Name: 'New';                           ViewName: '取得成功';                                    FileName: ''),
# Line 2173  function TSetting.GetLanguageFileName: s Line 2157  function TSetting.GetLanguageFileName: s
2157  begin  begin
2158      Result := GetConfigDir + LANGUAGE_FILE_NAME;      Result := GetConfigDir + LANGUAGE_FILE_NAME;
2159  end;  end;
 //Messagelistに出力されるメッセージの設定  
 procedure TSetting.SetMessages;  
 var  
     i :Integer;  
     ini : TMemIniFile;  
 begin  
     //2ch言語読み出し  
         if (GengoSupport) and (FileExists(GetLanguageFileName)) then begin  
         ini := TmemIniFile.Create(GetLanguageFileName);  
         try  
             {  
             'ログアウトしました',  
             'ログインしました - ',  
             '強制ログインしました - ',  
             '[スレ一覧取得完了]',  
             '(名称不明)',  
             '[スレ取得完了]',  
             '[スレ差分取得完了]',  
             '[未更新]',  
             '[中断]',  
             '[エラー]',  
             '[レス送信終了]',  
             '[新スレ送信終了]',  
             '[レス送信失敗]',  
             '[新スレ送信失敗]');            }  
             FMessageList[0] := ini.ReadString('Language', 'Logout', DEF_MESSAGES[0]);  
             FMessageList[1] := ini.ReadString('Language', 'Login', DEF_MESSAGES[1]);  
             FMessageList[2] := ini.ReadString('Language', 'ForceLogin', DEF_MESSAGES[2]);  
             FMessageList[3] := ini.ReadString('Language', 'ThreadList', DEF_MESSAGES[3]);  
             FMessageList[4] := ini.ReadString('Language', 'UnKnown', DEF_MESSAGES[4]);  
             FMessageList[5] := ini.ReadString('Language', 'ThreadGet', DEF_MESSAGES[5]);  
             FMessageList[6] := ini.ReadString('Language', 'ThreadDiffGet', DEF_MESSAGES[6]);  
             FMessageList[7] := ini.ReadString('Language', 'NotMod', DEF_MESSAGES[7]);  
             FMessageList[8] := ini.ReadString('Language', 'Abort', DEF_MESSAGES[8]);  
             FMessageList[9] := ini.ReadString('Language', 'Error', DEF_MESSAGES[9]);  
             FMessageList[10] := ini.ReadString('Language', 'NewReply', DEF_MESSAGES[10]);  
             FMessageList[11] := ini.ReadString('Language', 'NewThread', DEF_MESSAGES[11]);  
             FMessageList[12] := ini.ReadString('Language', 'ReplyError', DEF_MESSAGES[12]);  
             FMessageList[13] := ini.ReadString('Language', 'ThreadError', DEF_MESSAGES[13]);  
         finally  
             ini.Free;  
         end;  
   
         end else begin  
         for i := 0 to 13 do begin  
             FMessageList[i] := DEF_MESSAGES[i];  
         end;  
     end;  
 end;  
 function TSetting.GetMessage(AType :Integer): string;  
 begin  
     if (AType >= 0) and (AType <= Length(FMessageList)) then  
         Result := FMessageList[AType]  
     else  
                 Result := '';  
 end;  
2160  procedure TSetting.WriteLogFolder(AVal : String);  procedure TSetting.WriteLogFolder(AVal : String);
2161  begin  begin
2162          FLogFolder := AVal;          FLogFolder := AVal;

Legend:
Removed from v.1.99  
changed lines
  Added in v.1.100

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26