From 0a76a5af447087d349d2dbaeba9108aeb5ac44d6 Mon Sep 17 00:00:00 2001
From: yoffy <yoffy>
Date: Tue, 7 Sep 2004 14:52:26 +0000
Subject: [PATCH] =?utf8?q?=E3=82=B9=E3=83=AC=E3=83=AA=E3=82=B9=E3=83=88?=
 =?utf8?q?=E3=82=AB=E3=83=A9=E3=83=A0=E3=81=AE=20ID=20=E3=82=92=E8=BF=BD?=
 =?utf8?q?=E5=8A=A0=E3=80=82=20=E5=B0=86=E6=9D=A5=E7=9A=84=E3=81=AB?=
 =?utf8?q?=E3=81=AF=E3=80=81=E3=81=93=E3=81=93=E3=81=AB=E3=82=AB=E3=83=A9?=
 =?utf8?q?=E3=83=A0=E3=81=AE=E9=A0=86=E5=BA=8F=E3=82=92=E4=BF=9D=E5=AD=98?=
 =?utf8?q?=E3=81=99=E3=82=8B=E3=82=88=E3=81=86=E3=81=AB=E3=81=99=E3=82=8B?=
 =?utf8?q?=E3=80=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Setting.pas | 69 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 69 insertions(+)

diff --git a/Setting.pas b/Setting.pas
index bde06f2..a585877 100644
--- a/Setting.pas
+++ b/Setting.pas
@@ -55,6 +55,25 @@ type
 	/// ƒXƒŒƒbƒhˆê——•\Ž¦”͈Í
 	TGikoThreadRange = (gtrAll, gtrSelect, gtrLog, gtrNew);
 
+	/// ƒJƒeƒSƒŠƒŠƒXƒg‚̃Jƒ‰ƒ€ ID
+	type	TGikoBBSColumnID = (gbbscTitle);
+	/// ƒJƒeƒSƒŠƒŠƒXƒg‚Ì‚©‚ç‚Þ–¼
+	const	TGikoBBSColumnCaption : array[0..0] of string =
+		( 'ƒJƒeƒSƒŠ–¼' );
+	/// ”ƒŠƒXƒg‚̃Jƒ‰ƒ€ ID
+	type	TGikoCategoryColumnID = (gccTitle, gccRoundDate, gccLastModified, gccUnknown);
+	/// ”ƒŠƒXƒg‚̃Jƒ‰ƒ€–¼
+	const TGikoCategoryColumnCaption : array[0..3] of string =
+		( '”–¼', '„‰ñ—\–ñ', 'Žæ“¾“úŽž', '‚±‚±‚͉½H' );
+	/// ƒXƒŒƒŠƒXƒg‚̃Jƒ‰ƒ€ ID
+	type	TGikoBoardColumnID = (gbcTitle, gbcAllCount, gbcLocalCount, gbcNonAcqCount,
+		gbcNewCount, gbcUnReadCount, gbcRoundName, gbcLastModified, gbcCreated );
+	/// ƒXƒŒƒŠƒXƒg‚̃Jƒ‰ƒ€–¼
+	const	TGikoBoardColumnCaption : array[0..8] of string =
+		( 'ƒXƒŒƒbƒh–¼', 'ƒJƒEƒ“ƒg', 'Žæ“¾', '–¢Žæ“¾', 'V’…',
+		'–¢“Ç', '„‰ñ—\–ñ', 'Žæ“¾“úŽž', 'ƒXƒŒì¬“úŽž' );
+
+type
 	//CoolBarÝ’背ƒR[ƒh
 	TCoolSet = record
 		FCoolID: Integer;
@@ -218,6 +237,13 @@ type
 		FCategoryColumnWidth: array[0..3] of Integer;
 		FBoardColumnWidth: array[0..7] of Integer;
 
+		/// ƒJƒeƒSƒŠƒŠƒXƒgƒJƒ‰ƒ€‡˜
+		FBBSColumnOrder : array[0..0] of TGikoBBSColumnID;
+		/// ”ƒŠƒXƒgƒJƒ‰ƒ€‡˜
+		FCategoryColumnOrder : array[0..3] of TGikoCategoryColumnID;
+		/// ƒXƒŒƒŠƒXƒgƒJƒ‰ƒ€‡˜
+		FBoardColumnOrder : array[0..8] of TGikoBoardColumnID;
+
 		//ƒ\[ƒg‡
 		FBBSSortIndex: Integer;
 		FBBSSortOrder: Boolean;
@@ -349,6 +375,12 @@ type
 		procedure SetBBSColumnWidth(index: Integer; value: Integer);
 		procedure SetCategoryColumnWidth(index: Integer; value: Integer);
 		procedure SetBoardColumnWidth(index: Integer; value: Integer);
+		function GetBBSColumnOrder( index : Integer ) : TGikoBBSColumnID;
+		function GetCategoryColumnOrder( index : Integer ) : TGikoCategoryColumnID;
+		function GetBoardColumnOrder( index : Integer ) : TGikoBoardColumnID;
+		procedure SetBBSColumnOrder( index : Integer; value : TGikoBBSColumnID );
+		procedure SetCategoryColumnOrder( index : Integer; value : TGikoCategoryColumnID );
+		procedure SetBoardColumnOrder( index : Integer; value : TGikoBoardColumnID );
 
 		function GetSoundName(Index: Integer): string;
 		function GetSoundViewName(Index: Integer): string;
@@ -526,6 +558,10 @@ type
 		property CategoryColumnWidth[index: Integer]: Integer read GetCategoryColumnWidth write SetCategoryColumnWidth;
 		property BoardColumnWidth[index: Integer]: Integer read GetBoardColumnWidth write SetBoardColumnWidth;
 
+		property BBSColumnOrder[index : Integer] : TGikoBBSColumnID read GetBBSColumnOrder write SetBBSColumnOrder;
+		property CategoryColumnOrder[index : Integer] : TGikoCategoryColumnID read GetCategoryColumnOrder write SetCategoryColumnOrder;
+		property BoardColumnOrder[index : Integer] : TGikoBoardColumnID read GetBoardColumnOrder write SetBoardColumnOrder;
+
 		property SoundName[index: Integer]: string read GetSoundName;
 		property SoundViewName[index: Integer]: string read GetSoundViewName;
 		property SoundFileName[index: Integer]: string read GetSoundFileName write SetSoundFileName;
@@ -1447,6 +1483,39 @@ begin
 		FBoardColumnWidth[index] := value;
 end;
 
+function TSetting.GetBBSColumnOrder( index : Integer ) : TGikoBBSColumnID;
+begin
+	Result := FBBSColumnOrder[index];
+end;
+
+function TSetting.GetCategoryColumnOrder( index : Integer ) : TGikoCategoryColumnID;
+begin
+	Result := FCategoryColumnOrder[index];
+end;
+
+function TSetting.GetBoardColumnOrder( index : Integer ) : TGikoBoardColumnID;
+begin
+	Result := FBoardColumnOrder[index];
+end;
+
+procedure TSetting.SetBBSColumnOrder( index : Integer; value : TGikoBBSColumnID );
+begin
+	if index in [0..Length(FBBSColumnOrder) - 1] then
+		FBBSColumnOrder[index] := value;
+end;
+
+procedure TSetting.SetCategoryColumnOrder( index : Integer; value : TGikoCategoryColumnID );
+begin
+	if index in [0..Length(FCategoryColumnOrder) - 1] then
+		FCategoryColumnOrder[index] := value;
+end;
+
+procedure TSetting.SetBoardColumnOrder( index : Integer; value : TGikoBoardColumnID );
+begin
+	if index in [0..Length(FBoardColumnOrder) - 1] then
+		FBoardColumnOrder[index] := value;
+end;
+
 function TSetting.GetSoundCount: Integer;
 begin
 	Result := Length(SOUND_NAME);
-- 
2.11.0