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.98 by h677, Sun Nov 13 15:33:15 2005 UTC revision 1.99 by h677, Sat Dec 10 11:01:53 2005 UTC
# Line 3  unit Setting; Line 3  unit Setting;
3  interface  interface
4    
5  uses  uses
6          SysUtils, Classes, Graphics, Forms, Math, IniFiles, UCryptAuto, UBase64,          SysUtils, Classes, Graphics, Forms, {Math, IniFiles, UCryptAuto, UBase64,}
7          ComCtrls, GestureModel;          ComCtrls, GestureModel;
8    
9  const  const
# Line 517  type Line 517  type
517                  function GetSpamFilterFileName : string;                  function GetSpamFilterFileName : string;
518                  function GetLanguageFileName: string;                  function GetLanguageFileName: string;
519                  procedure SetMessages;                  procedure SetMessages;
520                  function GetMessage(AType :Integer): string;                                  function GetMessage(AType :Integer): string;
521                    function GetMainKeyFileName: String;
522                    function GetEditorKeyFileName: String;
523                  procedure WriteLogFolder(AVal : String);                  procedure WriteLogFolder(AVal : String);
524    
525                  //受信バッファサイズ                  //受信バッファサイズ
# Line 772  end; Line 774  end;
774    
775  implementation  implementation
776    
777    uses
778            Math, IniFiles, UCryptAuto, UBase64;
779    
780  type  type
781          TSoundName = record          TSoundName = record
782                  Name: string;                  Name: string;
# Line 789  const Line 794  const
794          DEFAULT_TAB_FONT_NAME: string            = 'MS Pゴシック';          DEFAULT_TAB_FONT_NAME: string            = 'MS Pゴシック';
795          DEFAULT_TAB_FONT_SIZE: Integer          = 9;          DEFAULT_TAB_FONT_SIZE: Integer          = 9;
796          DEFAULT_2CH_BOARD_URL1: string = 'http://menu.2ch.net/bbsmenu.html';          DEFAULT_2CH_BOARD_URL1: string = 'http://menu.2ch.net/bbsmenu.html';
797          //OCNを削除しました                  //OCNを削除しました
798          //DEFAULT_2CH_BOARD_URL2: string = 'http://menu.2ch.net/bbsmenu.html';          //DEFAULT_2CH_BOARD_URL2: string = 'http://menu.2ch.net/bbsmenu.html';
799                                           //2005/10/1にiij4uの方は消滅                                                                                                                           //'http://www.2ch.net/newbbsmenu.html';                                                                                   //2005/10/1にiij4uの方は消滅                                                                                                                           //'http://www.2ch.net/newbbsmenu.html';
800          GIKO_ENCRYPT_TEXT: string                = 'gikoNaviEncryptText';          GIKO_ENCRYPT_TEXT: string                = 'gikoNaviEncryptText';
801    
802          DEF_MESSAGES : array[0..13] of string = (  'ログアウトしました',                  DEF_MESSAGES : array[0..13] of string = (  'ログアウトしました',
803                                                     'ログインしました - ',                                                                                                     'ログインしました - ',
804                                                     '強制ログインしました - ',                                                                                                     '強制ログインしました - ',
805                                                     '[スレ一覧取得完了]',                                                                                                     '[スレ一覧取得完了]',
806                                                     '(名称不明)',                                                                                                     '(名称不明)',
807                                                     '[スレ取得完了]',                                                                                                     '[スレ取得完了]',
808                                                     '[スレ差分取得完了]',                                                                                                     '[スレ差分取得完了]',
809                                                     '[未更新]',                                                                                                     '[未更新]',
810                                                     '[中断]',                                                                                                     '[中断]',
811                                                     '[エラー]',                                                                                                     '[エラー]',
812                                                     '[レス送信終了]',                                                                                                     '[レス送信終了]',
813                                                     '[新スレ送信終了]',                                                                                                     '[新スレ送信終了]',
814                                                     '[レス送信失敗]',                                                                                                     '[レス送信失敗]',
815                                                     '[新スレ送信失敗]');                                                                                                     '[新スレ送信失敗]');
   
816  var  var
817          SOUND_NAME: array[0..4] of TSoundName = (          SOUND_NAME: array[0..4] of TSoundName = (
818                  (Name: 'New';                           ViewName: '取得成功';                                    FileName: ''),                  (Name: 'New';                           ViewName: '取得成功';                                    FileName: ''),
# Line 2230  begin Line 2234  begin
2234          FLogFolder := AVal;          FLogFolder := AVal;
2235          FLogFolderP := IncludeTrailingPathDelimiter(LogFolder);          FLogFolderP := IncludeTrailingPathDelimiter(LogFolder);
2236  end;  end;
2237    function TSetting.GetMainKeyFileName: String;
2238    begin
2239            Result := GetConfigDir + KEY_SETTING_FILE_NAME;
2240    end;
2241    function TSetting.GetEditorKeyFileName: String;
2242    begin
2243        Result := GetConfigDir + EKEY_SETTING_FILE_NAME;
2244    end;
2245  end.  end.
2246    
2247    

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

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