| 1 |
hi_ |
1.1 |
unit Setting; |
| 2 |
|
|
|
| 3 |
h677 |
1.100 |
|
| 4 |
hi_ |
1.1 |
interface |
| 5 |
|
|
|
| 6 |
|
|
uses |
| 7 |
h677 |
1.99 |
SysUtils, Classes, Graphics, Forms, {Math, IniFiles, UCryptAuto, UBase64,} |
| 8 |
yoffy |
1.74 |
ComCtrls, GestureModel; |
| 9 |
hi_ |
1.1 |
|
| 10 |
|
|
const |
| 11 |
|
|
MAIN_COOLBAND_COUNT = 4; //?<?ゃ??oolBand????/span> |
| 12 |
|
|
LIST_COOLBAND_COUNT = 2; //??oolBand????/span> |
| 13 |
|
|
BROWSER_COOLBAND_COUNT = 3; //????????oolBand????/span> |
| 14 |
|
|
|
| 15 |
h677 |
1.100 |
|
| 16 |
hi_ |
1.1 |
type |
| 17 |
|
|
TGikoTabPosition = (gtpTop, gtpBottom); // ?帥??篏?臀?/span> |
| 18 |
|
|
TGikoTabAppend = (gtaFirst, gtpLast); // ?帥??菴遵??篏?臀?/span> |
| 19 |
|
|
TGikoTabStyle = (gtsTab, gtsButton, gtsFlat); // ?帥???鴻?帥?ゃ??/span> |
| 20 |
|
|
TGikoListOrientation = (gloHorizontal, gloVertical); // ???鴻?????眼?紙梓綛?/span> |
| 21 |
|
|
TGikoListState = (glsMax, glsNormal, glsMin); // ???鴻???泣?ゃ?榊?倶?? |
| 22 |
|
|
// ???????≪????茵?ず篏?臀?/span> |
| 23 |
|
|
TGikoPopupPosition = (gppRightTop, gppTop, gppLeftTop, |
| 24 |
|
|
gppRight, gppCenter, gppLeft, |
| 25 |
|
|
gppRightBottom, gppBottom, gppLeftBottom); |
| 26 |
|
|
//???????ャ?若?泣?ゃ??/span> |
| 27 |
|
|
TGikoPreviewSize = (gpsXLarge, gpsLarge, gpsMedium, gpsSmall, gpsXSmall); |
| 28 |
yoffy |
1.39 |
TGikoBrowserAutoMaximize = (gbmNone, gbmClick, gbmDoubleClick); |
| 29 |
|
|
// ???????吟????????????紊у???????>散 |
| 30 |
yoffy |
1.49 |
/// ???壕;腓榊??蚊??10 ?? 65535 ????? n ???号?宴???? |
| 31 |
|
|
/// 絨?? 201-300 ??????????蚊?????????????醇?с?????????篏? 2 byte ???膣??? |
| 32 |
|
|
TGikoResRange = (grrAll, grrSelect, grrKoko, grrNew); |
| 33 |
hi_ |
1.1 |
|
| 34 |
yoffy |
1.55 |
/// ?鴻??????筝?荀ц;腓榊???/span> |
| 35 |
|
|
TGikoThreadRange = (gtrAll, gtrSelect, gtrLog, gtrNew); |
| 36 |
|
|
|
| 37 |
yoffy |
1.83 |
//! ?鴻???????c???帥?若?≪???眼???冴?? |
| 38 |
|
|
TGikoSpamFilterAlgorithm = ( |
| 39 |
|
|
gsfaNone, gsfaPaulGraham, gsfaGaryRobinson, gsfaGaryRobinsonFisher); |
| 40 |
|
|
|
| 41 |
h677 |
1.86 |
|
| 42 |
yoffy |
1.62 |
/// ?????眼?????鴻?????????? ID |
| 43 |
|
|
type TGikoBBSColumnID = (gbbscTitle); |
| 44 |
yoffy |
1.63 |
/// ?????眼?????鴻???????????? |
| 45 |
yoffy |
1.65 |
const GikoBBSColumnCaption : array[0..0] of string = |
| 46 |
yoffy |
1.62 |
( '?????眼????' ); |
| 47 |
yoffy |
1.63 |
/// ?????眼?????鴻???????????? |
| 48 |
|
|
type TGikoBBSColumnList = class( TList ) |
| 49 |
|
|
private |
| 50 |
|
|
function GetItem( index : integer ) : TGikoBBSColumnID; |
| 51 |
|
|
procedure SetItem( index : integer; value : TGikoBBSColumnID); |
| 52 |
|
|
public |
| 53 |
|
|
constructor Create; |
| 54 |
yoffy |
1.68 |
destructor Destroy; override; |
| 55 |
yoffy |
1.63 |
function Add( value : TGikoBBSColumnID ) : Integer; |
| 56 |
yoffy |
1.64 |
property Items[index : integer]: TGikoBBSColumnID read GetItem write SetItem; default; |
| 57 |
yoffy |
1.63 |
end; |
| 58 |
yoffy |
1.62 |
/// ?帥???鴻?????????? ID |
| 59 |
yoffy |
1.65 |
type TGikoCategoryColumnID = (gccTitle, gccRoundName, gccLastModified); |
| 60 |
yoffy |
1.62 |
/// ?帥???鴻???????????? |
| 61 |
yoffy |
1.65 |
const GikoCategoryColumnCaption : array[0..2] of string = |
| 62 |
|
|
( '?水??', '綏≦??篋?膣?', '??緇??ユ??' ); |
| 63 |
yoffy |
1.63 |
/// ?帥???鴻???????????? |
| 64 |
|
|
type TGikoCategoryColumnList = class( TList ) |
| 65 |
|
|
private |
| 66 |
|
|
function GetItem( index : integer ) : TGikoCategoryColumnID; |
| 67 |
|
|
procedure SetItem( index : integer; value : TGikoCategoryColumnID); |
| 68 |
|
|
public |
| 69 |
|
|
constructor Create; |
| 70 |
yoffy |
1.68 |
destructor Destroy; override; |
| 71 |
yoffy |
1.63 |
function Add( value : TGikoCategoryColumnID ) : Integer; |
| 72 |
yoffy |
1.64 |
property Items[index : integer]: TGikoCategoryColumnID read GetItem write SetItem; default; |
| 73 |
yoffy |
1.63 |
end; |
| 74 |
yoffy |
1.62 |
/// ?鴻?????鴻?????????? ID |
| 75 |
|
|
type TGikoBoardColumnID = (gbcTitle, gbcAllCount, gbcLocalCount, gbcNonAcqCount, |
| 76 |
h677 |
1.70 |
gbcNewCount, gbcUnReadCount, gbcRoundName, gbcRoundDate, gbcCreated, gbcLastModified );{gbcLastModified,} |
| 77 |
yoffy |
1.62 |
/// ?鴻?????鴻???????????? |
| 78 |
h677 |
1.70 |
const GikoBoardColumnCaption : array[0..9] of string = |
| 79 |
yoffy |
1.62 |
( '?鴻????????', '?????潟??', '??緇?', '????', '?亥??', |
| 80 |
h677 |
1.70 |
'???', '綏≦??篋?膣?', '??緇??ユ??', '?鴻??????ユ??', '??腟??贋?井?ユ??' ); |
| 81 |
|
|
const GikoBoardColumnAlignment : array[0..9] of TAlignment = ( |
| 82 |
yoffy |
1.65 |
taLeftJustify, taRightJustify, taRightJustify, taRightJustify, |
| 83 |
|
|
taRightJustify, taRightJustify, taLeftJustify, taLeftJustify, |
| 84 |
h677 |
1.70 |
taLeftJustify, taLeftJustify); |
| 85 |
yoffy |
1.63 |
/// ?鴻?????鴻???????????? |
| 86 |
|
|
type TGikoBoardColumnList = class( TList ) |
| 87 |
|
|
private |
| 88 |
|
|
function GetItem( index : integer ) : TGikoBoardColumnID; |
| 89 |
|
|
procedure SetItem( index : integer; value : TGikoBoardColumnID); |
| 90 |
|
|
public |
| 91 |
|
|
constructor Create; |
| 92 |
yoffy |
1.68 |
destructor Destroy; override; |
| 93 |
yoffy |
1.63 |
function Add( value : TGikoBoardColumnID ) : Integer; |
| 94 |
yoffy |
1.64 |
property Items[index : integer]: TGikoBoardColumnID read GetItem write SetItem; default; |
| 95 |
yoffy |
1.63 |
end; |
| 96 |
yoffy |
1.62 |
|
| 97 |
|
|
type |
| 98 |
hi_ |
1.1 |
//CoolBar荐?????潟?若?? |
| 99 |
|
|
TCoolSet = record |
| 100 |
|
|
FCoolID: Integer; |
| 101 |
|
|
FCoolWidth: Integer; |
| 102 |
|
|
FCoolBreak: Boolean; |
| 103 |
|
|
end; |
| 104 |
|
|
|
| 105 |
|
|
TSetting = class(TObject) |
| 106 |
|
|
private |
| 107 |
|
|
//??篆<???????<?泣?ゃ??/span> |
| 108 |
|
|
FRecvBufferSize: Integer; |
| 109 |
|
|
//HTTP1.1篏睡??/span> |
| 110 |
|
|
FProtocol: Boolean; |
| 111 |
|
|
//???????傑・膓?HTTP1.1篏睡??/span> |
| 112 |
|
|
FProxyProtocol: Boolean; |
| 113 |
|
|
|
| 114 |
|
|
//???????件?茯?昭??? |
| 115 |
|
|
FReadProxy: Boolean; |
| 116 |
|
|
FReadProxyAddress: string; |
| 117 |
|
|
FReadProxyPort: Integer; |
| 118 |
|
|
FReadProxyUserID: string; |
| 119 |
|
|
FReadProxyPassword: string; |
| 120 |
|
|
|
| 121 |
|
|
//???????件??梧昭??? |
| 122 |
|
|
FWriteProxy: Boolean; |
| 123 |
|
|
FWriteProxyAddress: string; |
| 124 |
|
|
FWriteProxyPort: Integer; |
| 125 |
|
|
FWriteProxyUserID: string; |
| 126 |
|
|
FWriteProxyPassword: string; |
| 127 |
|
|
|
| 128 |
|
|
//???c???????? |
| 129 |
|
|
FCabinetFontName: string; |
| 130 |
|
|
FCabinetFontSize: Integer; |
| 131 |
|
|
FCabinetFontBold: Boolean; |
| 132 |
|
|
FCabinetFontItalic: Boolean; |
| 133 |
|
|
FCabinetFontColor: TColor; |
| 134 |
|
|
FCabinetBackColor: TColor; |
| 135 |
|
|
|
| 136 |
|
|
//???鴻?? |
| 137 |
|
|
FListFontName: string; |
| 138 |
|
|
FListFontSize: Integer; |
| 139 |
|
|
FListFontBold: Boolean; |
| 140 |
|
|
FListFontItalic: Boolean; |
| 141 |
|
|
FListFontColor: TColor; |
| 142 |
|
|
FListBackColor: TColor; |
| 143 |
|
|
|
| 144 |
|
|
//????????/span> |
| 145 |
yoffy |
1.6 |
FBrowserFontName: string; // ''...default |
| 146 |
|
|
FBrowserFontSize: Integer; // 0...default |
| 147 |
|
|
FBrowserFontBold: Integer; // 0...default, -1...False, 1...True |
| 148 |
|
|
FBrowserFontItalic: Integer; // 筝??????? |
| 149 |
yoffy |
1.14 |
FBrowserFontColor: Integer; // -1...default |
| 150 |
|
|
FBrowserBackColor: Integer; // 筝??????? |
| 151 |
hi_ |
1.1 |
|
| 152 |
|
|
//?????c??/span> |
| 153 |
|
|
FEditorFontName: string; |
| 154 |
|
|
FEditorFontSize: Integer; |
| 155 |
|
|
FEditorFontBold: Boolean; |
| 156 |
|
|
FEditorFontItalic: Boolean; |
| 157 |
|
|
FEditorFontColor: TColor; |
| 158 |
|
|
FEditorBackColor: TColor; |
| 159 |
|
|
|
| 160 |
|
|
//?帥???????潟?? |
| 161 |
|
|
FBrowserTabFontName: string; |
| 162 |
|
|
FBrowserTabFontSize: Integer; |
| 163 |
|
|
FBrowserTabFontBold: Boolean; |
| 164 |
|
|
FBrowserTabFontItalic: Boolean; |
| 165 |
|
|
|
| 166 |
|
|
//???潟?????c?潟????/span> |
| 167 |
|
|
FHintFontName: string; |
| 168 |
|
|
FHintFontSize: Integer; |
| 169 |
|
|
//FHintFontBold: Boolean; |
| 170 |
|
|
//FHintFontItalic: Boolean; |
| 171 |
|
|
FHintFontColor: TColor; |
| 172 |
|
|
FHintBackColor: TColor; |
| 173 |
|
|
|
| 174 |
|
|
//???c?潟?????泣?ゃ??/span> |
| 175 |
|
|
FWindowTop: Integer; |
| 176 |
|
|
FWindowLeft: Integer; |
| 177 |
|
|
FWindowHeight: Integer; |
| 178 |
|
|
FWindowWidth: Integer; |
| 179 |
|
|
FWindowMax: Boolean; |
| 180 |
|
|
//???鴻?????ャ?若?鴻?帥?ゃ??/span> |
| 181 |
|
|
FListStyle: TViewStyle; |
| 182 |
|
|
|
| 183 |
|
|
//???若?????取;腓?/span> |
| 184 |
|
|
FStdToolBarVisible: Boolean; |
| 185 |
|
|
FAddressBarVisible: Boolean; |
| 186 |
|
|
FLinkBarVisible: Boolean; |
| 187 |
|
|
FListToolBarVisible: Boolean; |
| 188 |
|
|
FListNameBarVisible: Boolean; |
| 189 |
|
|
FBrowserToolBarVisible: Boolean; |
| 190 |
|
|
FBrowserNameBarVisible: Boolean; |
| 191 |
|
|
|
| 192 |
|
|
//???????吟?帥?? |
| 193 |
|
|
FBrowserTabVisible: Boolean; |
| 194 |
|
|
FBrowserTabPosition: TGikoTabPosition; |
| 195 |
|
|
FBrowserTabAppend: TGikoTabAppend; |
| 196 |
|
|
FBrowserTabStyle: TGikoTabStyle; |
| 197 |
|
|
|
| 198 |
|
|
//?<???祉?若?吾????/span> |
| 199 |
|
|
FMessageBarVisible: Boolean; |
| 200 |
|
|
FMessegeBarHeight: Integer; |
| 201 |
|
|
|
| 202 |
|
|
//?鴻???若?帥?鴻????/span> |
| 203 |
|
|
FStatusBarVisible: Boolean; |
| 204 |
|
|
|
| 205 |
|
|
//???c????????????祉?泣?ゃ??/span> |
| 206 |
|
|
FCabinetVisible: Boolean; |
| 207 |
|
|
FCabinetWidth: Integer; |
| 208 |
|
|
|
| 209 |
|
|
//???鴻???祉???????吟?泣?ゃ??/span> |
| 210 |
|
|
FListOrientation: TGikoListOrientation; |
| 211 |
|
|
FListHeight: Integer; |
| 212 |
|
|
FListHeightState: TGikoListState; |
| 213 |
|
|
FListWidth: Integer; |
| 214 |
|
|
FListWidthState: TGikoListState; |
| 215 |
|
|
// FListHeightMax: Boolean; |
| 216 |
|
|
// FListWidthMax: Boolean; |
| 217 |
|
|
|
| 218 |
|
|
//??篆∞???????祉?<?若??/span> |
| 219 |
|
|
FNameList: TStringList; |
| 220 |
|
|
FMailList: TStringList; |
| 221 |
|
|
|
| 222 |
|
|
//?????c?帥?若???c?潟?????泣?ゃ??/span> |
| 223 |
|
|
FEditWindowTop: Integer; |
| 224 |
|
|
FEditWindowLeft: Integer; |
| 225 |
|
|
FEditWindowHeight: Integer; |
| 226 |
|
|
FEditWindowWidth: Integer; |
| 227 |
|
|
FEditWindowMax: Boolean; |
| 228 |
genyakun |
1.87 |
FEditWindowStay: Boolean; |
| 229 |
|
|
FEditWindowTranslucent: Boolean; |
| 230 |
hi_ |
1.1 |
|
| 231 |
|
|
//???鴻????埈;腓?/span> |
| 232 |
|
|
FListViewNo: Boolean; |
| 233 |
|
|
//CSS茵?ず |
| 234 |
|
|
FUseCSS: Boolean; |
| 235 |
|
|
//CSS???<?ゃ???? |
| 236 |
|
|
FCSSFileName: string; |
| 237 |
yoffy |
1.14 |
// ?鴻???活;腓?筝???????????? ini ???絖???????????) |
| 238 |
|
|
FUseSkin: Boolean; |
| 239 |
h677 |
1.97 |
//???<????????????kin???????????? |
| 240 |
|
|
FUseKatjushaType : Boolean; |
| 241 |
hi_ |
1.1 |
//mail罨?茵?ず |
| 242 |
|
|
FShowMail: Boolean; |
| 243 |
yoffy |
1.49 |
/// ???壕;腓榊???/span> |
| 244 |
yoffy |
1.51 |
FResRange : Longint; |
| 245 |
|
|
/// 莎桁???????壕;腓榊??蚊???阪? |
| 246 |
|
|
FResRangeHold : Boolean; |
| 247 |
yoffy |
1.55 |
/// ?鴻??????筝?荀ц;腓榊???/span> |
| 248 |
|
|
FThreadRange : TGikoThreadRange; |
| 249 |
yoffy |
1.2 |
//???≪?????c???????鴻???????≪????茵?ず |
| 250 |
hi_ |
1.1 |
FUnActivePopup: Boolean; |
| 251 |
yoffy |
1.2 |
//???鴻???????≪???????????若???若???? |
| 252 |
|
|
FResPopupHeaderBold: Boolean; |
| 253 |
hi_ |
1.1 |
|
| 254 |
|
|
//???違???????? |
| 255 |
|
|
FLogFolder: string; |
| 256 |
h677 |
1.88 |
FLogFolderP: string; //???劫???????劫?阪????荐??激?х???c???????? |
| 257 |
hi_ |
1.1 |
FNewLogFolder: string; |
| 258 |
|
|
|
| 259 |
|
|
//???鴻???????????????若?泣?ゃ??/span> |
| 260 |
|
|
FBBSColumnWidth: array[0..0] of Integer; |
| 261 |
yoffy |
1.65 |
FCategoryColumnWidth: array[0..2] of Integer; |
| 262 |
h677 |
1.70 |
FBoardColumnWidth: array[0..9] of Integer; |
| 263 |
hi_ |
1.1 |
|
| 264 |
yoffy |
1.62 |
/// ?????眼?????鴻??????????綺?span> |
| 265 |
yoffy |
1.63 |
FBBSColumnOrder : TGikoBBSColumnList; |
| 266 |
yoffy |
1.62 |
/// ?帥???鴻??????????綺?span> |
| 267 |
yoffy |
1.63 |
FCategoryColumnOrder : TGikoCategoryColumnList; |
| 268 |
yoffy |
1.62 |
/// ?鴻?????鴻??????????綺?span> |
| 269 |
yoffy |
1.63 |
FBoardColumnOrder : TGikoBoardColumnList; |
| 270 |
yoffy |
1.62 |
|
| 271 |
q9_ |
1.46 |
//?純?若???? |
| 272 |
|
|
FBBSSortIndex: Integer; |
| 273 |
|
|
FBBSSortOrder: Boolean; |
| 274 |
|
|
FCategorySortIndex: Integer; |
| 275 |
|
|
FCategorySortOrder: Boolean; |
| 276 |
|
|
FBoardSortIndex: Integer; |
| 277 |
|
|
FBoardSortOrder: Boolean; |
| 278 |
|
|
|
| 279 |
q9_ |
1.53 |
//Dat?純?<?鴻???純?若???? |
| 280 |
|
|
FDatOchiSortIndex: Integer; |
| 281 |
|
|
FDatOchiSortOrder: Boolean; |
| 282 |
|
|
|
| 283 |
hi_ |
1.1 |
//腟?莨若?炊??絖??? |
| 284 |
|
|
FSelectTextList: TStringList; |
| 285 |
|
|
|
| 286 |
|
|
//?推?荀?RL |
| 287 |
h677 |
1.11 |
//FBoardURL2ch: string; |
| 288 |
yoffy |
1.14 |
FBoardURLs: TStringList; |
| 289 |
|
|
FBoardURLSelected: Integer; |
| 290 |
hi_ |
1.1 |
|
| 291 |
|
|
//???若??D?祉???鴻???若?? |
| 292 |
|
|
FUserID: string; |
| 293 |
|
|
FPassword: string; |
| 294 |
|
|
FAutoLogin: Boolean; |
| 295 |
genyakun |
1.87 |
FForcedLogin: Boolean; |
| 296 |
h677 |
1.36 |
FDolibURL: string; |
| 297 |
hi_ |
1.1 |
|
| 298 |
|
|
//URL??????????莎桁???≪????/span> |
| 299 |
|
|
FURLApp: Boolean; |
| 300 |
|
|
FURLAppFile: string; |
| 301 |
|
|
|
| 302 |
|
|
//mailto????????????篏? |
| 303 |
|
|
FOpenMailer: Boolean; |
| 304 |
|
|
|
| 305 |
|
|
//???ょ∈茯? |
| 306 |
|
|
FDeleteMsg: Boolean; |
| 307 |
|
|
|
| 308 |
|
|
//CoolBar鐚??<?ゃ?潟?紙?帥?祉???????駈? |
| 309 |
|
|
FMainCoolBar: array[0..MAIN_COOLBAND_COUNT - 1] of TCoolSet; |
| 310 |
yoffy |
1.2 |
FListCoolBar: array[0..LIST_COOLBAND_COUNT - 1] of TCoolSet; |
| 311 |
hi_ |
1.1 |
FBrowserCoolBar: array[0..BROWSER_COOLBAND_COUNT - 1] of TCoolSet; |
| 312 |
|
|
|
| 313 |
|
|
//ToolBar Wrapable |
| 314 |
|
|
FListToolBarWrapable: Boolean; |
| 315 |
|
|
FBrowserToolBarWrapable: Boolean; |
| 316 |
|
|
|
| 317 |
|
|
//???????≪????篏?臀?/span> |
| 318 |
|
|
FPopupPosition: TGikoPopupPosition; |
| 319 |
|
|
|
| 320 |
|
|
//?≪?????鴻????/span> |
| 321 |
|
|
FURLDisplay: Boolean; |
| 322 |
|
|
FAddressBarTabStop: Boolean; |
| 323 |
|
|
FLinkAddAddressBar: Boolean; |
| 324 |
|
|
FAddressHistoryCount: Integer; |
| 325 |
|
|
|
| 326 |
|
|
//?糸????????ャ??/span> |
| 327 |
|
|
FPreviewVisible: Boolean; |
| 328 |
|
|
FPreviewSize: TGikoPreviewSize; |
| 329 |
|
|
FPreviewWait: Integer; |
| 330 |
|
|
|
| 331 |
yoffy |
1.39 |
// ????????/span> |
| 332 |
|
|
FBrowserAutoMaximize: TGikoBrowserAutoMaximize; |
| 333 |
|
|
|
| 334 |
hi_ |
1.1 |
//?鴻??????筝?荀ф?贋?違?≪?ゃ?潟?活;腓?/span> |
| 335 |
|
|
FListIconVisible: Boolean; |
| 336 |
|
|
|
| 337 |
genyakun |
1.87 |
//?鴻??????筝?荀с??og???????鴻?????????帥?鴻??????ャ??茵?ず?????? |
| 338 |
|
|
FCreationTimeLogs: Boolean; |
| 339 |
|
|
//?鴻??????筝?荀с???鴻???????ャ?ф???ャ???鴻?????????ャ??茵?ず?????? |
| 340 |
q9_ |
1.44 |
FFutureThread: Boolean; |
| 341 |
h677 |
1.29 |
|
| 342 |
hi_ |
1.1 |
//?吾??莨若?炊?????激?恰????篏睡??┃絎? |
| 343 |
|
|
FUseMachineTime: Boolean; |
| 344 |
|
|
FTimeAdjustSec: Integer; |
| 345 |
|
|
FTimeAdjust: Boolean; |
| 346 |
|
|
|
| 347 |
h677 |
1.11 |
//???若???? |
| 348 |
|
|
FAbonDeleterlo : Boolean; //&rlo;???????? |
| 349 |
|
|
FAbonReplaceul : Boolean; //<ul>?帥?違??<br>?帥?違??舟???????? |
| 350 |
yoffy |
1.14 |
FPopUpAbon : Boolean; //???鴻???????≪???????????若????????/span> |
| 351 |
h677 |
1.11 |
FShowNGLinesNum : Boolean; //荅峨?????鐚?磁???若?????<?ゃ??????違??茵?ず |
| 352 |
|
|
FAddResAnchor : Boolean; //NG???鴻?吾?????鴻?≪?潟???若??菴遵?????? |
| 353 |
h677 |
1.93 |
FDeleteSyria : Boolean; //?激???∵??????????膈? |
| 354 |
|
|
FIgnoreKana : Boolean; //????茹??蚊???????????????∴??????? |
| 355 |
h677 |
1.3 |
|
| 356 |
h677 |
1.11 |
// ?鴻??????腟?莨若???c?若??????? |
| 357 |
|
|
FSelectComboBoxWidth : Integer; |
| 358 |
yoffy |
1.5 |
|
| 359 |
h677 |
1.11 |
// ??緇????御?????????????激?с?潟???ゃ?≪???違???帥?? |
| 360 |
|
|
FOptionDialogTabIndex: Integer; |
| 361 |
yoffy |
1.8 |
|
| 362 |
h677 |
1.11 |
// ??緇????御???????????c???????? |
| 363 |
|
|
FCabinetIndex: Integer; |
| 364 |
yoffy |
1.8 |
|
| 365 |
yoffy |
1.14 |
//腟?篋?????∈茯????ゃ?≪???違??茵?ず?????? |
| 366 |
|
|
FShowDialogForEnd : Boolean; |
| 367 |
h677 |
1.38 |
//???????帥????????????????∈茯????ゃ?≪???違??茵?ず???? |
| 368 |
|
|
FShowDialogForAllTabClose: Boolean; |
| 369 |
h677 |
1.19 |
//??緇????号?違???鴻???????????号?違???違???c??????????絽梧?????蚊?????c???蚊???????蚊??篏睡???????? |
| 370 |
|
|
FUseOddColorOddResNum: Boolean; |
| 371 |
|
|
FOddColor: TColor; |
| 372 |
h677 |
1.92 |
//???号?医?羝?綣決????????御???≪?ゃ???????????若???鴻???<????????お絖????????? |
| 373 |
|
|
FUnFocusedBold : Boolean; |
| 374 |
h677 |
1.13 |
|
| 375 |
h677 |
1.92 |
//Samba24絲丞?罘??純??篏帥???? |
| 376 |
|
|
FUseSamba: Boolean; |
| 377 |
h677 |
1.36 |
|
| 378 |
h677 |
1.38 |
//???鴻?≪?潟???若???????????????吾?c?潟???????? |
| 379 |
|
|
FResAnchorJamp: Boolean; |
| 380 |
|
|
|
| 381 |
genyakun |
1.47 |
//Tab????篆?絖? |
| 382 |
genyakun |
1.56 |
FTabAutoLoadSave : Boolean; |
| 383 |
genyakun |
1.71 |
|
| 384 |
|
|
//???<????茯?罅????泣???若??罘???/span> |
| 385 |
|
|
F2chSupport : Boolean; |
| 386 |
|
|
|
| 387 |
yoffy |
1.40 |
// ?????c??/span> |
| 388 |
yoffy |
1.41 |
FSpaceToNBSP : Boolean; ///< ??茹??鴻???若?鴻??Tab ?? ??舟?? |
| 389 |
|
|
FAmpToCharRef : Boolean; ///< '&' ?? & ??舟?? |
| 390 |
h677 |
1.43 |
|
| 391 |
|
|
//???????吟?帥????茵?ず???????鴻???荀с?с?????若?純?????主Щ?????≦?????? |
| 392 |
|
|
FSelectInterval : Integer; |
| 393 |
h677 |
1.67 |
|
| 394 |
|
|
//KuroutSettingTab 荅括完荐???帥????ctiveTab |
| 395 |
|
|
FKuroutSettingTabIndex: Integer; |
| 396 |
yoffy |
1.74 |
|
| 397 |
|
|
//! ?????鴻?吾?с?鴻???c??/span> |
| 398 |
|
|
FGestures : TGestureModel; |
| 399 |
yoffy |
1.75 |
//! ?????鴻?吾?с?鴻???c?若??篏睡?????????????? |
| 400 |
|
|
FGestureEnabled : Boolean; |
| 401 |
genyakun |
1.76 |
|
| 402 |
h677 |
1.81 |
//???激?≪??????????荐?? |
| 403 |
|
|
FLocalTrapAtt : Boolean; |
| 404 |
|
|
FRemoteTrapAtt : Boolean; |
| 405 |
|
|
FReadTimeOut: Integer; |
| 406 |
genyakun |
1.77 |
|
| 407 |
yoffy |
1.83 |
//! 篏睡???????鴻???????c???帥??/span> |
| 408 |
|
|
FSpamFilterAlgorithm : TGikoSpamFilterAlgorithm; |
| 409 |
h677 |
1.84 |
//???ャ?若?????????? |
| 410 |
|
|
FMute: Boolean; |
| 411 |
h677 |
1.85 |
//?鴻???莨若?帥?ф??∈絎???絖??????鴻???????? |
| 412 |
|
|
FUseUndecided: Boolean; |
| 413 |
genyakun |
1.87 |
|
| 414 |
|
|
//Be2ch |
| 415 |
|
|
//茯?荐主?????若??D?祉???鴻???若?? |
| 416 |
|
|
FBeUserID: String; |
| 417 |
h677 |
1.89 |
FBeCode: String; |
| 418 |
h677 |
1.90 |
FBeAutoLogin: Boolean; |
| 419 |
h677 |
1.91 |
FBeLogin: Boolean; |
| 420 |
|
|
//絮ユ?????紊т?絖?篁倶??/span> |
| 421 |
|
|
FMaxRecordCount : Integer; |
| 422 |
h677 |
1.86 |
|
| 423 |
h677 |
1.101 |
//?鴻??????筝?荀с???????潟???若??緇????純?若???????? |
| 424 |
|
|
FAutoSortThreadList : Boolean; |
| 425 |
hi_ |
1.1 |
function GetMainCoolSet(Index: Integer): TCoolSet; |
| 426 |
|
|
function GetBoardCoolSet(Index: Integer): TCoolSet; |
| 427 |
|
|
function GetBrowserCoolSet(Index: Integer): TCoolSet; |
| 428 |
|
|
procedure SetMainCoolSet(Index: Integer; CoolSet: TCoolSet); |
| 429 |
|
|
procedure SetBoardCoolSet(Index: Integer; CoolSet: TCoolSet); |
| 430 |
|
|
procedure SetBrowserCoolSet(Index: Integer; CoolSet: TCoolSet); |
| 431 |
|
|
|
| 432 |
|
|
function GetBBSColumnWidth(index: Integer): Integer; |
| 433 |
|
|
function GetCategoryColumnWidth(index: Integer): Integer; |
| 434 |
|
|
function GetBoardColumnWidth(index: Integer): Integer; |
| 435 |
|
|
procedure SetBBSColumnWidth(index: Integer; value: Integer); |
| 436 |
|
|
procedure SetCategoryColumnWidth(index: Integer; value: Integer); |
| 437 |
|
|
procedure SetBoardColumnWidth(index: Integer; value: Integer); |
| 438 |
|
|
|
| 439 |
|
|
function GetSoundName(Index: Integer): string; |
| 440 |
|
|
function GetSoundViewName(Index: Integer): string; |
| 441 |
|
|
function GetSoundFileName(Index: Integer): string; |
| 442 |
|
|
procedure SetSoundFileName(Index: Integer; value: string); |
| 443 |
|
|
function Encrypt(s: string): string; |
| 444 |
|
|
function Decrypt(s: string): string; |
| 445 |
h677 |
1.11 |
|
| 446 |
yoffy |
1.14 |
procedure MakeURLIniFile(); |
| 447 |
|
|
|
| 448 |
|
|
procedure SetUseCSS( value: Boolean ); |
| 449 |
|
|
procedure SetCSSFileName( fileName: string ); |
| 450 |
hi_ |
1.1 |
protected |
| 451 |
|
|
|
| 452 |
|
|
public |
| 453 |
|
|
constructor Create; |
| 454 |
|
|
destructor Destroy; override; |
| 455 |
|
|
function GetFileName: string; |
| 456 |
yoffy |
1.14 |
function GetBoardURLFileName: string; |
| 457 |
hi_ |
1.1 |
procedure ReadSettingFile; |
| 458 |
yoffy |
1.14 |
procedure ReadBoardURLsFile; |
| 459 |
hi_ |
1.1 |
procedure WriteSystemSettingFile; |
| 460 |
|
|
procedure WriteWindowSettingFile; |
| 461 |
|
|
procedure WriteNameMailSettingFile; |
| 462 |
|
|
procedure WriteFolderSettingFile(); |
| 463 |
yoffy |
1.14 |
procedure WriteBoardURLSettingFile; |
| 464 |
hi_ |
1.1 |
function GetSoundCount: Integer; |
| 465 |
|
|
function FindSoundFileName(Name: string): string; |
| 466 |
|
|
|
| 467 |
yoffy |
1.14 |
function GetBoardFileName: string; |
| 468 |
|
|
function GetCustomBoardFileName: string; |
| 469 |
yoffy |
1.18 |
function GetBoardDir: string; |
| 470 |
yoffy |
1.14 |
function GetHtmlTempFileName: string; |
| 471 |
|
|
function GetAppDir: string; |
| 472 |
|
|
function GetTempFolder: string; |
| 473 |
|
|
function GetSentFileName: string; |
| 474 |
|
|
function GetConfigDir: string; |
| 475 |
|
|
function GetSkinDir: string; |
| 476 |
|
|
function GetSkinHeaderFileName: string; |
| 477 |
|
|
function GetSkinFooterFileName: string; |
| 478 |
|
|
function GetSkinResFileName: string; |
| 479 |
|
|
function GetSkinNewResFileName: string; |
| 480 |
|
|
function GetSkinBookmarkFileName: string; |
| 481 |
|
|
function GetSkinNewmarkFileName: string; |
| 482 |
|
|
function GetStyleSheetDir: string; |
| 483 |
|
|
function GetOutBoxFileName: string; |
| 484 |
yoffy |
1.15 |
function GetNGWordsDir: string; |
| 485 |
yoffy |
1.16 |
function GetBoardPlugInDir: string; |
| 486 |
h677 |
1.35 |
function GetSambaFileName: string; |
| 487 |
|
|
function GetIgnoreFileName: string; |
| 488 |
yoffy |
1.74 |
function GetGestureFileName : string; |
| 489 |
yoffy |
1.79 |
function GetSpamFilterFileName : string; |
| 490 |
h677 |
1.100 |
function GetLanguageFileName: string; |
| 491 |
h677 |
1.99 |
function GetMainKeyFileName: String; |
| 492 |
|
|
function GetEditorKeyFileName: String; |
| 493 |
h677 |
1.93 |
procedure WriteLogFolder(AVal : String); |
| 494 |
h677 |
1.102 |
function GetInputAssistFileName : String; |
| 495 |
hi_ |
1.1 |
//??篆<???????<?泣?ゃ??/span> |
| 496 |
|
|
property RecvBufferSize: Integer read FRecvBufferSize write FRecvBufferSize; |
| 497 |
|
|
//HTTP1.1篏睡??/span> |
| 498 |
|
|
property Protocol: Boolean read FProtocol write FProtocol; |
| 499 |
|
|
//???????傑・膓?HTTP1.1篏睡??/span> |
| 500 |
|
|
property ProxyProtocol: Boolean read FProxyProtocol write FProxyProtocol; |
| 501 |
|
|
|
| 502 |
|
|
property ReadProxy: Boolean read FReadProxy write FReadProxy; |
| 503 |
|
|
property ReadProxyAddress: string read FReadProxyAddress write FReadProxyAddress; |
| 504 |
|
|
property ReadProxyPort: Integer read FReadProxyPort write FReadProxyPort; |
| 505 |
|
|
property ReadProxyUserID: string read FReadProxyUserID write FReadProxyUserID; |
| 506 |
|
|
property ReadProxyPassword: string read FReadProxyPassword write FReadProxyPassword; |
| 507 |
|
|
|
| 508 |
|
|
property WriteProxy: Boolean read FWriteProxy write FWriteProxy; |
| 509 |
|
|
property WriteProxyAddress: string read FWriteProxyAddress write FWriteProxyAddress; |
| 510 |
|
|
property WriteProxyPort: Integer read FWriteProxyPort write FWriteProxyPort; |
| 511 |
|
|
property WriteProxyUserID: string read FWriteProxyUserID write FWriteProxyUserID; |
| 512 |
|
|
property WriteProxyPassword: string read FWriteProxyPassword write FWriteProxyPassword; |
| 513 |
|
|
|
| 514 |
|
|
property CabinetFontName: string read FCabinetFontName write FCabinetFontName; |
| 515 |
|
|
property CabinetFontSize: Integer read FCabinetFontSize write FCabinetFontSize; |
| 516 |
|
|
property CabinetFontBold: Boolean read FCabinetFontBold write FCabinetFontBold; |
| 517 |
|
|
property CabinetFontItalic: Boolean read FCabinetFontItalic write FCabinetFontItalic; |
| 518 |
|
|
property CabinetFontColor: TColor read FCabinetFontColor write FCabinetFontColor; |
| 519 |
|
|
property CabinetBackColor: TColor read FCabinetBackColor write FCabinetBackColor; |
| 520 |
|
|
|
| 521 |
|
|
property ListFontName: string read FListFontName write FListFontName; |
| 522 |
|
|
property ListFontSize: Integer read FListFontSize write FListFontSize; |
| 523 |
|
|
property ListFontBold: Boolean read FListFontBold write FListFontBold; |
| 524 |
|
|
property ListFontItalic: Boolean read FListFontItalic write FListFontItalic; |
| 525 |
|
|
property ListFontColor: TColor read FListFontColor write FListFontColor; |
| 526 |
|
|
property ListBackColor: TColor read FListBackColor write FListBackColor; |
| 527 |
|
|
|
| 528 |
yoffy |
1.6 |
property BrowserFontName: string read FBrowserFontName write FBrowserFontName; |
| 529 |
|
|
property BrowserFontSize: Integer read FBrowserFontSize write FBrowserFontSize; |
| 530 |
|
|
property BrowserFontBold: Integer read FBrowserFontBold write FBrowserFontBold; |
| 531 |
|
|
property BrowserFontItalic: Integer read FBrowserFontItalic write FBrowserFontItalic; |
| 532 |
|
|
property BrowserFontColor: Integer read FBrowserFontColor write FBrowserFontColor; |
| 533 |
|
|
property BrowserBackColor: Integer read FBrowserBackColor write FBrowserBackColor; |
| 534 |
hi_ |
1.1 |
|
| 535 |
|
|
property EditorFontName: string read FEditorFontName write FEditorFontName; |
| 536 |
|
|
property EditorFontSize: Integer read FEditorFontSize write FEditorFontSize; |
| 537 |
|
|
property EditorFontBold: Boolean read FEditorFontBold write FEditorFontBold; |
| 538 |
|
|
property EditorFontItalic: Boolean read FEditorFontItalic write FEditorFontItalic; |
| 539 |
|
|
property EditorFontColor: TColor read FEditorFontColor write FEditorFontColor; |
| 540 |
|
|
property EditorBackColor: TColor read FEditorBackColor write FEditorBackColor; |
| 541 |
|
|
|
| 542 |
|
|
property BrowserTabFontName: string read FBrowserTabFontName write FBrowserTabFontName; |
| 543 |
|
|
property BrowserTabFontSize: Integer read FBrowserTabFontSize write FBrowserTabFontSize; |
| 544 |
|
|
property BrowserTabFontBold: Boolean read FBrowserTabFontBold write FBrowserTabFontBold; |
| 545 |
|
|
property BrowserTabFontItalic: Boolean read FBrowserTabFontItalic write FBrowserTabFontItalic; |
| 546 |
|
|
|
| 547 |
|
|
property HintFontName: string read FHintFontName write FHintFontName; |
| 548 |
|
|
property HintFontSize: Integer read FHintFontSize write FHintFontSize; |
| 549 |
|
|
//property HintFontBold: Boolean read FHintFontBold write FHintFontBold; |
| 550 |
|
|
//property HintFontItalic: Boolean read FHintFontItalic write FHintFontItalic; |
| 551 |
|
|
property HintFontColor: TColor read FHintFontColor write FHintFontColor; |
| 552 |
|
|
property HintBackColor: TColor read FHintBackColor write FHintBackColor; |
| 553 |
|
|
|
| 554 |
|
|
property WindowTop: Integer read FWindowTop write FWindowTop; |
| 555 |
|
|
property WindowLeft: Integer read FWindowLeft write FWindowLeft; |
| 556 |
|
|
property WindowHeight: Integer read FWindowHeight write FWindowHeight; |
| 557 |
|
|
property WindowWidth: Integer read FWindowWidth write FWindowWidth; |
| 558 |
|
|
property WindowMax: Boolean read FWindowMax write FWindowMax; |
| 559 |
|
|
property ListStyle: TViewStyle read FListStyle write FListStyle; |
| 560 |
|
|
|
| 561 |
|
|
property StdToolBarVisible: Boolean read FStdToolBarVisible write FStdToolBarVisible; |
| 562 |
|
|
property AddressBarVisible: Boolean read FAddressBarVisible write FAddressBarVisible; |
| 563 |
|
|
property LinkBarVisible: Boolean read FLinkBarVisible write FLinkBarVisible; |
| 564 |
|
|
property ListToolBarVisible: Boolean read FListToolBarVisible write FListToolBarVisible; |
| 565 |
|
|
property ListNameBarVisible: Boolean read FListNameBarVisible write FListNameBarVisible; |
| 566 |
|
|
property BrowserToolBarVisible: Boolean read FBrowserToolBarVisible write FBrowserToolBarVisible; |
| 567 |
|
|
property BrowserNameBarVisible: Boolean read FBrowserNameBarVisible write FBrowserNameBarVisible; |
| 568 |
|
|
|
| 569 |
|
|
property BrowserTabVisible: Boolean read FBrowserTabVisible write FBrowserTabVisible; |
| 570 |
|
|
property BrowserTabPosition: TGikoTabPosition read FBrowserTabPosition write FBrowserTabPosition; |
| 571 |
|
|
property BrowserTabAppend: TGikoTabAppend read FBrowserTabAppend write FBrowserTabAppend; |
| 572 |
|
|
property BrowserTabStyle: TGikoTabStyle read FBrowserTabStyle write FBrowserTabStyle; |
| 573 |
|
|
|
| 574 |
|
|
property MessageBarVisible: Boolean read FMessageBarVisible write FMessageBarVisible; |
| 575 |
|
|
property MessegeBarHeight: Integer read FMessegeBarHeight write FMessegeBarHeight; |
| 576 |
|
|
|
| 577 |
|
|
property StatusBarVisible: Boolean read FStatusBarVisible write FStatusBarVisible; |
| 578 |
|
|
|
| 579 |
|
|
property CabinetVisible: Boolean read FCabinetVisible write FCabinetVisible; |
| 580 |
|
|
property CabinetWidth: Integer read FCabinetWidth write FCabinetWidth; |
| 581 |
|
|
|
| 582 |
|
|
property ListOrientation: TGikoListOrientation read FListOrientation write FListOrientation; |
| 583 |
|
|
property ListHeight: Integer read FListHeight write FListHeight; |
| 584 |
|
|
property ListHeightState: TGikoListState read FListHeightState write FListHeightState; |
| 585 |
|
|
property ListWidth: Integer read FListWidth write FListWidth; |
| 586 |
|
|
property ListWidthState: TGikoListState read FListWidthState write FListWidthState; |
| 587 |
|
|
// property ListHeightMax: Boolean read FListHeightMax write FListHeightMax; |
| 588 |
|
|
// property ListWidthMax: Boolean read FListWidthMax write FListWidthMax; |
| 589 |
|
|
|
| 590 |
|
|
property NameList: TStringList read FNameList write FNameList; |
| 591 |
|
|
property MailList: TStringList read FMailList write FMailList; |
| 592 |
|
|
property SelectTextList: TStringList read FSelectTextList write FSelectTextList; |
| 593 |
|
|
|
| 594 |
|
|
property EditWindowTop: Integer read FEditWindowTop write FEditWindowTop; |
| 595 |
|
|
property EditWindowLeft: Integer read FEditWindowLeft write FEditWindowLeft; |
| 596 |
|
|
property EditWindowHeight: Integer read FEditWindowHeight write FEditWindowHeight; |
| 597 |
|
|
property EditWindowWidth: Integer read FEditWindowWidth write FEditWindowWidth; |
| 598 |
|
|
property EditWindowMax: Boolean read FEditWindowMax write FEditWindowMax; |
| 599 |
deux |
1.20 |
property EditWindowStay: Boolean read FEditWindowStay write FEditWindowStay; |
| 600 |
h677 |
1.38 |
property EditWindowTranslucent: Boolean read FEditWindowTranslucent write FEditWindowTranslucent; |
| 601 |
hi_ |
1.1 |
|
| 602 |
|
|
property ListViewNo: Boolean read FListViewNo write FListViewNo; |
| 603 |
yoffy |
1.14 |
property UseCSS: Boolean read FUseCSS write SetUseCSS; |
| 604 |
|
|
property CSSFileName: string read FCSSFileName write SetCSSFileName; |
| 605 |
h677 |
1.97 |
property UseKatjushaType : Boolean read FUseKatjushaType write FUseKatjushaType; |
| 606 |
yoffy |
1.14 |
property UseSkin: Boolean read FUseSkin; |
| 607 |
hi_ |
1.1 |
|
| 608 |
|
|
property ShowMail: Boolean read FShowMail write FShowMail; |
| 609 |
yoffy |
1.49 |
property ResRange : Longint read FResRange write FResRange; |
| 610 |
yoffy |
1.51 |
property ResRangeHold : Boolean read FResRangeHold write FResRangeHold; |
| 611 |
yoffy |
1.55 |
property ThreadRange : TGikoThreadRange read FThreadRange write FThreadRange; |
| 612 |
hi_ |
1.1 |
property UnActivePopup: Boolean read FUnActivePopup write FUnActivePopup; |
| 613 |
yoffy |
1.2 |
property ResPopupHeaderBold: Boolean read FResPopupHeaderBold write FResPopupHeaderBold; |
| 614 |
hi_ |
1.1 |
|
| 615 |
h677 |
1.88 |
property LogFolder: string read FLogFolder write WriteLogFolder; |
| 616 |
|
|
property LogFolderP: string read FLogFolderP; |
| 617 |
hi_ |
1.1 |
property NewLogFolder: string read FNewLogFolder write FNewLogFolder; |
| 618 |
|
|
|
| 619 |
|
|
property BBSColumnWidth[index: Integer]: Integer read GetBBSColumnWidth write SetBBSColumnWidth; |
| 620 |
|
|
property CategoryColumnWidth[index: Integer]: Integer read GetCategoryColumnWidth write SetCategoryColumnWidth; |
| 621 |
|
|
property BoardColumnWidth[index: Integer]: Integer read GetBoardColumnWidth write SetBoardColumnWidth; |
| 622 |
|
|
|
| 623 |
yoffy |
1.63 |
property BBSColumnOrder : TGikoBBSColumnList read FBBSColumnOrder write FBBSColumnOrder; |
| 624 |
|
|
property CategoryColumnOrder : TGikoCategoryColumnList read FCategoryColumnOrder write FCategoryColumnOrder; |
| 625 |
|
|
property BoardColumnOrder : TGikoBoardColumnList read FBoardColumnOrder write FBoardColumnOrder; |
| 626 |
yoffy |
1.62 |
|
| 627 |
hi_ |
1.1 |
property SoundName[index: Integer]: string read GetSoundName; |
| 628 |
|
|
property SoundViewName[index: Integer]: string read GetSoundViewName; |
| 629 |
|
|
property SoundFileName[index: Integer]: string read GetSoundFileName write SetSoundFileName; |
| 630 |
|
|
|
| 631 |
q9_ |
1.46 |
property BBSSortIndex: Integer read FBBSSortIndex write FBBSSortIndex; |
| 632 |
|
|
property BBSSortOrder: Boolean read FBBSSortOrder write FBBSSortOrder; |
| 633 |
|
|
property CategorySortIndex: Integer read FCategorySortIndex write FCategorySortIndex; |
| 634 |
|
|
property CategorySortOrder: Boolean read FCategorySortOrder write FCategorySortOrder; |
| 635 |
|
|
property BoardSortIndex: Integer read FBoardSortIndex write FBoardSortIndex; |
| 636 |
|
|
property BoardSortOrder: Boolean read FBoardSortOrder write FBoardSortOrder; |
| 637 |
|
|
|
| 638 |
q9_ |
1.53 |
property DatOchiSortIndex: Integer read FDatOchiSortIndex write FDatOchiSortIndex; |
| 639 |
|
|
property DatOchiSortOrder: Boolean read FDatOchiSortOrder write FDatOchiSortOrder; |
| 640 |
|
|
|
| 641 |
h677 |
1.11 |
//property BoardURL2ch: string read FBoardURL2ch write FBoardURL2ch; |
| 642 |
|
|
property BoardURLs: TStringList read FBoardURLs write FBoardURLs; |
| 643 |
yoffy |
1.14 |
property BoardURLSelected: Integer read FBoardURLSelected write FBoardURLSelected; |
| 644 |
hi_ |
1.1 |
property UserID: string read FUserID write FUserID; |
| 645 |
|
|
property Password: string read FPassword write FPassword; |
| 646 |
|
|
property AutoLogin: Boolean read FAutoLogin write FAutoLogin; |
| 647 |
h677 |
1.38 |
property ForcedLogin: Boolean read FForcedLogin write FForcedLogin; |
| 648 |
h677 |
1.36 |
property DolibURL: string read FDolibURL write FDolibURL; |
| 649 |
hi_ |
1.1 |
|
| 650 |
|
|
property URLApp: Boolean read FURLApp write FURLApp; |
| 651 |
|
|
property URLAppFile: string read FURLAppFile write FURLAppFile; |
| 652 |
|
|
|
| 653 |
|
|
property OpenMailer: Boolean read FOpenMailer write FOpenMailer; |
| 654 |
|
|
|
| 655 |
|
|
property DeleteMsg: Boolean read FDeleteMsg write FDeleteMsg; |
| 656 |
|
|
|
| 657 |
|
|
property MainCoolSet[Index: Integer]: TCoolSet read GetMainCoolSet write SetMainCoolSet; |
| 658 |
|
|
property ListCoolSet[Index: Integer]: TCoolSet read GetBoardCoolSet write SetBoardCoolSet; |
| 659 |
|
|
property BrowserCoolSet[Index: Integer]: TCoolSet read GetBrowserCoolSet write SetBrowserCoolSet; |
| 660 |
|
|
|
| 661 |
|
|
property ListToolBarWrapable: Boolean read FListToolBarWrapable write FListToolBarWrapable; |
| 662 |
|
|
property BrowserToolBarWrapable: Boolean read FBrowserToolBarWrapable write FBrowserToolBarWrapable; |
| 663 |
|
|
|
| 664 |
|
|
property PopupPosition: TGikoPopupPosition read FPopupPosition write FPopupPosition; |
| 665 |
|
|
|
| 666 |
|
|
property URLDisplay: Boolean read FURLDisplay write FURLDisplay; |
| 667 |
|
|
property AddressBarTabStop: Boolean read FAddressBarTabStop write FAddressBarTabStop; |
| 668 |
|
|
property LinkAddAddressBar: Boolean read FLinkAddAddressBar write FLinkAddAddressBar; |
| 669 |
|
|
property AddressHistoryCount: Integer read FAddressHistoryCount write FAddressHistoryCount; |
| 670 |
|
|
|
| 671 |
|
|
property PreviewVisible: Boolean read FPreviewVisible write FPreviewVisible; |
| 672 |
|
|
property PreviewSize: TGikoPreviewSize read FPreviewSize write FPreviewSize; |
| 673 |
|
|
property PreviewWait: Integer read FPreviewWait write FPreviewWait; |
| 674 |
yoffy |
1.39 |
property BrowserAutoMaximize: TGikoBrowserAutoMaximize read FBrowserAutoMaximize write FBrowserAutoMaximize; |
| 675 |
hi_ |
1.1 |
|
| 676 |
|
|
property ListIconVisible: Boolean read FListIconVisible write FListIconVisible; |
| 677 |
h677 |
1.38 |
property CreationTimeLogs: Boolean read FCreationTimeLogs write FCreationTimeLogs; |
| 678 |
|
|
property FutureThread: Boolean read FFutureThread write FFutureThread; |
| 679 |
hi_ |
1.1 |
|
| 680 |
|
|
property UseMachineTime: Boolean read FUseMachineTime write FUseMachineTime; |
| 681 |
|
|
property TimeAdjustSec: Integer read FTimeAdjustSec write FTimeAdjustSec; |
| 682 |
|
|
property TimeAdjust: Boolean read FTimeAdjust write FTimeAdjust; |
| 683 |
h677 |
1.3 |
|
| 684 |
yoffy |
1.14 |
//???若???? |
| 685 |
|
|
property AbonDeleterlo : Boolean read FAbonDeleterlo write FAbonDeleterlo; |
| 686 |
|
|
property AbonReplaceul : Boolean read FAbonReplaceul write FAbonReplaceul; |
| 687 |
|
|
property PopUpAbon : Boolean read FPopUpAbon write FPopUpAbon; |
| 688 |
|
|
property ShowNGLinesNum : Boolean read FShowNGLinesNum write FShowNGLinesNum; |
| 689 |
|
|
property AddResAnchor : Boolean read FAddResAnchor write FAddResAnchor; |
| 690 |
h677 |
1.38 |
property DeleteSyria : Boolean read FDeleteSyria write FDeleteSyria; |
| 691 |
h677 |
1.93 |
property IgnoreKana : Boolean read FIgnoreKana write FIgnoreKana; |
| 692 |
yoffy |
1.14 |
// ?鴻??????腟?莨若???c?若??????? |
| 693 |
|
|
property SelectComboBoxWidth : Integer read FSelectComboBoxWidth write FSelectComboBoxWidth; |
| 694 |
yoffy |
1.8 |
|
| 695 |
yoffy |
1.14 |
// ??緇????御?????????????激?с?潟???ゃ?≪???違???帥?? |
| 696 |
|
|
property OptionDialogTabIndex : Integer read FOptionDialogTabIndex write FOptionDialogTabIndex; |
| 697 |
yoffy |
1.8 |
|
| 698 |
yoffy |
1.14 |
// ??緇????御???????????c???????? |
| 699 |
|
|
property CabinetIndex : Integer read FCabinetIndex write FCabinetIndex; |
| 700 |
h677 |
1.13 |
|
| 701 |
yoffy |
1.14 |
//腟?篋?????∈茯????ゃ?≪???違??茵?ず?????? |
| 702 |
|
|
property ShowDialogForEnd : Boolean read FShowDialogForEnd write FShowDialogForEnd; |
| 703 |
h677 |
1.38 |
property ShowDialogForAllTabClose: Boolean read FShowDialogForAllTabClose write FShowDialogForAllTabClose; |
| 704 |
|
|
//??緇????号?違???鴻???????????号?違???違???c??????????絽梧?????蚊?????c???蚊???????蚊??篏睡???????? |
| 705 |
|
|
property UseOddColorOddResNum: Boolean read FUseOddColorOddResNum write FUseOddColorOddResNum; |
| 706 |
|
|
property OddColor: TColor read FOddColor write FOddColor; |
| 707 |
h677 |
1.92 |
property UnFocusedBold : Boolean read FUnFocusedBold write FUnFocusedBold; |
| 708 |
h677 |
1.36 |
property UseSamba: Boolean read FUseSamba write FUseSamba; |
| 709 |
h677 |
1.81 |
property ResAnchorJamp: Boolean read FResAnchorJamp write FResAnchorJamp; |
| 710 |
yoffy |
1.40 |
|
| 711 |
|
|
// ?????c??/span> |
| 712 |
yoffy |
1.41 |
property SpaceToNBSP : Boolean read FSpaceToNBSP write FSpaceToNBSP; |
| 713 |
|
|
property AmpToCharRef : Boolean read FAmpToCharRef write FAmpToCharRef; |
| 714 |
h677 |
1.43 |
|
| 715 |
|
|
property SelectInterval : Integer read FSelectInterval write FSelectInterval; |
| 716 |
h677 |
1.67 |
//Tab篆?絖? |
| 717 |
|
|
property TabAutoLoadSave: Boolean read FTabAutoLoadSave write FTabAutoLoadSave; |
| 718 |
h677 |
1.86 |
//property Gengo: TStringList read F2chLanguage write F2chLanguage; |
| 719 |
h677 |
1.81 |
property GengoSupport : Boolean read F2chSupport write F2chSupport; |
| 720 |
h677 |
1.67 |
property KuroutSettingTabIndex: Integer read FKuroutSettingTabIndex write FKuroutSettingTabIndex; |
| 721 |
yoffy |
1.74 |
//! ?????鴻?吾?с?鴻???c??/span> |
| 722 |
|
|
property Gestures : TGestureModel read FGestures write FGestures; |
| 723 |
yoffy |
1.75 |
//! ?????鴻?吾?с?鴻???c?若??篏睡?????????????? |
| 724 |
|
|
property GestureEnabled : Boolean read FGestureEnabled write FGestureEnabled; |
| 725 |
h677 |
1.81 |
//???激?≪??????????荐?? |
| 726 |
|
|
property LocalTrapAtt : Boolean read FLocalTrapAtt write FLocalTrapAtt; |
| 727 |
|
|
property RemoteTrapAtt : Boolean read FRemoteTrapAtt write FRemoteTrapAtt; |
| 728 |
|
|
property ReadTimeOut: Integer read FReadTimeOut write FReadTimeOut; |
| 729 |
yoffy |
1.83 |
//! 篏睡???????鴻???????c????/span> |
| 730 |
|
|
property SpamFilterAlgorithm : TGikoSpamFilterAlgorithm |
| 731 |
|
|
read FSpamFilterAlgorithm write FSpamFilterAlgorithm; |
| 732 |
h677 |
1.84 |
property Mute: Boolean read FMute write FMute; |
| 733 |
h677 |
1.85 |
property UseUndecided: Boolean read FUseUndecided write FUseUndecided; |
| 734 |
genyakun |
1.87 |
|
| 735 |
|
|
property BeUserID: string read FBeUserID write FBeUserID; |
| 736 |
h677 |
1.89 |
property BeCode: string read FBeCode write FBeCode; |
| 737 |
genyakun |
1.87 |
property BeAutoLogin: Boolean read FBeAutoLogin write FBeAutoLogin; |
| 738 |
h677 |
1.91 |
property BeLogin: Boolean read FBeLogin write FBeLogin; |
| 739 |
|
|
property MaxRecordCount : Integer read FMaxRecordCount write FMaxRecordCount; |
| 740 |
h677 |
1.101 |
//! ?鴻??????筝?荀с?????潟???若??緇????鴻?????????ф?????純?若???????? |
| 741 |
|
|
property AutoSortThreadList : Boolean read FAutoSortThreadList write FAutoSortThreadList; |
| 742 |
yoffy |
1.40 |
end; |
| 743 |
hi_ |
1.1 |
|
| 744 |
|
|
|
| 745 |
h677 |
1.100 |
const |
| 746 |
|
|
// MAIN_COOLBAND_COUNT = 4; //?<?ゃ??oolBand????/span> |
| 747 |
|
|
// LIST_COOLBAND_COUNT = 2; //??oolBand????/span> |
| 748 |
|
|
// BROWSER_COOLBAND_COUNT = 3; //????????oolBand????/span> |
| 749 |
|
|
|
| 750 |
|
|
BOARD_FILE_NAME = 'board.2ch'; |
| 751 |
|
|
CUSTOMBOARD_FILE_NAME = 'custom.2ch'; |
| 752 |
|
|
BOARD_DIR_NAME = 'Board'; |
| 753 |
|
|
KEY_SETTING_FILE_NAME = 'key.ini'; |
| 754 |
|
|
EKEY_SETTING_FILE_NAME = 'Ekey.ini'; |
| 755 |
|
|
TEMP_FOLDER = 'Temp'; |
| 756 |
|
|
OUTBOX_FILE_NAME = 'outbox.ini'; |
| 757 |
|
|
SENT_FILE_NAME = 'sent.ini'; |
| 758 |
|
|
CONFIG_DIR_NAME = 'config'; |
| 759 |
|
|
CSS_DIR_NAME = 'css'; |
| 760 |
|
|
SKIN_DIR_NAME = 'skin'; |
| 761 |
|
|
SKIN_HEADER_FILE_NAME = 'Header.html'; |
| 762 |
|
|
SKIN_FOOTER_FILE_NAME = 'Footer.html'; |
| 763 |
|
|
SKIN_NEWRES_FILE_NAME = 'NewRes.html'; |
| 764 |
|
|
SKIN_RES_FILE_NAME = 'Res.html'; |
| 765 |
|
|
SKIN_BOOKMARK_FILE_NAME = 'Bookmark.html'; |
| 766 |
|
|
SKIN_NEWMARK_FILE_NAME = 'Newmark.html'; |
| 767 |
|
|
NGWORDs_DIR_NAME : String = 'NGwords'; |
| 768 |
|
|
BOARD_PLUGIN_DIR_NAME = 'BoardPlugin'; |
| 769 |
|
|
SAMBATIME_FILE_NAME : String = 'Samba.ini'; |
| 770 |
|
|
IGNORE_FILE_NAME : String = 'Ignore.txt'; |
| 771 |
|
|
// DOLIB_LOGIN_URL = '/~tora3n2c/futen.cgi'; |
| 772 |
|
|
MAX_POPUP_RES : Integer = 10; |
| 773 |
|
|
GESTURE_FILE_NAME = 'Gestures.ini'; |
| 774 |
|
|
SPAMFILTER_FILE_NAME = 'SpamFilter.ini'; |
| 775 |
h677 |
1.102 |
LANGUAGE_FILE_NAME = 'language.ini'; |
| 776 |
|
|
INPUTASSIST_FILE_NAME = 'InputAssist.ini'; |
| 777 |
h677 |
1.100 |
|
| 778 |
|
|
|
| 779 |
h677 |
1.3 |
|
| 780 |
hi_ |
1.1 |
implementation |
| 781 |
|
|
|
| 782 |
h677 |
1.99 |
uses |
| 783 |
|
|
Math, IniFiles, UCryptAuto, UBase64; |
| 784 |
|
|
|
| 785 |
hi_ |
1.1 |
type |
| 786 |
|
|
TSoundName = record |
| 787 |
|
|
Name: string; |
| 788 |
|
|
ViewName: string; |
| 789 |
|
|
FileName: string; |
| 790 |
|
|
end; |
| 791 |
|
|
|
| 792 |
|
|
const |
| 793 |
yoffy |
1.14 |
INI_FILE_NAME: string = 'gikoNavi.ini'; |
| 794 |
|
|
BOARD_URL_INI_FILE_NAME: string = 'url.ini'; |
| 795 |
|
|
DEFAULT_FONT_NAME: string = '鐚?竺 鐚違?眼?激????#39;; |
| 796 |
|
|
DEFAULT_FONT_SIZE: Integer = 9; |
| 797 |
|
|
DEFAULT_FONT_COLOR: string = 'clWindowText'; |
| 798 |
|
|
DEFAULT_WINDOW_COLOR: string = 'clWindow'; |
| 799 |
|
|
DEFAULT_TAB_FONT_NAME: string = '鐚?竺 鐚違?眼?激????#39;; |
| 800 |
|
|
DEFAULT_TAB_FONT_SIZE: Integer = 9; |
| 801 |
genyakun |
1.96 |
DEFAULT_2CH_BOARD_URL1: string = 'http://menu.2ch.net/bbsmenu.html'; |
| 802 |
yoffy |
1.14 |
GIKO_ENCRYPT_TEXT: string = 'gikoNaviEncryptText'; |
| 803 |
hi_ |
1.1 |
|
| 804 |
|
|
var |
| 805 |
|
|
SOUND_NAME: array[0..4] of TSoundName = ( |
| 806 |
yoffy |
1.14 |
(Name: 'New'; ViewName: '??緇?????'; FileName: ''), |
| 807 |
|
|
(Name: 'NewDiff'; ViewName: '??緇?????(綏???)'; FileName: ''), |
| 808 |
|
|
(Name: 'NoChange'; ViewName: '???贋??#39;; FileName: ''), |
| 809 |
|
|
// (Name: 'RoundEnd'; ViewName: '綏≦??腟?篋?(??緇?????)'; FileName: ''), |
| 810 |
|
|
// (Name: 'RoundNone'; ViewName: '綏≦??腟?篋?(??緇?????)'; FileName: ''), |
| 811 |
|
|
(Name: 'ResEnd'; ViewName: '???拷??篆≦?篋?'; FileName: ''), |
| 812 |
|
|
(Name: 'Error'; ViewName: '??????#39;; FileName: '')); |
| 813 |
hi_ |
1.1 |
|
| 814 |
yoffy |
1.63 |
constructor TGikoBBSColumnList.Create; |
| 815 |
|
|
begin |
| 816 |
|
|
inherited; |
| 817 |
|
|
end; |
| 818 |
|
|
|
| 819 |
|
|
destructor TGikoBBSColumnList.Destroy; |
| 820 |
|
|
begin |
| 821 |
|
|
inherited; |
| 822 |
|
|
end; |
| 823 |
|
|
|
| 824 |
|
|
function TGikoBBSColumnList.GetItem( index : integer ) : TGikoBBSColumnID; |
| 825 |
|
|
begin |
| 826 |
|
|
Result := TGikoBBSColumnID( inherited Items[ index ] ); |
| 827 |
|
|
end; |
| 828 |
|
|
|
| 829 |
|
|
procedure TGikoBBSColumnList.SetItem( index : integer; value : TGikoBBSColumnID); |
| 830 |
|
|
begin |
| 831 |
|
|
inherited Items[ index ] := Pointer( value ); |
| 832 |
|
|
end; |
| 833 |
|
|
|
| 834 |
|
|
function TGikoBBSColumnList.Add( value : TGikoBBSColumnID ) : Integer; |
| 835 |
|
|
begin |
| 836 |
|
|
Result := inherited Add( Pointer( value ) ); |
| 837 |
|
|
end; |
| 838 |
|
|
|
| 839 |
|
|
constructor TGikoCategoryColumnList.Create; |
| 840 |
|
|
begin |
| 841 |
|
|
inherited; |
| 842 |
|
|
end; |
| 843 |
|
|
|
| 844 |
|
|
destructor TGikoCategoryColumnList.Destroy; |
| 845 |
|
|
begin |
| 846 |
|
|
inherited; |
| 847 |
|
|
end; |
| 848 |
|
|
|
| 849 |
|
|
function TGikoCategoryColumnList.GetItem( index : integer ) : TGikoCategoryColumnID; |
| 850 |
|
|
begin |
| 851 |
|
|
Result := TGikoCategoryColumnID( inherited Items[ index ] ); |
| 852 |
|
|
end; |
| 853 |
|
|
|
| 854 |
|
|
procedure TGikoCategoryColumnList.SetItem( index : integer; value : TGikoCategoryColumnID); |
| 855 |
|
|
begin |
| 856 |
|
|
inherited Items[ index ] := Pointer( value ); |
| 857 |
|
|
end; |
| 858 |
|
|
|
| 859 |
|
|
function TGikoCategoryColumnList.Add( value : TGikoCategoryColumnID ) : Integer; |
| 860 |
|
|
begin |
| 861 |
|
|
Result := inherited Add( Pointer( value ) ); |
| 862 |
|
|
end; |
| 863 |
|
|
|
| 864 |
|
|
constructor TGikoBoardColumnList.Create; |
| 865 |
|
|
begin |
| 866 |
|
|
inherited; |
| 867 |
|
|
end; |
| 868 |
|
|
|
| 869 |
|
|
destructor TGikoBoardColumnList.Destroy; |
| 870 |
|
|
begin |
| 871 |
|
|
inherited; |
| 872 |
|
|
end; |
| 873 |
|
|
|
| 874 |
|
|
function TGikoBoardColumnList.GetItem( index : integer ) : TGikoBoardColumnID; |
| 875 |
|
|
begin |
| 876 |
|
|
Result := TGikoBoardColumnID( inherited Items[ index ] ); |
| 877 |
|
|
end; |
| 878 |
|
|
|
| 879 |
|
|
procedure TGikoBoardColumnList.SetItem( index : integer; value : TGikoBoardColumnID); |
| 880 |
|
|
begin |
| 881 |
|
|
inherited Items[ index ] := Pointer( value ); |
| 882 |
|
|
end; |
| 883 |
|
|
|
| 884 |
|
|
function TGikoBoardColumnList.Add( value : TGikoBoardColumnID ) : Integer; |
| 885 |
|
|
begin |
| 886 |
|
|
Result := inherited Add( Pointer( value ) ); |
| 887 |
|
|
end; |
| 888 |
|
|
|
| 889 |
hi_ |
1.1 |
//?潟?潟?鴻????????/span> |
| 890 |
|
|
constructor TSetting.Create(); |
| 891 |
|
|
begin |
| 892 |
|
|
FNameList := TStringList.Create; |
| 893 |
|
|
FMailList := TStringList.Create; |
| 894 |
|
|
FSelectTextList := TStringList.Create; |
| 895 |
yoffy |
1.14 |
FBoardURLs := TStringList.Create; |
| 896 |
yoffy |
1.64 |
FBBSColumnOrder := TGikoBBSColumnList.Create; |
| 897 |
|
|
FCategoryColumnOrder := TGikoCategoryColumnList.Create; |
| 898 |
|
|
FBoardColumnOrder := TGikoBoardColumnList.Create; |
| 899 |
yoffy |
1.74 |
FGestures := TGestureModel.Create; |
| 900 |
hi_ |
1.1 |
FNameList.Duplicates := dupIgnore; |
| 901 |
|
|
FMailList.Duplicates := dupIgnore; |
| 902 |
yoffy |
1.14 |
FBoardURLs.Duplicates := dupIgnore; |
| 903 |
hi_ |
1.1 |
FSelectTextList.Duplicates := dupIgnore; |
| 904 |
|
|
ReadSettingFile(); |
| 905 |
yoffy |
1.14 |
ReadBoardURLsFile(); |
| 906 |
hi_ |
1.1 |
end; |
| 907 |
|
|
|
| 908 |
|
|
//???鴻????????/span> |
| 909 |
|
|
destructor TSetting.Destroy(); |
| 910 |
|
|
begin |
| 911 |
|
|
inherited; |
| 912 |
yoffy |
1.64 |
FBoardColumnOrder.Free; |
| 913 |
|
|
FCategoryColumnOrder.Free; |
| 914 |
|
|
FBBSColumnOrder.Free; |
| 915 |
hi_ |
1.1 |
FSelectTextList.Free; |
| 916 |
yoffy |
1.14 |
FBoardURLs.Free; |
| 917 |
hi_ |
1.1 |
FMailList.Free; |
| 918 |
|
|
FNameList.Free; |
| 919 |
yoffy |
1.74 |
FGestures.Free; |
| 920 |
hi_ |
1.1 |
end; |
| 921 |
|
|
|
| 922 |
|
|
//?????????<?ゃ??????緇?鐚????刻????<?ゃ????鐚? |
| 923 |
|
|
function TSetting.GetFileName(): string; |
| 924 |
|
|
begin |
| 925 |
|
|
Result := ExtractFilePath(Application.ExeName) + INI_FILE_NAME; |
| 926 |
|
|
end; |
| 927 |
|
|
|
| 928 |
h677 |
1.11 |
//?炊?贋?亥??RL荐?????<?ゃ????鐚????刻????<?ゃ????鐚? |
| 929 |
|
|
function TSetting.GetBoardURLFileName(): string; |
| 930 |
|
|
begin |
| 931 |
|
|
Result := ExtractFilePath(Application.ExeName) + BOARD_URL_INI_FILE_NAME; |
| 932 |
|
|
end; |
| 933 |
|
|
|
| 934 |
hi_ |
1.1 |
//荐?????<?ゃ???莨?/span> |
| 935 |
|
|
procedure TSetting.ReadSettingFile(); |
| 936 |
|
|
const |
| 937 |
|
|
DEFAULT_BBS_WIDTH: array[0..0] of Integer = (140); |
| 938 |
yoffy |
1.65 |
DEFAULT_CATEGORY_WIDTH: array[0..2] of Integer = (150, 80, 130); |
| 939 |
h677 |
1.70 |
DEFAULT_BOARD_WIDTH: array[0..9] of Integer = (350, 60, 60, 60, 60, 60, 80, 130, 130, 130); |
| 940 |
q9_ |
1.30 |
MAX_WIDTH: Integer = 2000; |
| 941 |
hi_ |
1.1 |
var |
| 942 |
|
|
ini: TMemIniFile; |
| 943 |
|
|
i: Integer; |
| 944 |
yoffy |
1.64 |
id, code : Integer; |
| 945 |
hi_ |
1.1 |
wkList: TStringList; |
| 946 |
|
|
wkStr: string; |
| 947 |
|
|
Exists: Boolean; |
| 948 |
yoffy |
1.63 |
s: string; |
| 949 |
hi_ |
1.1 |
// id: Integer; |
| 950 |
|
|
CoolSet: TCoolSet; |
| 951 |
|
|
begin |
| 952 |
|
|
Exists := FileExists(GetFileName); |
| 953 |
|
|
ini := TMemIniFile.Create(GetFileName); |
| 954 |
|
|
try |
| 955 |
|
|
//??篆<???????<?泣?ゃ??/span> |
| 956 |
|
|
FRecvBufferSize := ini.ReadInteger('HTTP', 'RecvBufferSize', 4096); |
| 957 |
|
|
//HTTP1.1篏睡??/span> |
| 958 |
|
|
FProtocol := ini.ReadBool('HTTP', 'Protocol', True); |
| 959 |
|
|
//???????傑・膓?HTTP1.1篏睡??/span> |
| 960 |
|
|
FProxyProtocol := ini.ReadBool('HTTP', 'ProxyProtocol', False); |
| 961 |
|
|
|
| 962 |
|
|
FReadProxy := ini.ReadBool('ReadProxy', 'Proxy', false); |
| 963 |
|
|
FReadProxyAddress := ini.ReadString('ReadProxy', 'Address', ''); |
| 964 |
|
|
FReadProxyPort := ini.ReadInteger('ReadProxy', 'Port', 0); |
| 965 |
|
|
FReadProxyUserID := ini.ReadString('ReadProxy', 'UserID', ''); |
| 966 |
|
|
FReadProxyPassword := ini.ReadString('ReadProxy', 'Password', ''); |
| 967 |
|
|
|
| 968 |
|
|
FWriteProxy := ini.ReadBool('WriteProxy', 'Proxy', false); |
| 969 |
|
|
FWriteProxyAddress := ini.ReadString('WriteProxy', 'Address', ''); |
| 970 |
|
|
FWriteProxyPort := ini.ReadInteger('WriteProxy', 'Port', 0); |
| 971 |
|
|
FWriteProxyUserID := ini.ReadString('WriteProxy', 'UserID', ''); |
| 972 |
|
|
FWriteProxyPassword := ini.ReadString('WriteProxy', 'Password', ''); |
| 973 |
|
|
|
| 974 |
yoffy |
1.6 |
FBrowserFontName := ini.ReadString('Window', 'BrowserFontName', ''); |
| 975 |
|
|
FBrowserFontSize := ini.ReadInteger('Window', 'BrowserFontSize', 0); |
| 976 |
|
|
FBrowserFontBold := ini.ReadInteger('Window', 'BrowserFontBold', 0); |
| 977 |
|
|
FBrowserFontItalic := ini.ReadInteger('Window', 'BrowserFontItalic', 0); |
| 978 |
|
|
FBrowserFontColor := ini.ReadInteger('Window', 'BrowserFontColor', -1); |
| 979 |
|
|
FBrowserBackColor := ini.ReadInteger('Window', 'BrowserBackColor', -1); |
| 980 |
|
|
|
| 981 |
hi_ |
1.1 |
FCabinetFontName := ini.ReadString('Window', 'CabinetFontName', DEFAULT_FONT_NAME); |
| 982 |
|
|
FCabinetFontSize := ini.ReadInteger('Window', 'CabinetFontSize', DEFAULT_FONT_SIZE); |
| 983 |
|
|
FCabinetFontBold := ini.ReadBool('Window', 'CabinetFontBold', False); |
| 984 |
|
|
FCabinetFontItalic := ini.ReadBool('Window', 'CabinetFontItalic', False); |
| 985 |
|
|
FCabinetFontColor := StringToColor(ini.ReadString('Window', 'CabinetFontColor', DEFAULT_FONT_COLOR)); |
| 986 |
|
|
FCabinetBackColor := StringToColor(ini.ReadString('Window', 'CabinetBackColor', DEFAULT_WINDOW_COLOR)); |
| 987 |
|
|
|
| 988 |
|
|
FListFontName := ini.ReadString('Window', 'ListFontName', DEFAULT_FONT_NAME); |
| 989 |
|
|
FListFontSize := ini.ReadInteger('Window', 'ListFontSize', DEFAULT_FONT_SIZE); |
| 990 |
|
|
FListFontBold := ini.ReadBool('Window', 'ListFontBold', False); |
| 991 |
|
|
FListFontItalic := ini.ReadBool('Window', 'ListFontItalic', False); |
| 992 |
|
|
FListFontColor := StringToColor(ini.ReadString('Window', 'ListFontColor', DEFAULT_FONT_COLOR)); |
| 993 |
|
|
FListBackColor := StringToColor(ini.ReadString('Window', 'ListBackColor', DEFAULT_WINDOW_COLOR)); |
| 994 |
h677 |
1.92 |
FUseOddColorOddResNum := ini.ReadBool('Window','UseOddColor', False); |
| 995 |
|
|
FOddColor := StringToColor(ini.ReadString('Window', 'OddColor', DEFAULT_WINDOW_COLOR)); |
| 996 |
|
|
FUnFocusedBold := ini.ReadBool('Window','UnFocusedBold', False); |
| 997 |
hi_ |
1.1 |
|
| 998 |
|
|
FEditorFontName := ini.ReadString('Window', 'EditorFontName', DEFAULT_FONT_NAME); |
| 999 |
|
|
FEditorFontSize := ini.ReadInteger('Window', 'EditorFontSize', DEFAULT_FONT_SIZE); |
| 1000 |
|
|
FEditorFontBold := ini.ReadBool('Window', 'EditorFontBold', False); |
| 1001 |
|
|
FEditorFontItalic := ini.ReadBool('Window', 'EditorFontItalic', False); |
| 1002 |
|
|
FEditorFontColor := StringToColor(ini.ReadString('Window', 'EditorFontColor', DEFAULT_FONT_COLOR)); |
| 1003 |
|
|
FEditorBackColor := StringToColor(ini.ReadString('Window', 'EditorBackColor', DEFAULT_WINDOW_COLOR)); |
| 1004 |
|
|
|
| 1005 |
|
|
FBrowserTabFontName := ini.ReadString('Window', 'BrowserTabFontName', DEFAULT_TAB_FONT_NAME); |
| 1006 |
|
|
FBrowserTabFontSize := ini.ReadInteger('Window', 'BrowserTabFontSize', DEFAULT_TAB_FONT_SIZE); |
| 1007 |
|
|
FBrowserTabFontBold := ini.ReadBool('Window', 'BrowserTabFontBold', False); |
| 1008 |
|
|
FBrowserTabFontItalic := ini.ReadBool('Window', 'BrowserTabFontItalic', False); |
| 1009 |
|
|
|
| 1010 |
|
|
FHintFontName := ini.ReadString('Window', 'HintFontName', Screen.HintFont.Name); |
| 1011 |
|
|
FHintFontSize := ini.ReadInteger('Window', 'HintFontSize', Screen.HintFont.Size); |
| 1012 |
|
|
//FHintFontBold := ini.ReadBool('Window', 'HintFontBold', False); |
| 1013 |
|
|
//FHintFontItalic := ini.ReadBool('Window', 'HintFontItalic', False); |
| 1014 |
|
|
FHintFontColor := StringToColor(ini.ReadString('Window', 'HintFontColor', DEFAULT_FONT_COLOR)); |
| 1015 |
|
|
FHintBackColor := StringToColor(ini.ReadString('Window', 'HintBackColor', 'clInfoBk')); |
| 1016 |
|
|
|
| 1017 |
|
|
FWindowTop := ini.ReadInteger('WindowSize', 'Top', -1); |
| 1018 |
|
|
FWindowLeft := ini.ReadInteger('WindowSize', 'Left', -1); |
| 1019 |
|
|
FWindowHeight := ini.ReadInteger('WindowSize', 'Height', -1); |
| 1020 |
|
|
FWindowWidth := ini.ReadInteger('WindowSize', 'Width', -1); |
| 1021 |
|
|
FWindowMax := ini.ReadBool('WindowSize', 'Max', false); |
| 1022 |
|
|
|
| 1023 |
|
|
if FWindowHeight <= 0 then FWindowHeight := 400; |
| 1024 |
|
|
if FWindowWidth <= 0 then FWindowWidth := 600; |
| 1025 |
|
|
|
| 1026 |
|
|
FListStyle := TViewStyle(ini.ReadInteger('ViewStyle', 'ListView', Ord(vsReport))); |
| 1027 |
|
|
|
| 1028 |
|
|
FEditWindowTop := ini.ReadInteger('EditorWindowSize', 'Top', -1); |
| 1029 |
|
|
FEditWindowLeft := ini.ReadInteger('EditorWindowSize', 'Left', -1); |
| 1030 |
|
|
FEditWindowHeight := ini.ReadInteger('EditorWindowSize', 'Height', -1); |
| 1031 |
|
|
FEditWindowWidth := ini.ReadInteger('EditorWindowSize', 'Width', -1); |
| 1032 |
|
|
FEditWindowMax := ini.ReadBool('EditorWindowSize', 'Max', False); |
| 1033 |
deux |
1.20 |
FEditWindowStay := ini.ReadBool('EditorWindowSize', 'Stay', False); |
| 1034 |
genyakun |
1.48 |
FEditWindowTranslucent := ini.ReadBool('EditorWindowSize', 'Translucent', False); |
| 1035 |
hi_ |
1.1 |
|
| 1036 |
yoffy |
1.14 |
FOptionDialogTabIndex := ini.ReadInteger('OptionDialog', 'TabIndex', 0); |
| 1037 |
yoffy |
1.8 |
|
| 1038 |
hi_ |
1.1 |
//???若??????/span> |
| 1039 |
|
|
FStdToolBarVisible := ini.ReadBool('ToolBar', 'StdVisible', True); |
| 1040 |
|
|
FAddressBarVisible := ini.ReadBool('ToolBar', 'AddressVisible', True); |
| 1041 |
|
|
FLinkBarVisible := ini.ReadBool('ToolBar', 'LinkVisible', True); |
| 1042 |
|
|
FListToolBarVisible := ini.ReadBool('ToolBar', 'ListVisible', True); |
| 1043 |
|
|
FListNameBarVisible := ini.ReadBool('ToolBar', 'ListNameVisible', True); |
| 1044 |
|
|
FBrowserToolBarVisible := ini.ReadBool('ToolBar', 'BrowserVisible', True); |
| 1045 |
|
|
FBrowserNameBarVisible := ini.ReadBool('ToolBar', 'BrowserNameVisible', True); |
| 1046 |
|
|
//???若??????rapable |
| 1047 |
|
|
FListToolBarWrapable := ini.ReadBool('ToolBar', 'ListWrapable', False); |
| 1048 |
|
|
FBrowserToolBarWrapable := ini.ReadBool('ToolBar', 'BrowserWrapable', False); |
| 1049 |
|
|
|
| 1050 |
|
|
FBrowserTabVisible := ini.ReadBool('Tab', 'BrowserTabVisible', True); |
| 1051 |
|
|
FBrowserTabPosition := TGikoTabPosition(ini.ReadInteger('Tab', 'BrowserTabPosition', Ord(gtpTop))); |
| 1052 |
|
|
FBrowserTabAppend := TGikoTabAppend(ini.ReadInteger('Tab', 'BrowserTabAppend', Ord(gtaFirst))); |
| 1053 |
|
|
FBrowserTabStyle := TGikoTabStyle(ini.ReadInteger('Tab', 'BrowserTabStyle', Ord(gtsFlat))); |
| 1054 |
|
|
|
| 1055 |
|
|
FMessageBarVisible := ini.ReadBool('MessageBar', 'Visible', True); |
| 1056 |
|
|
FMessegeBarHeight := ini.ReadInteger('MessageBar', 'Height', 30); |
| 1057 |
|
|
|
| 1058 |
|
|
FStatusBarVisible := ini.ReadBool('StatusBar', 'Visible', True); |
| 1059 |
|
|
|
| 1060 |
|
|
FCabinetVisible := ini.ReadBool('Cabinet', 'Visible', True); |
| 1061 |
|
|
FCabinetWidth := ini.ReadInteger('Cabinet', 'Width', 200); |
| 1062 |
yoffy |
1.14 |
FCabinetIndex := ini.ReadInteger('Cabinet', 'Index', 0); |
| 1063 |
hi_ |
1.1 |
|
| 1064 |
|
|
FListOrientation := TGikoListOrientation(ini.ReadInteger('List', 'Orientation', Ord(gloHorizontal))); |
| 1065 |
|
|
FListHeight := ini.ReadInteger('List', 'Height', 180); |
| 1066 |
|
|
FListHeightState := TGikoListState(ini.ReadInteger('List', 'HeightState', Ord(glsNormal))); |
| 1067 |
|
|
FListWidth := ini.ReadInteger('List', 'Width', 180); |
| 1068 |
|
|
FListWidthState := TGikoListState(ini.ReadInteger('List', 'WidthState', Ord(glsNormal))); |
| 1069 |
|
|
// FListHeightMax := ini.ReadBool('List', 'HeightMax', False); |
| 1070 |
|
|
// FListWidthMax := ini.ReadBool('List', 'WidthMax', False); |
| 1071 |
|
|
|
| 1072 |
|
|
wkList := TStringList.Create; |
| 1073 |
|
|
try |
| 1074 |
|
|
ini.ReadSection('Name', wkList); |
| 1075 |
|
|
for i := 0 to wkList.Count - 1 do begin |
| 1076 |
|
|
wkStr := ini.ReadString('Name', wkList[i], ''); |
| 1077 |
|
|
if (wkStr <> '') and (FNameList.IndexOf(wkStr) = -1) then |
| 1078 |
|
|
FNameList.Add(wkStr); |
| 1079 |
|
|
end; |
| 1080 |
|
|
ini.ReadSection('Mail', wkList); |
| 1081 |
|
|
for i := 0 to wkList.Count - 1 do begin |
| 1082 |
|
|
wkStr := ini.ReadString('Mail', wkList[i], ''); |
| 1083 |
|
|
if (wkStr <> '') and (FMailList.IndexOf(wkStr) = -1) then |
| 1084 |
|
|
FMailList.Add(wkStr); |
| 1085 |
|
|
end; |
| 1086 |
|
|
ini.ReadSection('SelectText', wkList); |
| 1087 |
|
|
for i := 0 to wkList.Count - 1 do begin |
| 1088 |
|
|
wkStr := ini.ReadString('SelectText', wkList[i], ''); |
| 1089 |
|
|
if (wkStr <> '') and (FSelectTextList.IndexOf(wkStr) = -1) then |
| 1090 |
|
|
FSelectTextList.Add(wkStr); |
| 1091 |
|
|
end; |
| 1092 |
|
|
finally |
| 1093 |
|
|
wkList.Free; |
| 1094 |
|
|
end; |
| 1095 |
|
|
|
| 1096 |
yoffy |
1.64 |
// ???鴻????????綛? |
| 1097 |
hi_ |
1.1 |
wkList := TStringList.Create; |
| 1098 |
|
|
try |
| 1099 |
|
|
ini.ReadSection('BBSColumnWidth', wkList); |
| 1100 |
|
|
if Length(FBBSColumnWidth) <> wkList.Count then begin |
| 1101 |
|
|
ini.EraseSection('BBSColumnWidth'); |
| 1102 |
|
|
end; |
| 1103 |
|
|
for i := 0 to Length(FBBSColumnWidth) - 1 do begin |
| 1104 |
|
|
BBSColumnWidth[i] := ini.ReadInteger('BBSColumnWidth', 'ID' + IntToStr(i), DEFAULT_BBS_WIDTH[i]); |
| 1105 |
q9_ |
1.30 |
if BBSColumnWidth[i] > MAX_WIDTH then |
| 1106 |
|
|
BBSColumnWidth[i] := DEFAULT_BBS_WIDTH[i]; |
| 1107 |
hi_ |
1.1 |
end; |
| 1108 |
|
|
ini.ReadSection('CategoryColumnWidth', wkList); |
| 1109 |
|
|
if Length(FCategoryColumnWidth) <> wkList.Count then begin |
| 1110 |
|
|
ini.EraseSection('CategoryColumnWidth'); |
| 1111 |
|
|
end; |
| 1112 |
|
|
for i := 0 to Length(FCategoryColumnWidth) - 1 do begin |
| 1113 |
|
|
CategoryColumnWidth[i] := ini.ReadInteger('CategoryColumnWidth', 'ID' + IntToStr(i), DEFAULT_CATEGORY_WIDTH[i]); |
| 1114 |
q9_ |
1.30 |
if CategoryColumnWidth[i] > MAX_WIDTH then |
| 1115 |
|
|
CategoryColumnWidth[i] := DEFAULT_CATEGORY_WIDTH[i]; |
| 1116 |
hi_ |
1.1 |
end; |
| 1117 |
|
|
ini.ReadSection('BoardColumnWidth', wkList); |
| 1118 |
|
|
if Length(FBoardColumnWidth) <> wkList.Count then begin |
| 1119 |
|
|
ini.EraseSection('BoardColumnWidth'); |
| 1120 |
|
|
end; |
| 1121 |
|
|
for i := 0 to Length(FBoardColumnWidth) - 1 do begin |
| 1122 |
|
|
BoardColumnWidth[i] := ini.ReadInteger('BoardColumnWidth', 'ID' + IntToStr(i), DEFAULT_BOARD_WIDTH[i]); |
| 1123 |
q9_ |
1.30 |
if BoardColumnWidth[i] > MAX_WIDTH then |
| 1124 |
|
|
BoardColumnWidth[i] := DEFAULT_BOARD_WIDTH[i]; |
| 1125 |
hi_ |
1.1 |
end; |
| 1126 |
|
|
finally |
| 1127 |
|
|
wkList.Free; |
| 1128 |
|
|
end; |
| 1129 |
|
|
|
| 1130 |
yoffy |
1.64 |
// ?????眼?????鴻??????????綺?span> |
| 1131 |
|
|
wkList := TStringList.Create; |
| 1132 |
|
|
try |
| 1133 |
|
|
ini.ReadSection( 'BBSColumnOrder', wkList ); |
| 1134 |
|
|
for i := 0 to wkList.Count - 1 do begin |
| 1135 |
|
|
wkStr := ini.ReadString( 'BBSColumnOrder', 'ID' + IntToStr( i ), '' ); |
| 1136 |
|
|
Val( wkStr, id, code ); |
| 1137 |
|
|
if code = 0 then |
| 1138 |
|
|
FBBSColumnOrder.Add( TGikoBBSColumnID( id ) ); |
| 1139 |
|
|
end; |
| 1140 |
|
|
if FBBSColumnOrder.Count = 0 then begin |
| 1141 |
|
|
// 荐?????<?????т??? |
| 1142 |
|
|
for i := 0 to Integer( High( TGikoBBSColumnID ) ) do |
| 1143 |
|
|
FBBSColumnOrder.Add( TGikoBBSColumnID( i ) ); |
| 1144 |
|
|
end; |
| 1145 |
|
|
|
| 1146 |
|
|
ini.ReadSection( 'CategoryColumnOrder', wkList ); |
| 1147 |
|
|
for i := 0 to wkList.Count - 1 do begin |
| 1148 |
|
|
wkStr := ini.ReadString( 'CategoryColumnOrder', 'ID' + IntToStr( i ), '' ); |
| 1149 |
|
|
Val( wkStr, id, code ); |
| 1150 |
|
|
if code = 0 then |
| 1151 |
|
|
FCategoryColumnOrder.Add( TGikoCategoryColumnID( id ) ); |
| 1152 |
|
|
end; |
| 1153 |
|
|
if FCategoryColumnOrder.Count = 0 then begin |
| 1154 |
|
|
// 荐?????<?????т??? |
| 1155 |
|
|
for i := 0 to Integer( High( TGikoCategoryColumnID ) ) do |
| 1156 |
|
|
FCategoryColumnOrder.Add( TGikoCategoryColumnID( i ) ); |
| 1157 |
|
|
end; |
| 1158 |
|
|
|
| 1159 |
|
|
ini.ReadSection( 'BoardColumnOrder', wkList ); |
| 1160 |
|
|
for i := 0 to wkList.Count - 1 do begin |
| 1161 |
|
|
wkStr := ini.ReadString( 'BoardColumnOrder', 'ID' + IntToStr( i ), '' ); |
| 1162 |
|
|
Val( wkStr, id, code ); |
| 1163 |
|
|
if code = 0 then |
| 1164 |
|
|
FBoardColumnOrder.Add( TGikoBoardColumnID( id ) ); |
| 1165 |
|
|
end; |
| 1166 |
|
|
if FBoardColumnOrder.Count = 0 then begin |
| 1167 |
|
|
// 荐?????<?????т??? |
| 1168 |
|
|
for i := 0 to Integer( High( TGikoBoardColumnID ) ) do |
| 1169 |
|
|
FBoardColumnOrder.Add( TGikoBoardColumnID( i ) ); |
| 1170 |
|
|
end; |
| 1171 |
|
|
finally |
| 1172 |
|
|
wkList.Free; |
| 1173 |
|
|
end; |
| 1174 |
|
|
|
| 1175 |
hi_ |
1.1 |
//???鴻?????/span> |
| 1176 |
|
|
FListViewNo := ini.ReadBool('Function', 'ListViewNo', True); |
| 1177 |
|
|
//CSS |
| 1178 |
yoffy |
1.17 |
UseCSS := ini.ReadBool('CSS', 'UseCSS', True); |
| 1179 |
hi_ |
1.1 |
//CSS???<?ゃ???? |
| 1180 |
yoffy |
1.17 |
CSSFileName := ini.ReadString('CSS', 'FileName', 'default.css'); |
| 1181 |
h677 |
1.97 |
//???????????????鴻???潟??篏帥???? |
| 1182 |
|
|
FUseKatjushaType := ini.ReadBool('CSS', 'UseKatjushaType', false); |
| 1183 |
hi_ |
1.1 |
|
| 1184 |
|
|
//Mail罨?茵?ず |
| 1185 |
|
|
FShowMail := ini.ReadBool('Thread', 'ShowMail', True); |
| 1186 |
yoffy |
1.49 |
// ???壕;腓榊???/span> |
| 1187 |
|
|
if ini.ReadBool('Thread', 'OnlyAHundredRes',false) then |
| 1188 |
|
|
FResRange := 100 // ?ゃ??荐?????????/span> |
| 1189 |
|
|
else |
| 1190 |
h677 |
1.60 |
FResRange := ini.ReadInteger( 'Thread', 'ResRange', Ord( grrAll ) ); |
| 1191 |
yoffy |
1.51 |
FResRangeHold := ini.ReadBool( 'Thread', 'ResRangeHold', False ); |
| 1192 |
yoffy |
1.55 |
// ?鴻??????筝?荀ц;腓榊???/span> |
| 1193 |
|
|
FThreadRange := TGikoThreadRange( ini.ReadInteger('ThreadList', 'ThreadRange', Ord( gtrAll )) ); |
| 1194 |
yoffy |
1.2 |
//???≪?????c???????鴻???????≪????茵?ず |
| 1195 |
hi_ |
1.1 |
FUnActivePopup := ini.ReadBool('Thread', 'UnActivePopup', False); |
| 1196 |
yoffy |
1.2 |
//???鴻???????≪???????????若???若???? |
| 1197 |
|
|
FResPopupHeaderBold := ini.ReadBool('Thread', 'ResPopupHeaderBold', True); |
| 1198 |
hi_ |
1.1 |
//???ょ∈茯? |
| 1199 |
|
|
FDeleteMsg := ini.ReadBool('Function', 'LogDeleteMessage', True); |
| 1200 |
yoffy |
1.14 |
//腟?篋?腆肴? |
| 1201 |
|
|
FShowDialogForEnd := ini.ReadBool('Function','ShowDialogForEnd',false); |
| 1202 |
h677 |
1.38 |
//AllTabClose |
| 1203 |
|
|
FShowDialogForAllTabClose := ini.ReadBool('Function','ShowDialogForAllTabClose',false); |
| 1204 |
genyakun |
1.48 |
//Samba |
| 1205 |
h677 |
1.38 |
FUseSamba := ini.ReadBool('Function','UseSamba', True); |
| 1206 |
|
|
//ResAnchorjamp |
| 1207 |
|
|
ResAnchorJamp := ini.ReadBool('Function', 'ResAnchoJamp', True); |
| 1208 |
hi_ |
1.1 |
//???違???????? |
| 1209 |
h677 |
1.88 |
LogFolder := ini.ReadString('Folder', 'LogFolder', ExtractFilePath(Application.ExeName) + 'Log'); |
| 1210 |
hi_ |
1.1 |
NewLogFolder := ''; |
| 1211 |
|
|
|
| 1212 |
|
|
//??RL |
| 1213 |
yoffy |
1.14 |
//茲??亥?脂?蚊?с??????????????BoardURLs????????2003/10/05 |
| 1214 |
h677 |
1.11 |
//FBoardURL2ch := ini.ReadString('BoardURL', '2ch', DEFAULT_2CH_BOARD_URL); |
| 1215 |
hi_ |
1.1 |
|
| 1216 |
|
|
//茯?荐主?????若??D?祉???鴻???若?? |
| 1217 |
|
|
FUserID := ini.ReadString('Attestation', 'UserID', ''); |
| 1218 |
|
|
FPassword := Decrypt(ini.ReadString('Attestation', 'Password', '')); |
| 1219 |
|
|
FAutoLogin := ini.ReadBool('Attestation', 'AutoLogin', False); |
| 1220 |
h677 |
1.36 |
FForcedLogin := ini.ReadBool('Attestation', 'FForcedLogin', False); |
| 1221 |
h677 |
1.37 |
// FDolibURL := ini.ReadString('Attestation', 'FDolibURL', DOLIB_LOGIN_URL); |
| 1222 |
hi_ |
1.1 |
|
| 1223 |
|
|
//URL??????????莎桁???≪????/span> |
| 1224 |
|
|
FURLApp := ini.ReadBool('URLApp', 'Select', False); |
| 1225 |
|
|
FURLAppFile := ini.ReadString('URLApp', 'File', ''); |
| 1226 |
|
|
|
| 1227 |
|
|
//mailto????????????篏? |
| 1228 |
|
|
FOpenMailer := ini.ReadBool('Mailto', 'Open', True); |
| 1229 |
|
|
|
| 1230 |
|
|
//???????≪????篏?臀?/span> |
| 1231 |
|
|
FPopupPosition := TGikoPopupPosition(ini.ReadInteger('Browser', 'PopupPosition', Ord(gppLeftBottom))); |
| 1232 |
|
|
|
| 1233 |
|
|
//?≪?????鴻????/span> |
| 1234 |
|
|
FURLDisplay := ini.ReadBool('AddressBar', 'URLDisplay', False); |
| 1235 |
|
|
FAddressBarTabStop := ini.ReadBool('AddressBar', 'TabStop', True); |
| 1236 |
|
|
FLinkAddAddressBar := ini.ReadBool('AddressBar', 'LinkAdd', False); |
| 1237 |
|
|
FAddressHistoryCount := ini.ReadInteger('AddressBar', 'HistoryCount', 100); |
| 1238 |
|
|
|
| 1239 |
|
|
//?糸????????ャ??/span> |
| 1240 |
|
|
FPreviewVisible := ini.ReadBool('Browser', 'PreviewVisible', True); |
| 1241 |
|
|
FPreviewSize := TGikoPreviewSize(ini.ReadInteger('Browser', 'PreviewSize', Ord(gpsMedium))); |
| 1242 |
|
|
FPreviewWait := ini.ReadInteger('Browser', 'PreviewWait', 500); |
| 1243 |
|
|
|
| 1244 |
yoffy |
1.39 |
// ????????/span> |
| 1245 |
|
|
FBrowserAutoMaximize := TGikoBrowserAutoMaximize( |
| 1246 |
|
|
ini.ReadInteger('Window', 'BrowserAutoMaximize', Ord(gbmDoubleClick)) ); |
| 1247 |
|
|
|
| 1248 |
hi_ |
1.1 |
//?鴻??????筝?荀ф?贋?違?≪?ゃ?潟??/span> |
| 1249 |
|
|
FListIconVisible := ini.ReadBool('ThreadList', 'StateIconVisible', True); |
| 1250 |
q9_ |
1.44 |
FCreationTimeLogs := ini.ReadBool('ThreadList', 'CreationTimeLogs', True); |
| 1251 |
h677 |
1.43 |
FFutureThread := ini.ReadBool('ThreadList', 'FutureThread', True); |
| 1252 |
|
|
FSelectInterval := ini.ReadInteger('ThreadList', 'SelectInterval', 110); |
| 1253 |
q9_ |
1.46 |
//?純?若???? |
| 1254 |
|
|
FBBSSortIndex := ini.ReadInteger('ThreadList', 'BBSSortIndex', 0); |
| 1255 |
h677 |
1.59 |
FBBSSortOrder := ini.ReadBool('ThreadList', 'BBSSortOrder', True); |
| 1256 |
q9_ |
1.46 |
FCategorySortIndex := ini.ReadInteger('ThreadList', 'CategorySortIndex', 0); |
| 1257 |
h677 |
1.59 |
FCategorySortOrder := ini.ReadBool('ThreadList', 'CategorySortOrder', True); |
| 1258 |
q9_ |
1.46 |
FBoardSortIndex := ini.ReadInteger('ThreadList', 'BoardSortIndex', 0); |
| 1259 |
h677 |
1.59 |
FBoardSortOrder := ini.ReadBool('ThreadList', 'BoardSortOrder', True); |
| 1260 |
h677 |
1.101 |
// DL緇????????純?若?? |
| 1261 |
|
|
FAutoSortThreadList := ini.ReadBool('ThreadList', 'AutoSort', True); |
| 1262 |
q9_ |
1.53 |
//Dat?純?<?鴻???純?若???? |
| 1263 |
|
|
FDatOchiSortIndex := ini.ReadInteger('ThreadList', 'DatOchiSortIndex', -1); |
| 1264 |
|
|
FDatOchiSortOrder := ini.ReadBool('ThreadList', 'DatOchiSortOrder', False); |
| 1265 |
hi_ |
1.1 |
|
| 1266 |
|
|
//?吾??莨若?炊?????激?恰???私戎??┃絎? |
| 1267 |
|
|
FUseMachineTime := ini.ReadBool('PostTime', 'UseMachineTime', False); |
| 1268 |
|
|
FTimeAdjustSec := ini.ReadInteger('PostTime', 'TimeAdjustSec', 0); |
| 1269 |
|
|
FTimeAdjust := ini.ReadBool('PostTime', 'TimeAdjust', True); |
| 1270 |
|
|
|
| 1271 |
|
|
//?泣???潟?? |
| 1272 |
|
|
if Exists then begin |
| 1273 |
|
|
for i := 0 to GetSoundCount - 1 do begin |
| 1274 |
|
|
SoundFileName[i] := ini.ReadString('Sound', SoundName[i], ''); |
| 1275 |
|
|
if not FileExists(SoundFileName[i]) then |
| 1276 |
|
|
SoundFileName[i] := ''; |
| 1277 |
|
|
end; |
| 1278 |
|
|
end else begin |
| 1279 |
|
|
s := ExtractFileDir(Application.ExeName) + '\sound\'; |
| 1280 |
|
|
SoundFileName[0] := s + '??緇?????.wav'; |
| 1281 |
|
|
SoundFileName[1] := s + '??緇?????(綏???).wav'; |
| 1282 |
|
|
SoundFileName[2] := s + '???贋??wav'; |
| 1283 |
|
|
SoundFileName[3] := ''; |
| 1284 |
|
|
SoundFileName[4] := s + '??????wav'; |
| 1285 |
|
|
end; |
| 1286 |
|
|
|
| 1287 |
|
|
//???若??????/span> |
| 1288 |
|
|
for i := 0 to MAIN_COOLBAND_COUNT - 1 do begin |
| 1289 |
|
|
CoolSet.FCoolID := ini.ReadInteger('MainCoolBar', 'ID' + IntToStr(i), -1); |
| 1290 |
|
|
CoolSet.FCoolWidth := ini.ReadInteger('MainCoolBar', 'Width' + IntToStr(i), -1); |
| 1291 |
|
|
CoolSet.FCoolBreak := ini.ReadBool('MainCoolBar', 'Break' + IntToStr(i), False); |
| 1292 |
|
|
MainCoolSet[i] := CoolSet; |
| 1293 |
|
|
end; |
| 1294 |
yoffy |
1.14 |
FSelectComboBoxWidth := ini.ReadInteger( 'ListCoolBar', 'SelectWidth', 127 ); |
| 1295 |
hi_ |
1.1 |
for i := 0 to LIST_COOLBAND_COUNT - 1 do begin |
| 1296 |
|
|
CoolSet.FCoolID := ini.ReadInteger('ListCoolBar', 'ID' + IntToStr(i), -1); |
| 1297 |
|
|
CoolSet.FCoolWidth := ini.ReadInteger('ListCoolBar', 'Width' + IntToStr(i), -1); |
| 1298 |
|
|
CoolSet.FCoolBreak := ini.ReadBool('ListCoolBar', 'Break' + IntToStr(i), False); |
| 1299 |
yoffy |
1.2 |
ListCoolSet[i] := CoolSet; |
| 1300 |
hi_ |
1.1 |
end; |
| 1301 |
|
|
for i := 0 to BROWSER_COOLBAND_COUNT - 1 do begin |
| 1302 |
|
|
CoolSet.FCoolID := ini.ReadInteger('BrowserCoolBar', 'ID' + IntToStr(i), -1); |
| 1303 |
|
|
CoolSet.FCoolWidth := ini.ReadInteger('BrowserCoolBar', 'Width' + IntToStr(i), -1); |
| 1304 |
|
|
CoolSet.FCoolBreak := ini.ReadBool('BrowserCoolBar', 'Break' + IntToStr(i), False); |
| 1305 |
|
|
BrowserCoolSet[i] := CoolSet; |
| 1306 |
|
|
end; |
| 1307 |
h677 |
1.3 |
|
| 1308 |
yoffy |
1.14 |
//???若???? |
| 1309 |
|
|
FAbonDeleterlo := ini.ReadBool('Abon','Deleterlo',false); |
| 1310 |
|
|
FAbonReplaceul := ini.ReadBool('Abon','Replaceul',false); |
| 1311 |
|
|
FPopUpAbon := ini.ReadBool('Abon','Popup',false); |
| 1312 |
|
|
FShowNGLinesNum := ini.ReadBool('Abon','ShowNGLines',false); |
| 1313 |
|
|
FAddResAnchor := ini.ReadBool('Abon','AddResAnchor',false); |
| 1314 |
h677 |
1.93 |
FDeleteSyria := ini.ReadBool('Abon','DeleteSyria',false); |
| 1315 |
|
|
FIgnoreKana := ini.ReadBool('Abon','IgnoreKana',false); |
| 1316 |
yoffy |
1.40 |
|
| 1317 |
|
|
// ?????c??/span> |
| 1318 |
h677 |
1.73 |
FSpaceToNBSP := ini.ReadBool( 'Editor', 'SpaceToNBSP', False ); |
| 1319 |
yoffy |
1.42 |
FAmpToCharRef := ini.ReadBool( 'Editor', 'AmpToCharRef', False ); |
| 1320 |
h677 |
1.43 |
|
| 1321 |
h677 |
1.67 |
//Tab????篆?絖???茯??粋昭??/span> |
| 1322 |
|
|
FTabAutoLoadSave := ini.ReadBool('TabAuto', 'TabAutoLoadSave', False); |
| 1323 |
|
|
|
| 1324 |
|
|
FKuroutSettingTabIndex := ini.ReadInteger('OptionDialog', 'KuroutTabIndex' , 0); |
| 1325 |
genyakun |
1.47 |
|
| 1326 |
yoffy |
1.75 |
// ?????鴻?吾?с?鴻???c??/span> |
| 1327 |
|
|
FGestureEnabled := ini.ReadBool( 'Guesture', 'Enabled', False ); |
| 1328 |
genyakun |
1.77 |
|
| 1329 |
h677 |
1.81 |
//2ch荐?茯??泣?? |
| 1330 |
|
|
F2chSupport := ini.ReadBool('2chSupport', 'Support', False); |
| 1331 |
|
|
|
| 1332 |
|
|
//FusianaTrap |
| 1333 |
|
|
FLocalTrapAtt := ini.ReadBool('Trap', 'LocalTrap', False); |
| 1334 |
|
|
FRemoteTrapAtt := ini.ReadBool('Trap', 'RemoteTrap', False); |
| 1335 |
h677 |
1.82 |
FReadTimeOut := ini.ReadInteger('HTTP', 'ReadTimeOut', 10000); |
| 1336 |
genyakun |
1.77 |
|
| 1337 |
yoffy |
1.83 |
// 篏睡???????鴻???????c????/span> |
| 1338 |
|
|
FSpamFilterAlgorithm := TGikoSpamFilterAlgorithm( |
| 1339 |
|
|
ini.ReadInteger( 'Abon', 'SpamFilterAlgorithm', Ord( gsfaNone ) ) ); |
| 1340 |
h677 |
1.84 |
FMute := ini.ReadBool('Function', 'Mute', false); |
| 1341 |
h677 |
1.85 |
FUseUndecided := ini.ReadBool('ThreadList', 'UseUndecided', False); |
| 1342 |
genyakun |
1.87 |
|
| 1343 |
h677 |
1.90 |
//Be2ch |
| 1344 |
h677 |
1.91 |
//茯?荐主?????若??D?肢?荐若?潟?若?? |
| 1345 |
genyakun |
1.87 |
FBeUserID := ini.ReadString('Be', 'UserID', ''); |
| 1346 |
h677 |
1.90 |
FBeCode := Decrypt(ini.ReadString('Be', 'Code', '')); |
| 1347 |
genyakun |
1.87 |
FBeAutoLogin := ini.ReadBool('Be', 'AutoLogin', False); |
| 1348 |
h677 |
1.91 |
//絮ユ?????紊т?絖?篁倶??/span> |
| 1349 |
|
|
FMaxRecordCount := Max(ini.ReadInteger('Recode', 'Max', 100), 1); |
| 1350 |
|
|
|
| 1351 |
h677 |
1.81 |
ini.UpdateFile; |
| 1352 |
hi_ |
1.1 |
finally |
| 1353 |
|
|
ini.Free; |
| 1354 |
|
|
end; |
| 1355 |
|
|
end; |
| 1356 |
h677 |
1.11 |
//?炊?贋?亥??RL茯??粋昭??/span> |
| 1357 |
|
|
procedure TSetting.ReadBoardURLsFile(); |
| 1358 |
|
|
var |
| 1359 |
|
|
ini: TMemIniFile; |
| 1360 |
yoffy |
1.14 |
urlNum: Integer; |
| 1361 |
|
|
i : Integer; |
| 1362 |
h677 |
1.11 |
begin |
| 1363 |
yoffy |
1.14 |
if not FileExists(GetBoardURLFileName()) then |
| 1364 |
|
|
MakeURLIniFile(); |
| 1365 |
h677 |
1.11 |
ini := TMemIniFile.Create(GetBoardURLFileName()); |
| 1366 |
yoffy |
1.14 |
try |
| 1367 |
|
|
urlNum := ini.ReadInteger('URL','count',0); |
| 1368 |
|
|
BoardURLSelected := ini.ReadInteger('URL','selected',0); |
| 1369 |
|
|
for i := 0 to urlNum - 1 do begin |
| 1370 |
|
|
FBoardURLs.Append(ini.ReadString('URL',IntToStr(i+1),'')); |
| 1371 |
|
|
end; |
| 1372 |
|
|
finally |
| 1373 |
|
|
ini.Free; |
| 1374 |
|
|
end; |
| 1375 |
hi_ |
1.1 |
|
| 1376 |
h677 |
1.11 |
end; |
| 1377 |
hi_ |
1.1 |
//荐?????<?ゃ???絖?(system) |
| 1378 |
|
|
procedure TSetting.WriteSystemSettingFile(); |
| 1379 |
|
|
var |
| 1380 |
|
|
ini: TMemIniFile; |
| 1381 |
|
|
begin |
| 1382 |
|
|
ini := TMemIniFile.Create(GetFileName()); |
| 1383 |
|
|
try |
| 1384 |
|
|
//??篆<???????<?泣?ゃ??/span> |
| 1385 |
|
|
ini.WriteInteger('HTTP', 'RecvBufferSize', FRecvBufferSize); |
| 1386 |
|
|
//HTTP1.1篏睡??/span> |
| 1387 |
|
|
ini.WriteBool('HTTP', 'Protocol', FProtocol); |
| 1388 |
|
|
//???????傑・膓?HTTP1.1篏睡??/span> |
| 1389 |
|
|
ini.WriteBool('HTTP', 'ProxyProtocol', FProxyProtocol); |
| 1390 |
|
|
|
| 1391 |
|
|
ini.WriteBool('ReadProxy', 'Proxy', FReadProxy); |
| 1392 |
|
|
ini.WriteString('ReadProxy', 'Address', FReadProxyAddress); |
| 1393 |
|
|
ini.WriteInteger('ReadProxy', 'Port', FReadProxyPort); |
| 1394 |
|
|
ini.WriteString('ReadProxy', 'UserID', FReadProxyUserID); |
| 1395 |
|
|
ini.WriteString('ReadProxy', 'Password', FReadProxyPassword); |
| 1396 |
|
|
|
| 1397 |
|
|
ini.WriteBool('WriteProxy', 'Proxy', FWriteProxy); |
| 1398 |
|
|
ini.WriteString('WriteProxy', 'Address', FWriteProxyAddress); |
| 1399 |
|
|
ini.WriteInteger('WriteProxy', 'Port', FWriteProxyPort); |
| 1400 |
|
|
ini.WriteString('WriteProxy', 'UserID', FWriteProxyUserID); |
| 1401 |
|
|
ini.WriteString('WriteProxy', 'Password', FWriteProxyPassword); |
| 1402 |
|
|
|
| 1403 |
yoffy |
1.6 |
ini.WriteString('Window', 'BrowserFontName', FBrowserFontName); |
| 1404 |
|
|
ini.WriteInteger('Window', 'BrowserFontSize', FBrowserFontSize); |
| 1405 |
|
|
ini.WriteInteger('Window', 'BrowserFontSize', FBrowserFontSize); |
| 1406 |
|
|
ini.WriteInteger('Window', 'BrowserFontBold', FBrowserFontBold); |
| 1407 |
|
|
ini.WriteInteger('Window', 'BrowserFontItalic', FBrowserFontItalic); |
| 1408 |
|
|
ini.WriteInteger('Window', 'BrowserFontColor', FBrowserFontColor); |
| 1409 |
|
|
ini.WriteInteger('Window', 'BrowserBackColor', FBrowserBackColor); |
| 1410 |
|
|
|
| 1411 |
hi_ |
1.1 |
ini.WriteString('Window', 'CabinetFontName', FCabinetFontName); |
| 1412 |
|
|
ini.WriteInteger('Window', 'CabinetFontSize', FCabinetFontSize); |
| 1413 |
|
|
ini.WriteString('Window', 'CabinetFontColor', ColorToString(FCabinetFontColor)); |
| 1414 |
h677 |
1.80 |
ini.WriteBool('Window', 'CabinetFontBold', FCabinetFontBold); |
| 1415 |
|
|
ini.WriteBool('Window', 'CabinetFontItalic', FCabinetFontItalic); |
| 1416 |
hi_ |
1.1 |
ini.WriteString('Window', 'CabinetBackColor', ColorToString(FCabinetBackColor)); |
| 1417 |
|
|
|
| 1418 |
|
|
ini.WriteString('Window', 'ListFontName', FListFontName); |
| 1419 |
|
|
ini.WriteInteger('Window', 'ListFontSize', FListFontSize); |
| 1420 |
|
|
ini.WriteString('Window', 'ListFontColor', ColorToString(FListFontColor)); |
| 1421 |
|
|
ini.WriteString('Window', 'ListBackColor', ColorToString(FListBackColor)); |
| 1422 |
h677 |
1.80 |
ini.WriteBool('Window', 'ListFontBold', FListFontBold); |
| 1423 |
|
|
ini.WriteBool('Window', 'ListFontItalic', FListFontItalic); |
| 1424 |
h677 |
1.92 |
ini.WriteBool('Window','UseOddColor',FUseOddColorOddResNum); |
| 1425 |
|
|
ini.WriteString('Window', 'OddColor',ColorToString(FOddColor)); |
| 1426 |
|
|
ini.WriteBool('Window','UnFocusedBold', FUnFocusedBold); |
| 1427 |
hi_ |
1.1 |
|
| 1428 |
|
|
ini.WriteString('Window', 'EditorFontName', FEditorFontName); |
| 1429 |
|
|
ini.WriteInteger('Window', 'EditorFontSize', FEditorFontSize); |
| 1430 |
|
|
ini.WriteString('Window', 'EditorFontColor', ColorToString(FEditorFontColor)); |
| 1431 |
|
|
ini.WriteString('Window', 'EditorBackColor', ColorToString(FEditorBackColor)); |
| 1432 |
|
|
|
| 1433 |
|
|
ini.WriteString('Window', 'BrowserTabFontName', FBrowserTabFontName); |
| 1434 |
|
|
ini.WriteInteger('Window', 'BrowserTabFontSize', FBrowserTabFontSize); |
| 1435 |
|
|
ini.WriteBool('Window', 'BrowserTabFontBold', FBrowserTabFontBold); |
| 1436 |
|
|
ini.WriteBool('Window', 'BrowserTabFontItalic', FBrowserTabFontItalic); |
| 1437 |
|
|
|
| 1438 |
|
|
ini.WriteString('Window', 'HintFontName', FHintFontName); |
| 1439 |
|
|
ini.WriteInteger('Window', 'HintFontSize', FHintFontSize); |
| 1440 |
|
|
ini.WriteString('Window', 'HintFontColor', ColorToString(FHintFontColor)); |
| 1441 |
|
|
ini.WriteString('Window', 'HintBackColor', ColorToString(FHintBackColor)); |
| 1442 |
|
|
|
| 1443 |
|
|
ini.UpdateFile; |
| 1444 |
|
|
finally |
| 1445 |
|
|
ini.Free; |
| 1446 |
|
|
end; |
| 1447 |
|
|
end; |
| 1448 |
|
|
|
| 1449 |
|
|
//荐?????<?ゃ???絖?(window) |
| 1450 |
|
|
procedure TSetting.WriteWindowSettingFile(); |
| 1451 |
|
|
var |
| 1452 |
|
|
i: Integer; |
| 1453 |
|
|
ini: TMemIniFile; |
| 1454 |
|
|
CoolSet: TCoolSet; |
| 1455 |
yoffy |
1.66 |
wkList : TStringList; |
| 1456 |
hi_ |
1.1 |
begin |
| 1457 |
|
|
ini := TMemIniFile.Create(GetFileName()); |
| 1458 |
|
|
try |
| 1459 |
|
|
ini.WriteInteger('WindowSize', 'Top', WindowTop); |
| 1460 |
|
|
ini.WriteInteger('WindowSize', 'Left', WindowLeft); |
| 1461 |
|
|
ini.WriteInteger('WindowSize', 'Height', WindowHeight); |
| 1462 |
|
|
ini.WriteInteger('WindowSize', 'Width', WindowWidth); |
| 1463 |
|
|
ini.WriteBool('WindowSize', 'Max', WindowMax); |
| 1464 |
|
|
|
| 1465 |
|
|
ini.WriteInteger('ViewStyle', 'ListView', Ord(ListStyle)); |
| 1466 |
|
|
|
| 1467 |
|
|
ini.WriteInteger('EditorWindowSize', 'Top', EditWindowTop); |
| 1468 |
|
|
ini.WriteInteger('EditorWindowSize', 'Left', EditWindowLeft); |
| 1469 |
|
|
ini.WriteInteger('EditorWindowSize', 'Height', EditWindowHeight); |
| 1470 |
|
|
ini.WriteInteger('EditorWindowSize', 'Width', EditWindowWidth); |
| 1471 |
|
|
ini.WriteBool('EditorWindowSize', 'Max', EditWindowMax); |
| 1472 |
deux |
1.20 |
ini.WriteBool('EditorWindowSize', 'Stay', EditWindowStay); |
| 1473 |
yoffy |
1.34 |
ini.WriteBool('EditorWindowSize', 'Translucent', EditWindowTranslucent); |
| 1474 |
hi_ |
1.1 |
|
| 1475 |
yoffy |
1.14 |
ini.WriteInteger('OptionDialog', 'TabIndex', FOptionDialogTabIndex); |
| 1476 |
yoffy |
1.8 |
|
| 1477 |
hi_ |
1.1 |
//???若??????/span> |
| 1478 |
|
|
ini.WriteBool('ToolBar', 'StdVisible', FStdToolBarVisible); |
| 1479 |
|
|
ini.WriteBool('ToolBar', 'AddressVisible', FAddressBarVisible); |
| 1480 |
|
|
ini.WriteBool('ToolBar', 'LinkVisible', FLinkBarVisible); |
| 1481 |
|
|
ini.WriteBool('ToolBar', 'ListVisible', FListToolBarVisible); |
| 1482 |
|
|
ini.WriteBool('ToolBar', 'ListNameVisible', FListNameBarVisible); |
| 1483 |
|
|
ini.WriteBool('ToolBar', 'BrowserVisible', FBrowserToolBarVisible); |
| 1484 |
|
|
ini.WriteBool('ToolBar', 'BrowserNameVisible', FBrowserNameBarVisible); |
| 1485 |
|
|
//???若??????rapable |
| 1486 |
|
|
ini.WriteBool('ToolBar', 'ListWrapable', FListToolBarWrapable); |
| 1487 |
|
|
ini.WriteBool('ToolBar', 'BrowserWrapable', FBrowserToolBarWrapable); |
| 1488 |
|
|
|
| 1489 |
|
|
//?帥?? |
| 1490 |
|
|
ini.WriteBool('Tab', 'BrowserTabVisible', FBrowserTabVisible); |
| 1491 |
|
|
ini.WriteInteger('Tab', 'BrowserTabPosition', Ord(FBrowserTabPosition)); |
| 1492 |
|
|
ini.WriteInteger('Tab', 'BrowserTabAppend', Ord(FBrowserTabAppend)); |
| 1493 |
|
|
ini.WriteInteger('Tab', 'BrowserTabStyle', Ord(FBrowserTabStyle)); |
| 1494 |
|
|
|
| 1495 |
|
|
//?<???祉?若?吾????/span> |
| 1496 |
|
|
ini.WriteBool('MessageBar', 'Visible', FMessageBarVisible); |
| 1497 |
|
|
ini.WriteInteger('MessageBar', 'Height', FMessegeBarHeight); |
| 1498 |
|
|
|
| 1499 |
|
|
//?鴻???若?帥?鴻????/span> |
| 1500 |
|
|
ini.WriteBool('StatusBar', 'Visible', FStatusBarVisible); |
| 1501 |
|
|
|
| 1502 |
|
|
//???c???????? |
| 1503 |
|
|
ini.WriteBool('Cabinet', 'Visible', FCabinetVisible); |
| 1504 |
|
|
ini.WriteInteger('Cabinet', 'Width', FCabinetWidth); |
| 1505 |
yoffy |
1.14 |
ini.WriteInteger('Cabinet', 'Index', FCabinetIndex); |
| 1506 |
hi_ |
1.1 |
|
| 1507 |
|
|
//???鴻?????泣?ゃ?冴?????贋梓綛?/span> |
| 1508 |
|
|
ini.WriteInteger('List', 'Orientation', Ord(FListOrientation)); |
| 1509 |
|
|
ini.WriteInteger('List', 'Height', FListHeight); |
| 1510 |
|
|
ini.WriteInteger('List', 'HeightState', Ord(FListHeightState)); |
| 1511 |
|
|
ini.WriteInteger('List', 'Width', FListWidth); |
| 1512 |
|
|
ini.WriteInteger('List', 'WidthState', Ord(FListWidthState)); |
| 1513 |
|
|
// ini.WriteBool('List', 'HeightMax', FListHeightMax); |
| 1514 |
|
|
// ini.WriteBool('List', 'WidthMax', FListWidthMax); |
| 1515 |
|
|
|
| 1516 |
|
|
|
| 1517 |
|
|
// ini.WriteInteger('Window', 'BrowserFontSize', BrowserFontSize); |
| 1518 |
|
|
|
| 1519 |
|
|
//???鴻????埈;腓?/span> |
| 1520 |
|
|
ini.WriteBool('Function', 'ListViewNo', FListViewNo); |
| 1521 |
|
|
//CSS篏睡??/span> |
| 1522 |
|
|
ini.WriteBool('CSS', 'UseCSS', FUseCSS); |
| 1523 |
h677 |
1.97 |
//???????????????鴻???潟??篏帥???? |
| 1524 |
|
|
ini.WriteBool('CSS', 'UseKatjushaType', FUseKatjushaType); |
| 1525 |
hi_ |
1.1 |
//CSS???<?ゃ???? |
| 1526 |
|
|
ini.WriteString('CSS', 'FileName', FCSSFileName); |
| 1527 |
|
|
//Mail罨?茵?ず |
| 1528 |
|
|
ini.WriteBool('Thread', 'ShowMail', FShowMail); |
| 1529 |
yoffy |
1.49 |
// ???壕;腓榊???/span> |
| 1530 |
yoffy |
1.58 |
ini.DeleteKey( 'Thread', 'OnlyAHundredRes' ); // ?ゃ??荐????????/span> |
| 1531 |
yoffy |
1.49 |
ini.WriteInteger('Thread', 'ResRange', FResRange); |
| 1532 |
yoffy |
1.51 |
ini.WriteBool('Thread', 'ResRangeHold', FResRangeHold); |
| 1533 |
yoffy |
1.55 |
// ?鴻??????筝?荀ц;腓榊???/span> |
| 1534 |
|
|
ini.WriteInteger('ThreadList', 'ThreadRange', Ord( FThreadRange )); |
| 1535 |
hi_ |
1.1 |
//???医???ょ∈茯? |
| 1536 |
|
|
ini.WriteBool('Function', 'LogDeleteMessage', FDeleteMsg); |
| 1537 |
yoffy |
1.14 |
//腟?篋?腆肴? |
| 1538 |
|
|
ini.WriteBool('Function','ShowDialogForEnd',FShowDialogForEnd); |
| 1539 |
h677 |
1.38 |
//AllTabClose |
| 1540 |
|
|
ini.WriteBool('Function','ShowDialogForAllTabClose', FShowDialogForAllTabClose); |
| 1541 |
yoffy |
1.34 |
//Samba |
| 1542 |
|
|
ini.WriteBool('Function','UseSamba', FUseSamba); |
| 1543 |
h677 |
1.38 |
//ResAnchorjamp |
| 1544 |
|
|
ini.WriteBool('Function', 'ResAnchoJamp', ResAnchorJamp); |
| 1545 |
h677 |
1.33 |
|
| 1546 |
hi_ |
1.1 |
//???≪?????c???????????≪????茵?ず |
| 1547 |
|
|
ini.WriteBool('Thread', 'UnActivePopup', FUnActivePopup); |
| 1548 |
yoffy |
1.2 |
//???鴻???????≪???????????若???若???? |
| 1549 |
|
|
ini.WriteBool('Thread', 'ResPopupHeaderBold', FResPopupHeaderBold); |
| 1550 |
h677 |
1.11 |
//ini.WriteString('BoardURL', '2ch', FBoardURL2ch); |
| 1551 |
hi_ |
1.1 |
|
| 1552 |
|
|
//茯?荐主?????若??D?祉???鴻???若?? |
| 1553 |
|
|
ini.WriteString('Attestation', 'UserID', FUserID); |
| 1554 |
|
|
ini.WriteString('Attestation', 'Password', Encrypt(FPassword)); |
| 1555 |
|
|
ini.WriteBool('Attestation', 'AutoLogin', FAutoLogin); |
| 1556 |
h677 |
1.36 |
ini.WriteBool('Attestation', 'FForcedLogin', FForcedLogin); |
| 1557 |
|
|
ini.WriteString('Attestation', 'FDolibURL', FDolibURL); |
| 1558 |
hi_ |
1.1 |
|
| 1559 |
|
|
//URL??????????莎桁???≪????/span> |
| 1560 |
|
|
ini.WriteBool('URLApp', 'Select', FURLApp); |
| 1561 |
|
|
ini.WriteString('URLApp', 'File', FURLAppFile); |
| 1562 |
|
|
|
| 1563 |
|
|
//mailto????????????篏? |
| 1564 |
|
|
ini.WriteBool('Mailto', 'Open', FOpenMailer); |
| 1565 |
|
|
|
| 1566 |
|
|
//???????≪????篏?臀?/span> |
| 1567 |
|
|
ini.WriteInteger('Browser', 'PopupPosition', Ord(FPopupPosition)); |
| 1568 |
|
|
|
| 1569 |
|
|
//?≪?????鴻????/span> |
| 1570 |
|
|
ini.WriteBool('AddressBar', 'URLDisplay', FURLDisplay); |
| 1571 |
|
|
ini.WriteBool('AddressBar', 'TabStop', FAddressBarTabStop); |
| 1572 |
|
|
ini.WriteBool('AddressBar', 'LinkAdd', FLinkAddAddressBar); |
| 1573 |
|
|
ini.WriteInteger('AddressBar', 'HistoryCount', FAddressHistoryCount); |
| 1574 |
|
|
|
| 1575 |
|
|
//?糸????????ャ??/span> |
| 1576 |
|
|
ini.WriteBool('Browser', 'PreviewVisible', FPreviewVisible); |
| 1577 |
|
|
ini.WriteInteger('Browser', 'PreviewSize', Ord(FPreviewSize)); |
| 1578 |
|
|
ini.WriteInteger('Browser', 'PreviewWait', FPreviewWait); |
| 1579 |
yoffy |
1.61 |
|
| 1580 |
|
|
ini.WriteInteger('Window', 'BrowserAutoMaximize', Ord( BrowserAutoMaximize ) ); |
| 1581 |
hi_ |
1.1 |
|
| 1582 |
|
|
//?鴻??????筝?荀ф?贋?違?≪?ゃ?潟??/span> |
| 1583 |
|
|
ini.WriteBool('ThreadList', 'StateIconVisible', FListIconVisible); |
| 1584 |
yoffy |
1.34 |
ini.WriteBool('ThreadList', 'CreationTimeLogs',FCreationTimeLogs); |
| 1585 |
|
|
ini.WriteBool('ThreadList', 'FutureThread', FFutureThread); |
| 1586 |
q9_ |
1.44 |
ini.WriteInteger('ThreadList', 'SelectInterval', FSelectInterval); |
| 1587 |
q9_ |
1.46 |
//?純?若???? |
| 1588 |
|
|
ini.WriteInteger('ThreadList', 'BBSSortIndex', FBBSSortIndex); |
| 1589 |
|
|
ini.WriteBool('ThreadList', 'BBSSortOrder', FBBSSortOrder); |
| 1590 |
|
|
ini.WriteInteger('ThreadList', 'CategorySortIndex', FCategorySortIndex); |
| 1591 |
|
|
ini.WriteBool('ThreadList', 'CategorySortOrder', FCategorySortOrder); |
| 1592 |
|
|
ini.WriteInteger('ThreadList', 'BoardSortIndex', FBoardSortIndex); |
| 1593 |
|
|
ini.WriteBool('ThreadList', 'BoardSortOrder', FBoardSortOrder); |
| 1594 |
q9_ |
1.53 |
ini.WriteInteger('ThreadList', 'DatOchiSortIndex', FDatOchiSortIndex); |
| 1595 |
|
|
ini.WriteBool('ThreadList', 'DatOchiSortOrder', FDatOchiSortOrder); |
| 1596 |
h677 |
1.101 |
// DL緇????????純?若?? |
| 1597 |
|
|
ini.WriteBool('ThreadList', 'AutoSort', FAutoSortThreadList); |
| 1598 |
hi_ |
1.1 |
|
| 1599 |
|
|
//?吾??莨若?炊?????激?恰???私戎??┃絎? |
| 1600 |
|
|
ini.WriteBool('PostTime', 'UseMachineTime', FUseMachineTime); |
| 1601 |
|
|
ini.WriteInteger('PostTime', 'TimeAdjustSec', FTimeAdjustSec); |
| 1602 |
|
|
ini.WriteBool('PostTime', 'TimeAdjust', FTimeAdjust); |
| 1603 |
|
|
|
| 1604 |
yoffy |
1.64 |
// ???鴻????????綛? |
| 1605 |
hi_ |
1.1 |
for i := 0 to Length(FBBSColumnWidth) - 1 do begin |
| 1606 |
|
|
ini.WriteInteger('BBSColumnWidth', 'ID' + IntToStr(i), FBBSColumnWidth[i]); |
| 1607 |
|
|
end; |
| 1608 |
|
|
for i := 0 to Length(FCategoryColumnWidth) - 1 do begin |
| 1609 |
|
|
ini.WriteInteger('CategoryColumnWidth', 'ID' + IntToStr(i), FCategoryColumnWidth[i]); |
| 1610 |
|
|
end; |
| 1611 |
|
|
for i := 0 to Length(FBoardColumnWidth) - 1 do begin |
| 1612 |
|
|
ini.WriteInteger('BoardColumnWidth', 'ID' + IntToStr(i), FBoardColumnWidth[i]); |
| 1613 |
|
|
end; |
| 1614 |
|
|
|
| 1615 |
yoffy |
1.66 |
wkList := TStringList.Create; |
| 1616 |
|
|
try |
| 1617 |
|
|
// ?????眼?????鴻????綺?span> |
| 1618 |
|
|
ini.ReadSection( 'BBSColumnOrder', wkList ); |
| 1619 |
|
|
for i := wkList.Count - 1 downto 0 do |
| 1620 |
|
|
ini.DeleteKey( 'BBSColumnOrder', wkList[ i ] ); |
| 1621 |
|
|
for i := 0 to FBBSColumnOrder.Count - 1 do |
| 1622 |
|
|
ini.WriteInteger( 'BBSColumnOrder', 'ID' + IntToStr( i ), Ord( FBBSColumnOrder[ i ] ) ); |
| 1623 |
|
|
|
| 1624 |
|
|
// ?帥???鴻????綺?span> |
| 1625 |
|
|
ini.ReadSection( 'CategoryColumnOrder', wkList ); |
| 1626 |
|
|
for i := wkList.Count - 1 downto 0 do |
| 1627 |
|
|
ini.DeleteKey( 'CategoryColumnOrder', wkList[ i ] ); |
| 1628 |
|
|
for i := 0 to FCategoryColumnOrder.Count - 1 do |
| 1629 |
|
|
ini.WriteInteger( 'CategoryColumnOrder', 'ID' + IntToStr( i ), Ord( FCategoryColumnOrder[ i ] ) ); |
| 1630 |
|
|
|
| 1631 |
|
|
// ?鴻?????鴻????綺?span> |
| 1632 |
|
|
ini.ReadSection( 'BoardColumnOrder', wkList ); |
| 1633 |
|
|
for i := wkList.Count - 1 downto 0 do |
| 1634 |
|
|
ini.DeleteKey( 'BoardColumnOrder', wkList[ i ] ); |
| 1635 |
|
|
for i := 0 to FBoardColumnOrder.Count - 1 do |
| 1636 |
|
|
ini.WriteInteger( 'BoardColumnOrder', 'ID' + IntToStr( i ), Ord( FBoardColumnOrder[ i ] ) ); |
| 1637 |
|
|
finally |
| 1638 |
|
|
wkList.Free; |
| 1639 |
|
|
end; |
| 1640 |
yoffy |
1.64 |
|
| 1641 |
hi_ |
1.1 |
//?泣???潟?? |
| 1642 |
|
|
for i := 0 to GetSoundCount - 1 do begin |
| 1643 |
|
|
if not FileExists(SoundFileName[i]) then |
| 1644 |
|
|
SoundFileName[i] := ''; |
| 1645 |
|
|
ini.WriteString('Sound', SoundName[i], SoundFileName[i]); |
| 1646 |
|
|
end; |
| 1647 |
|
|
|
| 1648 |
|
|
//CoolBar |
| 1649 |
|
|
ini.EraseSection('MainCoolBar'); |
| 1650 |
|
|
for i := 0 to MAIN_COOLBAND_COUNT - 1 do begin |
| 1651 |
|
|
CoolSet := MainCoolSet[i]; |
| 1652 |
|
|
ini.WriteInteger('MainCoolBar', 'ID' + IntToStr(i), CoolSet.FCoolID); |
| 1653 |
|
|
ini.WriteInteger('MainCoolBar', 'Width' + IntToStr(i), CoolSet.FCoolWidth); |
| 1654 |
|
|
ini.WriteBool('MainCoolBar', 'Break' + IntToStr(i), CoolSet.FCoolBreak); |
| 1655 |
|
|
end; |
| 1656 |
yoffy |
1.2 |
ini.EraseSection('ListCoolBar'); |
| 1657 |
yoffy |
1.14 |
ini.WriteInteger( 'ListCoolBar', 'SelectWidth', FSelectComboBoxWidth ); |
| 1658 |
hi_ |
1.1 |
for i := 0 to LIST_COOLBAND_COUNT - 1 do begin |
| 1659 |
|
|
CoolSet := ListCoolSet[i]; |
| 1660 |
|
|
ini.WriteInteger('ListCoolBar', 'ID' + IntToStr(i), CoolSet.FCoolID); |
| 1661 |
|
|
ini.WriteInteger('ListCoolBar', 'Width' + IntToStr(i), CoolSet.FCoolWidth); |
| 1662 |
|
|
ini.WriteBool('ListCoolBar', 'Break' + IntToStr(i), CoolSet.FCoolBreak); |
| 1663 |
|
|
end; |
| 1664 |
|
|
ini.EraseSection('BrowserCoolBar'); |
| 1665 |
|
|
for i := 0 to BROWSER_COOLBAND_COUNT - 1 do begin |
| 1666 |
|
|
CoolSet := BrowserCoolSet[i]; |
| 1667 |
|
|
ini.WriteInteger('BrowserCoolBar', 'ID' + IntToStr(i), CoolSet.FCoolID); |
| 1668 |
|
|
ini.WriteInteger('BrowserCoolBar', 'Width' + IntToStr(i), CoolSet.FCoolWidth); |
| 1669 |
|
|
ini.WriteBool('BrowserCoolBar', 'Break' + IntToStr(i), CoolSet.FCoolBreak); |
| 1670 |
|
|
end; |
| 1671 |
h677 |
1.3 |
|
| 1672 |
h677 |
1.9 |
//???若???? |
| 1673 |
|
|
ini.WriteBool('Abon','Deleterlo',FAbonDeleterlo); |
| 1674 |
|
|
ini.WriteBool('Abon','Replaceul',FAbonReplaceul); |
| 1675 |
h677 |
1.93 |
ini.WriteBool('Abon','Popup',FPopUpAbon); |
| 1676 |
h677 |
1.9 |
ini.WriteBool('Abon','ShowNGLines',FShowNGLinesNum); |
| 1677 |
|
|
ini.WriteBool('Abon','AddResAnchor',FAddResAnchor); |
| 1678 |
h677 |
1.93 |
ini.WriteBool('Abon','DeleteSyria',FDeleteSyria); |
| 1679 |
|
|
ini.WriteBool('Abon','IgnoreKana', FIgnoreKana); |
| 1680 |
yoffy |
1.40 |
|
| 1681 |
|
|
// ?????c??/span> |
| 1682 |
|
|
ini.WriteBool( 'Editor', 'SpaceToNBSP', FSpaceToNBSP ); |
| 1683 |
yoffy |
1.41 |
ini.WriteBool( 'Editor', 'AmpToCharRef', FAmpToCharRef ); |
| 1684 |
hi_ |
1.1 |
|
| 1685 |
genyakun |
1.71 |
//?帥??????篆?絖? |
| 1686 |
h677 |
1.67 |
ini.WriteBool('TabAuto', 'TabAutoLoadSave', FTabAutoLoadSave); |
| 1687 |
genyakun |
1.71 |
//荅括完荐?? |
| 1688 |
|
|
ini.WriteInteger('OptionDialog', 'KuroutTabIndex', FKuroutSettingTabIndex); |
| 1689 |
h677 |
1.67 |
|
| 1690 |
genyakun |
1.71 |
//???<????茯?罅???罘???/span> |
| 1691 |
genyakun |
1.77 |
ini.WriteBool('2chSupport', 'Support', F2chSupport); |
| 1692 |
genyakun |
1.52 |
|
| 1693 |
yoffy |
1.75 |
// ?????鴻?吾?с?鴻???c?若??篏睡?????????????? |
| 1694 |
|
|
ini.WriteBool( 'Guesture', 'Enabled', FGestureEnabled ); |
| 1695 |
|
|
|
| 1696 |
h677 |
1.81 |
//FusianaTrap |
| 1697 |
|
|
ini.WriteBool('Trap', 'LocalTrap', FLocalTrapAtt); |
| 1698 |
|
|
ini.WriteBool('Trap', 'RemoteTrap', FRemoteTrapAtt); |
| 1699 |
|
|
ini.WriteInteger('HTTP', 'ReadTimeOut', FReadTimeOut); |
| 1700 |
yoffy |
1.83 |
|
| 1701 |
|
|
// 篏睡???????鴻???????c????/span> |
| 1702 |
|
|
ini.WriteInteger( 'Abon', 'SpamFilterAlgorithm', Ord( FSpamFilterAlgorithm ) ); |
| 1703 |
genyakun |
1.87 |
ini.WriteBool('Function', 'Mute', FMute); |
| 1704 |
|
|
ini.WriteBool('ThreadList', 'UseUndecided', FUseUndecided); |
| 1705 |
|
|
|
| 1706 |
|
|
//茯?荐主?????若??D?祉???鴻???若?? |
| 1707 |
|
|
ini.WriteString('Be', 'UserID', FBeUserID); |
| 1708 |
h677 |
1.90 |
ini.WriteString('Be', 'Code', Encrypt(FBeCode)); |
| 1709 |
genyakun |
1.87 |
ini.WriteBool('Be', 'AutoLogin', FBeAutoLogin); |
| 1710 |
|
|
|
| 1711 |
h677 |
1.91 |
//絮ユ?????紊т?絖?篁倶??/span> |
| 1712 |
|
|
ini.WriteInteger('Recode', 'Max', FMaxRecordCount); |
| 1713 |
|
|
|
| 1714 |
h677 |
1.81 |
ini.UpdateFile; |
| 1715 |
hi_ |
1.1 |
finally |
| 1716 |
|
|
ini.Free; |
| 1717 |
|
|
end; |
| 1718 |
|
|
end; |
| 1719 |
|
|
|
| 1720 |
|
|
//荐?????<?ゃ???絖?(name & mail) |
| 1721 |
|
|
procedure TSetting.WriteNameMailSettingFile(); |
| 1722 |
|
|
var |
| 1723 |
|
|
i: Integer; |
| 1724 |
|
|
ini: TMemIniFile; |
| 1725 |
|
|
begin |
| 1726 |
|
|
ini := TMemIniFile.Create(GetFileName()); |
| 1727 |
|
|
try |
| 1728 |
|
|
ini.EraseSection('Name'); |
| 1729 |
|
|
ini.EraseSection('Mail'); |
| 1730 |
|
|
ini.EraseSection('SelectText'); |
| 1731 |
|
|
for i := 0 to FNameList.Count - 1 do begin |
| 1732 |
|
|
ini.WriteString('Name', Format('%.2d', [i + 1]), FNameList[i]); |
| 1733 |
|
|
if i >= 39 then |
| 1734 |
|
|
Break; |
| 1735 |
|
|
end; |
| 1736 |
|
|
for i := 0 to FMailList.Count - 1 do begin |
| 1737 |
|
|
ini.WriteString('Mail', Format('%.2d', [i + 1]), FMailList[i]); |
| 1738 |
|
|
if i >= 39 then |
| 1739 |
|
|
Break; |
| 1740 |
|
|
end; |
| 1741 |
|
|
for i := 0 to FSelectTextList.Count - 1 do begin |
| 1742 |
|
|
ini.WriteString('SelectText', Format('%.2d', [i + 1]), FSelectTextList[i]); |
| 1743 |
|
|
if i >= 39 then |
| 1744 |
|
|
Break; |
| 1745 |
|
|
end; |
| 1746 |
|
|
ini.UpdateFile; |
| 1747 |
|
|
finally |
| 1748 |
|
|
ini.Free; |
| 1749 |
|
|
end; |
| 1750 |
|
|
end; |
| 1751 |
|
|
|
| 1752 |
|
|
procedure TSetting.WriteFolderSettingFile(); |
| 1753 |
|
|
var |
| 1754 |
|
|
ini: TMemIniFile; |
| 1755 |
|
|
begin |
| 1756 |
|
|
ini := TMemIniFile.Create(GetFileName()); |
| 1757 |
|
|
try |
| 1758 |
|
|
if ExtractFilePath(Application.ExeName) + 'Log' = NewLogFolder then |
| 1759 |
|
|
ini.DeleteKey('Folder', 'LogFolder') |
| 1760 |
|
|
else |
| 1761 |
|
|
ini.WriteString('Folder', 'LogFolder', NewLogFolder); |
| 1762 |
|
|
ini.UpdateFile; |
| 1763 |
|
|
finally |
| 1764 |
|
|
ini.Free; |
| 1765 |
|
|
end; |
| 1766 |
|
|
end; |
| 1767 |
h677 |
1.11 |
//?炊?贋?亥??oardURL??篆?絖? |
| 1768 |
|
|
procedure TSetting.WriteBoardURLSettingFile(); |
| 1769 |
|
|
var |
| 1770 |
|
|
ini: TMemIniFile; |
| 1771 |
yoffy |
1.14 |
i : Integer; |
| 1772 |
|
|
oldcount : Integer; |
| 1773 |
h677 |
1.11 |
begin |
| 1774 |
|
|
ini := TMemIniFile.Create(GetBoardURLFileName()); |
| 1775 |
|
|
try |
| 1776 |
yoffy |
1.14 |
oldcount := ini.ReadInteger('URL','count',FBoardURLs.Count); |
| 1777 |
|
|
ini.WriteInteger('URL','count',FBoardURLs.Count); |
| 1778 |
|
|
ini.WriteInteger('URL','selected',BoardURLSelected); |
| 1779 |
|
|
for i := 0 to FBoardURLs.Count -1 do begin |
| 1780 |
|
|
ini.WriteString('URL',IntToStr(i+1),FBoardURLs.Strings[i]); |
| 1781 |
|
|
end; |
| 1782 |
|
|
if oldcount > FBoardURLs.Count then begin |
| 1783 |
|
|
for i := FBoardURLs.Count to oldcount do begin |
| 1784 |
|
|
ini.DeleteKey('URL',IntToStr(i+1)); |
| 1785 |
|
|
end; |
| 1786 |
|
|
end; |
| 1787 |
h677 |
1.11 |
ini.UpdateFile; |
| 1788 |
|
|
finally |
| 1789 |
|
|
ini.Free; |
| 1790 |
|
|
end; |
| 1791 |
|
|
end; |
| 1792 |
hi_ |
1.1 |
|
| 1793 |
yoffy |
1.28 |
{$R-} |
| 1794 |
hi_ |
1.1 |
//???鴻????????????????/span> |
| 1795 |
|
|
function TSetting.GetBBSColumnWidth(index: Integer): Integer; |
| 1796 |
|
|
begin |
| 1797 |
|
|
Result := IfThen(index in [0..Length(FBBSColumnWidth) - 1], FBBSColumnWidth[index], 0); |
| 1798 |
|
|
end; |
| 1799 |
|
|
|
| 1800 |
|
|
function TSetting.GetCategoryColumnWidth(index: Integer): Integer; |
| 1801 |
|
|
begin |
| 1802 |
|
|
Result := IfThen(index in [0..Length(FCategoryColumnWidth) - 1], FCategoryColumnWidth[index], 0); |
| 1803 |
|
|
end; |
| 1804 |
|
|
|
| 1805 |
|
|
function TSetting.GetBoardColumnWidth(index: Integer): Integer; |
| 1806 |
|
|
begin |
| 1807 |
|
|
Result := IfThen(index in [0..Length(FBoardColumnWidth) - 1], FBoardColumnWidth[index], 0); |
| 1808 |
|
|
end; |
| 1809 |
yoffy |
1.28 |
{$IFDEF DEBUG} |
| 1810 |
|
|
{$R+} |
| 1811 |
|
|
{$ENDIF} |
| 1812 |
hi_ |
1.1 |
|
| 1813 |
|
|
procedure TSetting.SetBBSColumnWidth(index: Integer; value: Integer); |
| 1814 |
|
|
begin |
| 1815 |
|
|
if index in [0..Length(FBBSColumnWidth) - 1] then |
| 1816 |
|
|
FBBSColumnWidth[index] := value; |
| 1817 |
|
|
end; |
| 1818 |
|
|
|
| 1819 |
|
|
procedure TSetting.SetCategoryColumnWidth(index: Integer; value: Integer); |
| 1820 |
|
|
begin |
| 1821 |
|
|
if index in [0..Length(FCategoryColumnWidth) - 1] then |
| 1822 |
|
|
FCategoryColumnWidth[index] := value; |
| 1823 |
|
|
end; |
| 1824 |
|
|
|
| 1825 |
|
|
procedure TSetting.SetBoardColumnWidth(index: Integer; value: Integer); |
| 1826 |
|
|
begin |
| 1827 |
|
|
if index in [0..Length(FBoardColumnWidth) - 1] then |
| 1828 |
|
|
FBoardColumnWidth[index] := value; |
| 1829 |
|
|
end; |
| 1830 |
|
|
|
| 1831 |
|
|
function TSetting.GetSoundCount: Integer; |
| 1832 |
|
|
begin |
| 1833 |
|
|
Result := Length(SOUND_NAME); |
| 1834 |
|
|
end; |
| 1835 |
|
|
|
| 1836 |
|
|
function TSetting.GetSoundName(Index: Integer): string; |
| 1837 |
|
|
begin |
| 1838 |
|
|
if (Index < GetSoundCount) and (Index >= 0) then |
| 1839 |
|
|
Result := SOUND_NAME[Index].Name |
| 1840 |
|
|
else |
| 1841 |
|
|
Result := ''; |
| 1842 |
|
|
end; |
| 1843 |
|
|
|
| 1844 |
|
|
function TSetting.GetSoundViewName(Index: Integer): string; |
| 1845 |
|
|
begin |
| 1846 |
|
|
if (Index < GetSoundCount) and (Index >= 0) then |
| 1847 |
|
|
Result := SOUND_NAME[Index].ViewName |
| 1848 |
|
|
else |
| 1849 |
|
|
Result := ''; |
| 1850 |
|
|
end; |
| 1851 |
|
|
|
| 1852 |
|
|
function TSetting.GetSoundFileName(Index: Integer): string; |
| 1853 |
|
|
begin |
| 1854 |
|
|
if (Index < GetSoundCount) and (Index >= 0) then |
| 1855 |
|
|
Result := SOUND_NAME[Index].FileName |
| 1856 |
|
|
else |
| 1857 |
|
|
Result := ''; |
| 1858 |
|
|
end; |
| 1859 |
|
|
|
| 1860 |
|
|
procedure TSetting.SetSoundFileName(Index: Integer; value: string); |
| 1861 |
|
|
begin |
| 1862 |
|
|
if (Index < GetSoundCount) and (Index >= 0) then |
| 1863 |
|
|
SOUND_NAME[Index].FileName := value; |
| 1864 |
|
|
end; |
| 1865 |
|
|
|
| 1866 |
|
|
function TSetting.FindSoundFileName(Name: string): string; |
| 1867 |
|
|
var |
| 1868 |
|
|
i: Integer; |
| 1869 |
|
|
begin |
| 1870 |
|
|
for i := 0 to GetSoundCount - 1 do begin |
| 1871 |
|
|
if SoundName[i] = Name then begin |
| 1872 |
|
|
Result := SoundFileName[i]; |
| 1873 |
|
|
Exit; |
| 1874 |
|
|
end; |
| 1875 |
|
|
end; |
| 1876 |
|
|
Result := ''; |
| 1877 |
|
|
end; |
| 1878 |
|
|
|
| 1879 |
|
|
function TSetting.Encrypt(s: string): string; |
| 1880 |
|
|
var |
| 1881 |
|
|
cryptObj: THogeCryptAuto; |
| 1882 |
|
|
inputStream, outputStream: TStringStream; |
| 1883 |
|
|
begin |
| 1884 |
|
|
inputStream := TStringStream.Create(s); |
| 1885 |
|
|
outputStream := TStringStream.Create(''); |
| 1886 |
|
|
cryptObj := THogeCryptAuto.Create; |
| 1887 |
|
|
try |
| 1888 |
|
|
// ???桁?? |
| 1889 |
|
|
cryptObj.Encrypt(inputStream, GIKO_ENCRYPT_TEXT, outputStream); |
| 1890 |
|
|
|
| 1891 |
|
|
// ???ゃ?????????у?荀?????????????鴻??????? |
| 1892 |
|
|
Result := HogeBase64Encode(outputStream.DataString); |
| 1893 |
|
|
finally |
| 1894 |
|
|
cryptObj.Free; |
| 1895 |
|
|
outputStream.Free; |
| 1896 |
|
|
inputStream.Free; |
| 1897 |
|
|
end; |
| 1898 |
|
|
end; |
| 1899 |
|
|
|
| 1900 |
|
|
function TSetting.Decrypt(s: string): string; |
| 1901 |
|
|
var |
| 1902 |
|
|
cryptObj: THogeCryptAuto; |
| 1903 |
|
|
inputStream, outputStream: TStringStream; |
| 1904 |
|
|
begin |
| 1905 |
|
|
try |
| 1906 |
|
|
inputStream := TStringStream.Create(HogeBase64Decode(s)); |
| 1907 |
|
|
except |
| 1908 |
|
|
Result := ''; |
| 1909 |
|
|
Exit; |
| 1910 |
|
|
end; |
| 1911 |
|
|
outputStream := TStringStream.Create(''); |
| 1912 |
|
|
cryptObj := THogeCryptAuto.Create; |
| 1913 |
|
|
try |
| 1914 |
|
|
// 緇??/span> |
| 1915 |
|
|
cryptObj.Decrypt(inputStream, GIKO_ENCRYPT_TEXT, outputStream); |
| 1916 |
|
|
Result := outputStream.DataString; |
| 1917 |
|
|
finally |
| 1918 |
|
|
cryptObj.Free; |
| 1919 |
|
|
outputStream.Free; |
| 1920 |
|
|
inputStream.Free; |
| 1921 |
|
|
end; |
| 1922 |
|
|
end; |
| 1923 |
|
|
|
| 1924 |
|
|
function TSetting.GetMainCoolSet(Index: Integer): TCoolSet; |
| 1925 |
|
|
begin |
| 1926 |
|
|
if Index in [0..MAIN_COOLBAND_COUNT - 1] then |
| 1927 |
|
|
Result := FMainCoolBar[Index] |
| 1928 |
|
|
else begin |
| 1929 |
|
|
Result.FCoolID := -1; |
| 1930 |
|
|
Result.FCoolWidth := -1; |
| 1931 |
|
|
Result.FCoolBreak := False; |
| 1932 |
|
|
end; |
| 1933 |
|
|
end; |
| 1934 |
|
|
|
| 1935 |
|
|
function TSetting.GetBoardCoolSet(Index: Integer): TCoolSet; |
| 1936 |
|
|
begin |
| 1937 |
|
|
if Index in [0..LIST_COOLBAND_COUNT - 1] then |
| 1938 |
|
|
Result := FListCoolBar[Index] |
| 1939 |
|
|
else begin |
| 1940 |
|
|
Result.FCoolID := -1; |
| 1941 |
|
|
Result.FCoolWidth := -1; |
| 1942 |
|
|
Result.FCoolBreak := False; |
| 1943 |
|
|
end; |
| 1944 |
|
|
end; |
| 1945 |
|
|
|
| 1946 |
|
|
function TSetting.GetBrowserCoolSet(Index: Integer): TCoolSet; |
| 1947 |
|
|
begin |
| 1948 |
|
|
if Index in [0..BROWSER_COOLBAND_COUNT - 1] then |
| 1949 |
|
|
Result := FBrowserCoolBar[Index] |
| 1950 |
|
|
else begin |
| 1951 |
|
|
Result.FCoolID := -1; |
| 1952 |
|
|
Result.FCoolWidth := -1; |
| 1953 |
|
|
Result.FCoolBreak := False; |
| 1954 |
|
|
end; |
| 1955 |
|
|
end; |
| 1956 |
|
|
|
| 1957 |
|
|
procedure TSetting.SetMainCoolSet(Index: Integer; CoolSet: TCoolSet); |
| 1958 |
|
|
begin |
| 1959 |
|
|
if Index in [0..MAIN_COOLBAND_COUNT - 1] then |
| 1960 |
|
|
FMainCoolBar[Index] := CoolSet; |
| 1961 |
|
|
end; |
| 1962 |
|
|
|
| 1963 |
|
|
procedure TSetting.SetBoardCoolSet(Index: Integer; CoolSet: TCoolSet); |
| 1964 |
|
|
begin |
| 1965 |
|
|
if Index in [0..LIST_COOLBAND_COUNT - 1] then |
| 1966 |
|
|
FListCoolBar[Index] := CoolSet; |
| 1967 |
|
|
end; |
| 1968 |
|
|
|
| 1969 |
|
|
procedure TSetting.SetBrowserCoolSet(Index: Integer; CoolSet: TCoolSet); |
| 1970 |
|
|
begin |
| 1971 |
|
|
if Index in [0..BROWSER_COOLBAND_COUNT - 1] then |
| 1972 |
|
|
FBrowserCoolBar[Index] := CoolSet; |
| 1973 |
|
|
end; |
| 1974 |
|
|
|
| 1975 |
h677 |
1.11 |
//url.ini???????????????????? |
| 1976 |
|
|
procedure TSetting.MakeURLIniFile(); |
| 1977 |
|
|
var |
| 1978 |
|
|
ini: TMemIniFile; |
| 1979 |
|
|
begin |
| 1980 |
|
|
ini := TMemIniFile.Create(GetBoardURLFileName()); |
| 1981 |
|
|
try |
| 1982 |
h677 |
1.98 |
//?贋??RL????/span> |
| 1983 |
|
|
ini.WriteInteger('URL','count',1); |
| 1984 |
|
|
//???????????т戎??????鐚居鴫鐚????ゃ?潟????????/span> |
| 1985 |
|
|
ini.WriteInteger('URL','selected',1); |
| 1986 |
|
|
//篁ヤ?綽?荀????違???????贋?逸宍鐚駕蒔??菴遵?? |
| 1987 |
yoffy |
1.14 |
ini.WriteString('URL','1',DEFAULT_2CH_BOARD_URL1); |
| 1988 |
genyakun |
1.96 |
//ini.WriteString('URL','2',DEFAULT_2CH_BOARD_URL2); |
| 1989 |
h677 |
1.11 |
ini.UpdateFile; |
| 1990 |
|
|
finally |
| 1991 |
|
|
ini.Free; |
| 1992 |
|
|
end; |
| 1993 |
yoffy |
1.14 |
end; |
| 1994 |
|
|
|
| 1995 |
|
|
(************************************************************************* |
| 1996 |
|
|
*???若?????<?ゃ??????緇?鐚????刻????<?ゃ????鐚? |
| 1997 |
|
|
*************************************************************************) |
| 1998 |
|
|
function TSetting.GetBoardFileName: string; |
| 1999 |
|
|
begin |
| 2000 |
|
|
Result := GetAppDir + CONFIG_DIR_NAME + '\' + BOARD_FILE_NAME; |
| 2001 |
|
|
end; |
| 2002 |
|
|
|
| 2003 |
|
|
(************************************************************************* |
| 2004 |
|
|
*???若?????<?ゃ??????緇?鐚????刻????<?ゃ????鐚? |
| 2005 |
|
|
*************************************************************************) |
| 2006 |
|
|
function TSetting.GetCustomBoardFileName: string; |
| 2007 |
|
|
begin |
| 2008 |
|
|
Result := GetAppDir + CONFIG_DIR_NAME + '\' + CUSTOMBOARD_FILE_NAME; |
| 2009 |
yoffy |
1.18 |
end; |
| 2010 |
|
|
|
| 2011 |
|
|
(************************************************************************* |
| 2012 |
|
|
*???若?????c?????????? |
| 2013 |
|
|
*************************************************************************) |
| 2014 |
|
|
function TSetting.GetBoardDir: string; |
| 2015 |
|
|
begin |
| 2016 |
|
|
Result := GetAppDir + CONFIG_DIR_NAME + '\' + BOARD_DIR_NAME + '\'; |
| 2017 |
yoffy |
1.14 |
end; |
| 2018 |
|
|
|
| 2019 |
|
|
(************************************************************************* |
| 2020 |
|
|
*???潟???????????????弱????緇? |
| 2021 |
|
|
*************************************************************************) |
| 2022 |
|
|
function TSetting.GetHtmlTempFileName: string; |
| 2023 |
|
|
begin |
| 2024 |
|
|
Result := TEMP_FOLDER; |
| 2025 |
|
|
end; |
| 2026 |
|
|
|
| 2027 |
|
|
|
| 2028 |
|
|
(************************************************************************* |
| 2029 |
|
|
*絎?茵????<?ゃ????????????緇? |
| 2030 |
|
|
*************************************************************************) |
| 2031 |
|
|
function TSetting.GetAppDir: string; |
| 2032 |
|
|
begin |
| 2033 |
|
|
Result := ExtractFilePath(Application.ExeName); |
| 2034 |
|
|
end; |
| 2035 |
|
|
|
| 2036 |
|
|
(************************************************************************* |
| 2037 |
|
|
*TempHtml???<?ゃ??????緇?鐚????刻????<?ゃ????鐚? |
| 2038 |
|
|
*************************************************************************) |
| 2039 |
|
|
function TSetting.GetTempFolder: string; |
| 2040 |
|
|
begin |
| 2041 |
|
|
Result := GetAppDir + TEMP_FOLDER; |
| 2042 |
|
|
end; |
| 2043 |
|
|
|
| 2044 |
|
|
(************************************************************************* |
| 2045 |
|
|
*sent.ini???<?ゃ??????緇?鐚????刻????<?ゃ????鐚? |
| 2046 |
|
|
*************************************************************************) |
| 2047 |
|
|
function TSetting.GetSentFileName: string; |
| 2048 |
|
|
begin |
| 2049 |
|
|
Result := GetAppDir + SENT_FILE_NAME; |
| 2050 |
|
|
end; |
| 2051 |
|
|
|
| 2052 |
|
|
(************************************************************************* |
| 2053 |
|
|
*outbox.ini???<?ゃ??????緇?鐚????刻????<?ゃ????鐚? |
| 2054 |
|
|
*************************************************************************) |
| 2055 |
|
|
function TSetting.GetOutBoxFileName: string; |
| 2056 |
|
|
begin |
| 2057 |
|
|
Result := GetAppDir + OUTBOX_FILE_NAME; |
| 2058 |
|
|
end; |
| 2059 |
|
|
|
| 2060 |
|
|
(************************************************************************* |
| 2061 |
|
|
*Config??????????緇? |
| 2062 |
|
|
*************************************************************************) |
| 2063 |
|
|
function TSetting.GetConfigDir: string; |
| 2064 |
|
|
begin |
| 2065 |
|
|
Result := IncludeTrailingPathDelimiter(GetAppDir + CONFIG_DIR_NAME); |
| 2066 |
|
|
end; |
| 2067 |
|
|
|
| 2068 |
|
|
function TSetting.GetStyleSheetDir: string; |
| 2069 |
|
|
begin |
| 2070 |
|
|
Result := IncludeTrailingPathDelimiter(GetConfigDir + CSS_DIR_NAME); |
| 2071 |
|
|
end; |
| 2072 |
|
|
|
| 2073 |
|
|
function TSetting.GetSkinDir: string; |
| 2074 |
|
|
begin |
| 2075 |
|
|
Result := IncludeTrailingPathDelimiter(GetConfigDir + SKIN_DIR_NAME); |
| 2076 |
|
|
end; |
| 2077 |
|
|
|
| 2078 |
|
|
function TSetting.GetSkinHeaderFileName: string; |
| 2079 |
|
|
begin |
| 2080 |
|
|
Result := CSSFileName + SKIN_HEADER_FILE_NAME; |
| 2081 |
|
|
end; |
| 2082 |
|
|
|
| 2083 |
|
|
function TSetting.GetSkinFooterFileName: string; |
| 2084 |
|
|
begin |
| 2085 |
|
|
Result := CSSFileName + SKIN_FOOTER_FILE_NAME; |
| 2086 |
|
|
end; |
| 2087 |
|
|
|
| 2088 |
|
|
function TSetting.GetSkinNewResFileName: string; |
| 2089 |
|
|
begin |
| 2090 |
|
|
Result := CSSFileName + SKIN_NEWRES_FILE_NAME; |
| 2091 |
|
|
end; |
| 2092 |
|
|
|
| 2093 |
|
|
function TSetting.GetSkinResFileName: string; |
| 2094 |
|
|
begin |
| 2095 |
|
|
Result := CSSFileName + SKIN_RES_FILE_NAME; |
| 2096 |
|
|
end; |
| 2097 |
|
|
|
| 2098 |
|
|
function TSetting.GetSkinBookmarkFileName: string; |
| 2099 |
|
|
begin |
| 2100 |
|
|
Result := CSSFileName + SKIN_BOOKMARK_FILE_NAME; |
| 2101 |
|
|
end; |
| 2102 |
|
|
|
| 2103 |
|
|
function TSetting.GetSkinNewmarkFileName: string; |
| 2104 |
|
|
begin |
| 2105 |
|
|
Result := CSSFileName + SKIN_NEWMARK_FILE_NAME; |
| 2106 |
yoffy |
1.15 |
end; |
| 2107 |
|
|
|
| 2108 |
|
|
function TSetting.GetNGWordsDir: string; |
| 2109 |
|
|
begin |
| 2110 |
yoffy |
1.16 |
Result := IncludeTrailingPathDelimiter(GetConfigDir + NGWORDs_DIR_NAME); |
| 2111 |
|
|
end; |
| 2112 |
|
|
|
| 2113 |
|
|
function TSetting.GetBoardPlugInDir: string; |
| 2114 |
|
|
begin |
| 2115 |
|
|
Result := IncludeTrailingPathDelimiter(GetConfigDir + BOARD_PLUGIN_DIR_NAME); |
| 2116 |
yoffy |
1.14 |
end; |
| 2117 |
|
|
|
| 2118 |
|
|
procedure TSetting.SetUseCSS( value: Boolean ); |
| 2119 |
|
|
begin |
| 2120 |
|
|
|
| 2121 |
|
|
FUseCSS := value; |
| 2122 |
|
|
|
| 2123 |
|
|
FUseSkin := |
| 2124 |
|
|
UseCSS and |
| 2125 |
|
|
(Pos( GetSkinDir, CSSFileName ) > 0) and |
| 2126 |
|
|
FileExists( GetSkinHeaderFileName ); |
| 2127 |
|
|
|
| 2128 |
|
|
end; |
| 2129 |
|
|
|
| 2130 |
|
|
procedure TSetting.SetCSSFileName( fileName: string ); |
| 2131 |
|
|
begin |
| 2132 |
|
|
|
| 2133 |
|
|
FCSSFileName := fileName; |
| 2134 |
|
|
|
| 2135 |
|
|
FUseSkin := |
| 2136 |
|
|
UseCSS and |
| 2137 |
|
|
(Pos( GetSkinDir, CSSFileName ) > 0) and |
| 2138 |
|
|
FileExists( GetSkinHeaderFileName ); |
| 2139 |
|
|
|
| 2140 |
h677 |
1.11 |
end; |
| 2141 |
hi_ |
1.1 |
|
| 2142 |
h677 |
1.31 |
function TSetting.GetSambaFileName: string; |
| 2143 |
|
|
begin |
| 2144 |
|
|
Result := GetAppDir + SAMBATIME_FILE_NAME; |
| 2145 |
|
|
end; |
| 2146 |
h677 |
1.35 |
//?炊?贋?育?ゅ??????眼?????鴻??篆?絖????<?ゃ??/span> |
| 2147 |
|
|
function TSetting.GetIgnoreFileName: string; |
| 2148 |
|
|
begin |
| 2149 |
|
|
Result := GetConfigDir + IGNORE_FILE_NAME; |
| 2150 |
|
|
end; |
| 2151 |
|
|
|
| 2152 |
yoffy |
1.74 |
//! ?????鴻?吾?с?鴻???c?若???<?ゃ??????/span> |
| 2153 |
|
|
function TSetting.GetGestureFileName: string; |
| 2154 |
|
|
begin |
| 2155 |
|
|
Result := GetConfigDir + GESTURE_FILE_NAME; |
| 2156 |
|
|
end; |
| 2157 |
|
|
|
| 2158 |
yoffy |
1.79 |
//! ?鴻???????c???水?膺?絮ユ????<?ゃ??????/span> |
| 2159 |
|
|
function TSetting.GetSpamFilterFileName: string; |
| 2160 |
|
|
begin |
| 2161 |
|
|
Result := GetConfigDir + SPAMFILTER_FILE_NAME; |
| 2162 |
|
|
end; |
| 2163 |
|
|
|
| 2164 |
h677 |
1.86 |
function TSetting.GetLanguageFileName: string; |
| 2165 |
|
|
begin |
| 2166 |
|
|
Result := GetConfigDir + LANGUAGE_FILE_NAME; |
| 2167 |
|
|
end; |
| 2168 |
h677 |
1.88 |
procedure TSetting.WriteLogFolder(AVal : String); |
| 2169 |
|
|