| 4 |
|
|
| 5 |
uses |
uses |
| 6 |
SysUtils, Classes, Graphics, Forms, Math, IniFiles, UCryptAuto, UBase64, |
SysUtils, Classes, Graphics, Forms, Math, IniFiles, UCryptAuto, UBase64, |
| 7 |
ComCtrls; |
ComCtrls, GestureModel; |
| 8 |
|
|
| 9 |
const |
const |
| 10 |
MAIN_COOLBAND_COUNT = 4; //メインCoolBandの数 |
MAIN_COOLBAND_COUNT = 4; //メインCoolBandの数 |
| 34 |
IGNORE_FILE_NAME : String = 'Ignore.txt'; |
IGNORE_FILE_NAME : String = 'Ignore.txt'; |
| 35 |
// DOLIB_LOGIN_URL = '/~tora3n2c/futen.cgi'; |
// DOLIB_LOGIN_URL = '/~tora3n2c/futen.cgi'; |
| 36 |
MAX_POPUP_RES : Integer = 10; |
MAX_POPUP_RES : Integer = 10; |
| 37 |
|
GESTURE_FILE_NAME = 'Gestures.ini'; |
| 38 |
type |
type |
| 39 |
TGikoTabPosition = (gtpTop, gtpBottom); // タブ位置 |
TGikoTabPosition = (gtpTop, gtpBottom); // タブ位置 |
| 40 |
TGikoTabAppend = (gtaFirst, gtpLast); // タブ追加位置 |
TGikoTabAppend = (gtaFirst, gtpLast); // タブ追加位置 |
| 404 |
|
|
| 405 |
//KuroutSettingTab 詳細設定タブのActiveTab |
//KuroutSettingTab 詳細設定タブのActiveTab |
| 406 |
FKuroutSettingTabIndex: Integer; |
FKuroutSettingTabIndex: Integer; |
| 407 |
|
|
| 408 |
|
//! マウスジェスチャー |
| 409 |
|
FGestures : TGestureModel; |
| 410 |
|
|
| 411 |
function GetMainCoolSet(Index: Integer): TCoolSet; |
function GetMainCoolSet(Index: Integer): TCoolSet; |
| 412 |
function GetBoardCoolSet(Index: Integer): TCoolSet; |
function GetBoardCoolSet(Index: Integer): TCoolSet; |
| 471 |
function GetBoardPlugInDir: string; |
function GetBoardPlugInDir: string; |
| 472 |
function GetSambaFileName: string; |
function GetSambaFileName: string; |
| 473 |
function GetIgnoreFileName: string; |
function GetIgnoreFileName: string; |
| 474 |
|
function GetGestureFileName : string; |
| 475 |
|
|
| 476 |
//受信バッファサイズ |
//受信バッファサイズ |
| 477 |
property RecvBufferSize: Integer read FRecvBufferSize write FRecvBufferSize; |
property RecvBufferSize: Integer read FRecvBufferSize write FRecvBufferSize; |
| 694 |
property TabAutoLoadSave: Boolean read FTabAutoLoadSave write FTabAutoLoadSave; |
property TabAutoLoadSave: Boolean read FTabAutoLoadSave write FTabAutoLoadSave; |
| 695 |
property GengoSupport : Boolean read F2chSupport write F2chSupport; |
property GengoSupport : Boolean read F2chSupport write F2chSupport; |
| 696 |
property KuroutSettingTabIndex: Integer read FKuroutSettingTabIndex write FKuroutSettingTabIndex; |
property KuroutSettingTabIndex: Integer read FKuroutSettingTabIndex write FKuroutSettingTabIndex; |
| 697 |
|
//! マウスジェスチャー |
| 698 |
|
property Gestures : TGestureModel read FGestures write FGestures; |
| 699 |
end; |
end; |
| 700 |
|
|
| 701 |
|
|
| 819 |
FBBSColumnOrder := TGikoBBSColumnList.Create; |
FBBSColumnOrder := TGikoBBSColumnList.Create; |
| 820 |
FCategoryColumnOrder := TGikoCategoryColumnList.Create; |
FCategoryColumnOrder := TGikoCategoryColumnList.Create; |
| 821 |
FBoardColumnOrder := TGikoBoardColumnList.Create; |
FBoardColumnOrder := TGikoBoardColumnList.Create; |
| 822 |
|
FGestures := TGestureModel.Create; |
| 823 |
FNameList.Duplicates := dupIgnore; |
FNameList.Duplicates := dupIgnore; |
| 824 |
FMailList.Duplicates := dupIgnore; |
FMailList.Duplicates := dupIgnore; |
| 825 |
FBoardURLs.Duplicates := dupIgnore; |
FBoardURLs.Duplicates := dupIgnore; |
| 839 |
FBoardURLs.Free; |
FBoardURLs.Free; |
| 840 |
FMailList.Free; |
FMailList.Free; |
| 841 |
FNameList.Free; |
FNameList.Free; |
| 842 |
|
FGestures.Free; |
| 843 |
end; |
end; |
| 844 |
|
|
| 845 |
//初期化ファイル名取得(パス+ファイル名) |
//初期化ファイル名取得(パス+ファイル名) |
| 1240 |
|
|
| 1241 |
FKuroutSettingTabIndex := ini.ReadInteger('OptionDialog', 'KuroutTabIndex' , 0); |
FKuroutSettingTabIndex := ini.ReadInteger('OptionDialog', 'KuroutTabIndex' , 0); |
| 1242 |
|
|
|
|
|
| 1243 |
finally |
finally |
| 1244 |
ini.Free; |
ini.Free; |
| 1245 |
end; |
end; |
| 1569 |
ini.WriteInteger('OptionDialog', 'KuroutTabIndex', FKuroutSettingTabIndex); |
ini.WriteInteger('OptionDialog', 'KuroutTabIndex', FKuroutSettingTabIndex); |
| 1570 |
|
|
| 1571 |
//にちゃん語案内機能 |
//にちゃん語案内機能 |
| 1572 |
ini.WriteBool('2chSupport', 'Support', F2chSupport); |
ini.WriteBool('2chSupport', 'Support', F2chSupport); |
| 1573 |
|
|
| 1574 |
ini.UpdateFile; |
ini.UpdateFile; |
| 1575 |
finally |
finally |
| 1576 |
ini.Free; |
ini.Free; |
| 1577 |
end; |
end; |
| 2006 |
Result := GetConfigDir + IGNORE_FILE_NAME; |
Result := GetConfigDir + IGNORE_FILE_NAME; |
| 2007 |
end; |
end; |
| 2008 |
|
|
| 2009 |
|
//! マウスジェスチャーファイルパス |
| 2010 |
|
function TSetting.GetGestureFileName: string; |
| 2011 |
|
begin |
| 2012 |
|
Result := GetConfigDir + GESTURE_FILE_NAME; |
| 2013 |
|
end; |
| 2014 |
|
|
| 2015 |
end. |
end. |
| 2016 |
|
|
| 2017 |
|
|