Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Setting.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.61 by yoffy, Tue Sep 7 13:30:25 2004 UTC revision 1.62 by yoffy, Tue Sep 7 14:52:26 2004 UTC
# Line 55  type Line 55  type
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;
# Line 218  type Line 237  type
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;
# Line 349  type Line 375  type
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;
# Line 526  type Line 558  type
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;
# Line 1447  begin Line 1483  begin
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);

Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26