| 5 |
|
|
| 6 |
uses |
uses |
| 7 |
SysUtils, Classes, Graphics, Forms, {Math, IniFiles, UCryptAuto, UBase64,} |
SysUtils, Classes, Graphics, Forms, {Math, IniFiles, UCryptAuto, UBase64,} |
| 8 |
ComCtrls, GestureModel, IniFiles; |
ComCtrls, GestureModel, IniFiles, SkinFiles; |
| 9 |
|
|
| 10 |
const |
const |
| 11 |
MAIN_COOLBAND_COUNT = 4; //メインCoolBandの数 |
MAIN_COOLBAND_COUNT = 4; //メインCoolBandの数 |
| 232 |
FListViewNo: Boolean; |
FListViewNo: Boolean; |
| 233 |
//CSS表示 |
//CSS表示 |
| 234 |
FUseCSS: Boolean; |
FUseCSS: Boolean; |
|
//CSSファイル名 |
|
|
FCSSFileName: string; |
|
| 235 |
// スキン表示(一時的なもので ini に保存はされない) |
// スキン表示(一時的なもので ini に保存はされない) |
| 236 |
FUseSkin: Boolean; |
FUseSkin: Boolean; |
| 237 |
//かちゅ〜しゃ用のSkinを利用するか |
//かちゅ〜しゃ用のSkinを利用するか |
| 448 |
FSentIniFileSize: Integer; |
FSentIniFileSize: Integer; |
| 449 |
//! リンクURL取得の対象拡張子 |
//! リンクURL取得の対象拡張子 |
| 450 |
FExtList: String; |
FExtList: String; |
| 451 |
|
//! Skin関連 |
| 452 |
|
FSkinFiles: TSkinFiles; |
| 453 |
function GetMainCoolSet(Index: Integer): TCoolSet; |
function GetMainCoolSet(Index: Integer): TCoolSet; |
| 454 |
function GetBoardCoolSet(Index: Integer): TCoolSet; |
function GetBoardCoolSet(Index: Integer): TCoolSet; |
| 455 |
function GetBrowserCoolSet(Index: Integer): TCoolSet; |
function GetBrowserCoolSet(Index: Integer): TCoolSet; |
| 475 |
|
|
| 476 |
procedure SetUseCSS( value: Boolean ); |
procedure SetUseCSS( value: Boolean ); |
| 477 |
procedure SetCSSFileName( fileName: string ); |
procedure SetCSSFileName( fileName: string ); |
| 478 |
|
function GetCSSFileName: string; |
| 479 |
//! プロキシ設定読み込み |
//! プロキシ設定読み込み |
| 480 |
procedure ReadProxySettings(memIni: TMemIniFile); |
procedure ReadProxySettings(memIni: TMemIniFile); |
| 481 |
//! 各種ウィンドウ設定読み込み |
//! 各種ウィンドウ設定読み込み |
| 512 |
function GetSentFileName: string; |
function GetSentFileName: string; |
| 513 |
function GetConfigDir: string; |
function GetConfigDir: string; |
| 514 |
function GetSkinDir: string; |
function GetSkinDir: string; |
|
function GetSkinHeaderFileName: string; |
|
|
function GetSkinFooterFileName: string; |
|
|
function GetSkinResFileName: string; |
|
|
function GetSkinNewResFileName: string; |
|
|
function GetSkinBookmarkFileName: string; |
|
|
function GetSkinNewmarkFileName: string; |
|
| 515 |
function GetStyleSheetDir: string; |
function GetStyleSheetDir: string; |
| 516 |
function GetOutBoxFileName: string; |
function GetOutBoxFileName: string; |
| 517 |
function GetNGWordsDir: string; |
function GetNGWordsDir: string; |
| 640 |
|
|
| 641 |
property ListViewNo: Boolean read FListViewNo write FListViewNo; |
property ListViewNo: Boolean read FListViewNo write FListViewNo; |
| 642 |
property UseCSS: Boolean read FUseCSS write SetUseCSS; |
property UseCSS: Boolean read FUseCSS write SetUseCSS; |
| 643 |
property CSSFileName: string read FCSSFileName write SetCSSFileName; |
property CSSFileName: string read GetCSSFileName write SetCSSFileName; |
| 644 |
property UseKatjushaType : Boolean read FUseKatjushaType write FUseKatjushaType; |
property UseKatjushaType : Boolean read FUseKatjushaType write FUseKatjushaType; |
| 645 |
property UseSkin: Boolean read FUseSkin; |
property UseSkin: Boolean read FUseSkin; |
| 646 |
|
|
| 805 |
property SentIniFileSize: Integer read FSentIniFileSize write FSentIniFileSize; |
property SentIniFileSize: Integer read FSentIniFileSize write FSentIniFileSize; |
| 806 |
//! リンクURL取得の対象拡張子 |
//! リンクURL取得の対象拡張子 |
| 807 |
property ExtList: String read FExtList write FExtList; |
property ExtList: String read FExtList write FExtList; |
| 808 |
|
//! Skinファイル管理 |
| 809 |
|
property SkinFiles: TSkinFiles read FSkinFiles; |
| 810 |
|
|
| 811 |
end; |
end; |
| 812 |
|
|
| 827 |
CONFIG_DIR_NAME = 'config'; |
CONFIG_DIR_NAME = 'config'; |
| 828 |
CSS_DIR_NAME = 'css'; |
CSS_DIR_NAME = 'css'; |
| 829 |
SKIN_DIR_NAME = 'skin'; |
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'; |
|
| 830 |
NGWORDs_DIR_NAME : String = 'NGwords'; |
NGWORDs_DIR_NAME : String = 'NGwords'; |
| 831 |
BOARD_PLUGIN_DIR_NAME = 'BoardPlugin'; |
BOARD_PLUGIN_DIR_NAME = 'BoardPlugin'; |
| 832 |
SAMBATIME_FILE_NAME : String = 'Samba.ini'; |
SAMBATIME_FILE_NAME : String = 'Samba.ini'; |
| 960 |
FCategoryColumnOrder := TGikoCategoryColumnList.Create; |
FCategoryColumnOrder := TGikoCategoryColumnList.Create; |
| 961 |
FBoardColumnOrder := TGikoBoardColumnList.Create; |
FBoardColumnOrder := TGikoBoardColumnList.Create; |
| 962 |
FGestures := TGestureModel.Create; |
FGestures := TGestureModel.Create; |
| 963 |
|
FSkinFiles := TSkinFiles.Create; |
| 964 |
FNameList.Duplicates := dupIgnore; |
FNameList.Duplicates := dupIgnore; |
| 965 |
FMailList.Duplicates := dupIgnore; |
FMailList.Duplicates := dupIgnore; |
| 966 |
FBoardURLs.Duplicates := dupIgnore; |
FBoardURLs.Duplicates := dupIgnore; |
| 1474 |
//かしゅ〜しゃのスキンを使うか |
//かしゅ〜しゃのスキンを使うか |
| 1475 |
ini.WriteBool('CSS', 'UseKatjushaType', FUseKatjushaType); |
ini.WriteBool('CSS', 'UseKatjushaType', FUseKatjushaType); |
| 1476 |
//CSSファイル名 |
//CSSファイル名 |
| 1477 |
ini.WriteString('CSS', 'FileName', FCSSFileName); |
ini.WriteString('CSS', 'FileName', FSkinFiles.FileName); |
| 1478 |
//Mail欄表示 |
//Mail欄表示 |
| 1479 |
ini.WriteBool('Thread', 'ShowMail', FShowMail); |
ini.WriteBool('Thread', 'ShowMail', FShowMail); |
| 1480 |
// レス表示範囲 |
// レス表示範囲 |
| 2043 |
Result := IncludeTrailingPathDelimiter(GetConfigDir + SKIN_DIR_NAME); |
Result := IncludeTrailingPathDelimiter(GetConfigDir + SKIN_DIR_NAME); |
| 2044 |
end; |
end; |
| 2045 |
(************************************************************************* |
(************************************************************************* |
|
*skinヘッダファイル名取得 |
|
|
*************************************************************************) |
|
|
function TSetting.GetSkinHeaderFileName: string; |
|
|
begin |
|
|
Result := CSSFileName + SKIN_HEADER_FILE_NAME; |
|
|
end; |
|
|
(************************************************************************* |
|
|
*skinフッタファイル名取得 |
|
|
*************************************************************************) |
|
|
function TSetting.GetSkinFooterFileName: string; |
|
|
begin |
|
|
Result := CSSFileName + SKIN_FOOTER_FILE_NAME; |
|
|
end; |
|
|
(************************************************************************* |
|
|
*skin新レスファイル名取得 |
|
|
*************************************************************************) |
|
|
function TSetting.GetSkinNewResFileName: string; |
|
|
begin |
|
|
Result := CSSFileName + SKIN_NEWRES_FILE_NAME; |
|
|
end; |
|
|
(************************************************************************* |
|
|
*skinレスファイル名取得 |
|
|
*************************************************************************) |
|
|
function TSetting.GetSkinResFileName: string; |
|
|
begin |
|
|
Result := CSSFileName + SKIN_RES_FILE_NAME; |
|
|
end; |
|
|
(************************************************************************* |
|
|
*skinブックマークファイル名取得 |
|
|
*************************************************************************) |
|
|
function TSetting.GetSkinBookmarkFileName: string; |
|
|
begin |
|
|
Result := CSSFileName + SKIN_BOOKMARK_FILE_NAME; |
|
|
end; |
|
|
(************************************************************************* |
|
|
*skin新着ファイル名取得 |
|
|
*************************************************************************) |
|
|
function TSetting.GetSkinNewmarkFileName: string; |
|
|
begin |
|
|
Result := CSSFileName + SKIN_NEWMARK_FILE_NAME; |
|
|
end; |
|
|
(************************************************************************* |
|
| 2046 |
*NGワードディレクトリ取得(\で終わる) |
*NGワードディレクトリ取得(\で終わる) |
| 2047 |
*************************************************************************) |
*************************************************************************) |
| 2048 |
function TSetting.GetNGWordsDir: string; |
function TSetting.GetNGWordsDir: string; |
| 2065 |
// ココでの判定でも大文字小文字の違いは無視する。 |
// ココでの判定でも大文字小文字の違いは無視する。 |
| 2066 |
FUseSkin := |
FUseSkin := |
| 2067 |
UseCSS and |
UseCSS and |
| 2068 |
(Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(CSSFileName) ) > 0) and |
(Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(FSkinFiles.FileName) ) > 0) and |
| 2069 |
FileExists( GetSkinHeaderFileName ); |
FileExists( FSkinFiles.GetSkinHeaderFileName ); |
| 2070 |
|
|
| 2071 |
end; |
end; |
| 2072 |
|
|
| 2073 |
procedure TSetting.SetCSSFileName( fileName: string ); |
procedure TSetting.SetCSSFileName( fileName: string ); |
| 2074 |
begin |
begin |
| 2075 |
|
FSkinFiles.FileName := fileName; |
|
FCSSFileName := fileName; |
|
| 2076 |
// Windows的にファイルパスの大文字小文字の違いは無視されるので、 |
// Windows的にファイルパスの大文字小文字の違いは無視されるので、 |
| 2077 |
// ココでの判定でも大文字小文字の違いは無視する。 |
// ココでの判定でも大文字小文字の違いは無視する。 |
| 2078 |
FUseSkin := |
FUseSkin := |
| 2079 |
UseCSS and |
UseCSS and |
| 2080 |
(Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(CSSFileName) ) > 0) and |
(Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(FSkinFiles.FileName) ) > 0) and |
| 2081 |
FileExists( GetSkinHeaderFileName ); |
FileExists( FSkinFiles.GetSkinHeaderFileName ); |
| 2082 |
|
|
| 2083 |
end; |
end; |
| 2084 |
(************************************************************************* |
(************************************************************************* |
| 2364 |
end; |
end; |
| 2365 |
end; |
end; |
| 2366 |
end; |
end; |
| 2367 |
|
|
| 2368 |
|
function TSetting.GetCSSFileName: string; |
| 2369 |
|
begin |
| 2370 |
|
Result := FSkinFiles.FileName; |
| 2371 |
|
end; |
| 2372 |
|
|
| 2373 |
end. |
end. |
| 2374 |
|
|