| 1 |
unit Setting; |
unit Setting; |
| 2 |
|
|
| 3 |
|
|
| 4 |
interface |
interface |
| 5 |
|
|
| 6 |
uses |
uses |
| 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); // タブ追加位置 |
| 399 |
//! マウスジェスチャーを使用するかどうか |
//! マウスジェスチャーを使用するかどうか |
| 400 |
FGestureEnabled : Boolean; |
FGestureEnabled : Boolean; |
| 401 |
|
|
|
//2ch言語設定 |
|
|
//F2chLanguage : TStringList; |
|
|
|
|
| 402 |
//フシアナトラップ設定 |
//フシアナトラップ設定 |
| 403 |
FLocalTrapAtt : Boolean; |
FLocalTrapAtt : Boolean; |
| 404 |
FRemoteTrapAtt : Boolean; |
FRemoteTrapAtt : Boolean; |
| 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・パスワード |
| 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); |
| 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 |
|
|
| 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: ''), |
| 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; |