| 55 |
/// スレッド一覧表示範囲 |
/// スレッド一覧表示範囲 |
| 56 |
TGikoThreadRange = (gtrAll, gtrSelect, gtrLog, gtrNew); |
TGikoThreadRange = (gtrAll, gtrSelect, gtrLog, gtrNew); |
| 57 |
|
|
| 58 |
|
/// カテゴリリストのカラム ID |
| 59 |
|
type TGikoBBSColumnID = (gbbscTitle); |
| 60 |
|
/// カテゴリリストのからむ名 |
| 61 |
|
const TGikoBBSColumnCaption : array[0..0] of string = |
| 62 |
|
( 'カテゴリ名' ); |
| 63 |
|
/// 板リストのカラム ID |
| 64 |
|
type TGikoCategoryColumnID = (gccTitle, gccRoundDate, gccLastModified, gccUnknown); |
| 65 |
|
/// 板リストのカラム名 |
| 66 |
|
const TGikoCategoryColumnCaption : array[0..3] of string = |
| 67 |
|
( '板名', '巡回予約', '取得日時', 'ここは何?' ); |
| 68 |
|
/// スレリストのカラム ID |
| 69 |
|
type TGikoBoardColumnID = (gbcTitle, gbcAllCount, gbcLocalCount, gbcNonAcqCount, |
| 70 |
|
gbcNewCount, gbcUnReadCount, gbcRoundName, gbcLastModified, gbcCreated ); |
| 71 |
|
/// スレリストのカラム名 |
| 72 |
|
const TGikoBoardColumnCaption : array[0..8] of string = |
| 73 |
|
( 'スレッド名', 'カウント', '取得', '未取得', '新着', |
| 74 |
|
'未読', '巡回予約', '取得日時', 'スレ作成日時' ); |
| 75 |
|
|
| 76 |
|
type |
| 77 |
//CoolBar設定レコード |
//CoolBar設定レコード |
| 78 |
TCoolSet = record |
TCoolSet = record |
| 79 |
FCoolID: Integer; |
FCoolID: Integer; |
| 237 |
FCategoryColumnWidth: array[0..3] of Integer; |
FCategoryColumnWidth: array[0..3] of Integer; |
| 238 |
FBoardColumnWidth: array[0..7] of Integer; |
FBoardColumnWidth: array[0..7] of Integer; |
| 239 |
|
|
| 240 |
|
/// カテゴリリストカラム順序 |
| 241 |
|
FBBSColumnOrder : array[0..0] of TGikoBBSColumnID; |
| 242 |
|
/// 板リストカラム順序 |
| 243 |
|
FCategoryColumnOrder : array[0..3] of TGikoCategoryColumnID; |
| 244 |
|
/// スレリストカラム順序 |
| 245 |
|
FBoardColumnOrder : array[0..8] of TGikoBoardColumnID; |
| 246 |
|
|
| 247 |
//ソート順 |
//ソート順 |
| 248 |
FBBSSortIndex: Integer; |
FBBSSortIndex: Integer; |
| 249 |
FBBSSortOrder: Boolean; |
FBBSSortOrder: Boolean; |
| 375 |
procedure SetBBSColumnWidth(index: Integer; value: Integer); |
procedure SetBBSColumnWidth(index: Integer; value: Integer); |
| 376 |
procedure SetCategoryColumnWidth(index: Integer; value: Integer); |
procedure SetCategoryColumnWidth(index: Integer; value: Integer); |
| 377 |
procedure SetBoardColumnWidth(index: Integer; value: Integer); |
procedure SetBoardColumnWidth(index: Integer; value: Integer); |
| 378 |
|
function GetBBSColumnOrder( index : Integer ) : TGikoBBSColumnID; |
| 379 |
|
function GetCategoryColumnOrder( index : Integer ) : TGikoCategoryColumnID; |
| 380 |
|
function GetBoardColumnOrder( index : Integer ) : TGikoBoardColumnID; |
| 381 |
|
procedure SetBBSColumnOrder( index : Integer; value : TGikoBBSColumnID ); |
| 382 |
|
procedure SetCategoryColumnOrder( index : Integer; value : TGikoCategoryColumnID ); |
| 383 |
|
procedure SetBoardColumnOrder( index : Integer; value : TGikoBoardColumnID ); |
| 384 |
|
|
| 385 |
function GetSoundName(Index: Integer): string; |
function GetSoundName(Index: Integer): string; |
| 386 |
function GetSoundViewName(Index: Integer): string; |
function GetSoundViewName(Index: Integer): string; |
| 558 |
property CategoryColumnWidth[index: Integer]: Integer read GetCategoryColumnWidth write SetCategoryColumnWidth; |
property CategoryColumnWidth[index: Integer]: Integer read GetCategoryColumnWidth write SetCategoryColumnWidth; |
| 559 |
property BoardColumnWidth[index: Integer]: Integer read GetBoardColumnWidth write SetBoardColumnWidth; |
property BoardColumnWidth[index: Integer]: Integer read GetBoardColumnWidth write SetBoardColumnWidth; |
| 560 |
|
|
| 561 |
|
property BBSColumnOrder[index : Integer] : TGikoBBSColumnID read GetBBSColumnOrder write SetBBSColumnOrder; |
| 562 |
|
property CategoryColumnOrder[index : Integer] : TGikoCategoryColumnID read GetCategoryColumnOrder write SetCategoryColumnOrder; |
| 563 |
|
property BoardColumnOrder[index : Integer] : TGikoBoardColumnID read GetBoardColumnOrder write SetBoardColumnOrder; |
| 564 |
|
|
| 565 |
property SoundName[index: Integer]: string read GetSoundName; |
property SoundName[index: Integer]: string read GetSoundName; |
| 566 |
property SoundViewName[index: Integer]: string read GetSoundViewName; |
property SoundViewName[index: Integer]: string read GetSoundViewName; |
| 567 |
property SoundFileName[index: Integer]: string read GetSoundFileName write SetSoundFileName; |
property SoundFileName[index: Integer]: string read GetSoundFileName write SetSoundFileName; |
| 1483 |
FBoardColumnWidth[index] := value; |
FBoardColumnWidth[index] := value; |
| 1484 |
end; |
end; |
| 1485 |
|
|
| 1486 |
|
function TSetting.GetBBSColumnOrder( index : Integer ) : TGikoBBSColumnID; |
| 1487 |
|
begin |
| 1488 |
|
Result := FBBSColumnOrder[index]; |
| 1489 |
|
end; |
| 1490 |
|
|
| 1491 |
|
function TSetting.GetCategoryColumnOrder( index : Integer ) : TGikoCategoryColumnID; |
| 1492 |
|
begin |
| 1493 |
|
Result := FCategoryColumnOrder[index]; |
| 1494 |
|
end; |
| 1495 |
|
|
| 1496 |
|
function TSetting.GetBoardColumnOrder( index : Integer ) : TGikoBoardColumnID; |
| 1497 |
|
begin |
| 1498 |
|
Result := FBoardColumnOrder[index]; |
| 1499 |
|
end; |
| 1500 |
|
|
| 1501 |
|
procedure TSetting.SetBBSColumnOrder( index : Integer; value : TGikoBBSColumnID ); |
| 1502 |
|
begin |
| 1503 |
|
if index in [0..Length(FBBSColumnOrder) - 1] then |
| 1504 |
|
FBBSColumnOrder[index] := value; |
| 1505 |
|
end; |
| 1506 |
|
|
| 1507 |
|
procedure TSetting.SetCategoryColumnOrder( index : Integer; value : TGikoCategoryColumnID ); |
| 1508 |
|
begin |
| 1509 |
|
if index in [0..Length(FCategoryColumnOrder) - 1] then |
| 1510 |
|
FCategoryColumnOrder[index] := value; |
| 1511 |
|
end; |
| 1512 |
|
|
| 1513 |
|
procedure TSetting.SetBoardColumnOrder( index : Integer; value : TGikoBoardColumnID ); |
| 1514 |
|
begin |
| 1515 |
|
if index in [0..Length(FBoardColumnOrder) - 1] then |
| 1516 |
|
FBoardColumnOrder[index] := value; |
| 1517 |
|
end; |
| 1518 |
|
|
| 1519 |
function TSetting.GetSoundCount: Integer; |
function TSetting.GetSoundCount: Integer; |
| 1520 |
begin |
begin |
| 1521 |
Result := Length(SOUND_NAME); |
Result := Length(SOUND_NAME); |