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.123 by h677, Tue Jun 26 15:49:25 2007 UTC revision 1.124 by h677, Mon Jul 2 15:01:47 2007 UTC
# Line 5  interface Line 5  interface
5    
6  uses  uses
7          SysUtils, Classes, Graphics, Forms, {Math, IniFiles, UCryptAuto, UBase64,}          SysUtils, Classes, Graphics, Forms, {Math, IniFiles, UCryptAuto, UBase64,}
8          ComCtrls, GestureModel, IniFiles;          ComCtrls, GestureModel, IniFiles, SkinFiles;
9    
10  const  const
11          MAIN_COOLBAND_COUNT = 4;                //メインCoolBandの数          MAIN_COOLBAND_COUNT = 4;                //メインCoolBandの数
# Line 232  type Line 232  type
232                  FListViewNo: Boolean;                  FListViewNo: Boolean;
233                  //CSS表示                  //CSS表示
234                  FUseCSS: Boolean;                  FUseCSS: Boolean;
                 //CSSファイル名  
                 FCSSFileName: string;  
235                  // スキン表示(一時的なもので ini に保存はされない)                  // スキン表示(一時的なもので ini に保存はされない)
236                  FUseSkin: Boolean;                  FUseSkin: Boolean;
237                  //かちゅ〜しゃ用のSkinを利用するか                  //かちゅ〜しゃ用のSkinを利用するか
# Line 450  type Line 448  type
448          FSentIniFileSize: Integer;          FSentIniFileSize: Integer;
449          //! リンクURL取得の対象拡張子          //! リンクURL取得の対象拡張子
450          FExtList: String;          FExtList: String;
451            //! Skin関連
452            FSkinFiles: TSkinFiles;
453                  function GetMainCoolSet(Index: Integer): TCoolSet;                  function GetMainCoolSet(Index: Integer): TCoolSet;
454                  function GetBoardCoolSet(Index: Integer): TCoolSet;                  function GetBoardCoolSet(Index: Integer): TCoolSet;
455                  function GetBrowserCoolSet(Index: Integer): TCoolSet;                  function GetBrowserCoolSet(Index: Integer): TCoolSet;
# Line 475  type Line 475  type
475    
476                  procedure SetUseCSS( value: Boolean );                  procedure SetUseCSS( value: Boolean );
477                  procedure SetCSSFileName( fileName: string );                  procedure SetCSSFileName( fileName: string );
478            function GetCSSFileName: string;
479          //! プロキシ設定読み込み          //! プロキシ設定読み込み
480          procedure ReadProxySettings(memIni: TMemIniFile);          procedure ReadProxySettings(memIni: TMemIniFile);
481          //! 各種ウィンドウ設定読み込み          //! 各種ウィンドウ設定読み込み
# Line 511  type Line 512  type
512                  function GetSentFileName: string;                  function GetSentFileName: string;
513                  function GetConfigDir: string;                  function GetConfigDir: string;
514                  function GetSkinDir: string;                  function GetSkinDir: string;
                 function GetSkinHeaderFileName: string;  
                 function GetSkinFooterFileName: string;  
                 function GetSkinResFileName: string;  
                 function GetSkinNewResFileName: string;  
                 function GetSkinBookmarkFileName: string;  
                 function GetSkinNewmarkFileName: string;  
515                  function GetStyleSheetDir: string;                  function GetStyleSheetDir: string;
516                  function GetOutBoxFileName: string;                  function GetOutBoxFileName: string;
517                  function GetNGWordsDir: string;                  function GetNGWordsDir: string;
# Line 645  type Line 640  type
640    
641                  property ListViewNo: Boolean read FListViewNo write FListViewNo;                  property ListViewNo: Boolean read FListViewNo write FListViewNo;
642                  property UseCSS: Boolean read FUseCSS write SetUseCSS;                  property UseCSS: Boolean read FUseCSS write SetUseCSS;
643                  property CSSFileName: string read FCSSFileName write SetCSSFileName;                  property CSSFileName: string read GetCSSFileName write SetCSSFileName;
644                  property UseKatjushaType : Boolean read FUseKatjushaType write FUseKatjushaType;                  property UseKatjushaType : Boolean read FUseKatjushaType write FUseKatjushaType;
645                  property UseSkin: Boolean read FUseSkin;                  property UseSkin: Boolean read FUseSkin;
646    
# Line 810  type Line 805  type
805          property SentIniFileSize: Integer read FSentIniFileSize write FSentIniFileSize;          property SentIniFileSize: Integer read FSentIniFileSize write FSentIniFileSize;
806          //! リンクURL取得の対象拡張子          //! リンクURL取得の対象拡張子
807          property ExtList: String read FExtList write FExtList;          property ExtList: String read FExtList write FExtList;
808            //! Skinファイル管理
809            property SkinFiles: TSkinFiles read FSkinFiles;
810    
811  end;  end;
812    
# Line 830  const Line 827  const
827          CONFIG_DIR_NAME                                                         = 'config';          CONFIG_DIR_NAME                                                         = 'config';
828          CSS_DIR_NAME                                                                    = 'css';          CSS_DIR_NAME                                                                    = 'css';
829          SKIN_DIR_NAME                                                                   = 'skin';          SKIN_DIR_NAME                                                                   = 'skin';
         SKIN_HEADER_FILE_NAME                                   = 'Header.html';  
         SKIN_FOOTER_FILE_NAME                                   = 'Footer.html';  
         SKIN_NEWRES_FILE_NAME                                   = 'NewRes.html';  
         SKIN_RES_FILE_NAME                                              = 'Res.html';  
         SKIN_BOOKMARK_FILE_NAME                         = 'Bookmark.html';  
         SKIN_NEWMARK_FILE_NAME                          = 'Newmark.html';  
830          NGWORDs_DIR_NAME : String               = 'NGwords';          NGWORDs_DIR_NAME : String               = 'NGwords';
831          BOARD_PLUGIN_DIR_NAME                                   = 'BoardPlugin';          BOARD_PLUGIN_DIR_NAME                                   = 'BoardPlugin';
832          SAMBATIME_FILE_NAME : String    = 'Samba.ini';          SAMBATIME_FILE_NAME : String    = 'Samba.ini';
# Line 969  begin Line 960  begin
960          FCategoryColumnOrder := TGikoCategoryColumnList.Create;          FCategoryColumnOrder := TGikoCategoryColumnList.Create;
961          FBoardColumnOrder := TGikoBoardColumnList.Create;          FBoardColumnOrder := TGikoBoardColumnList.Create;
962          FGestures := TGestureModel.Create;          FGestures := TGestureModel.Create;
963        FSkinFiles := TSkinFiles.Create;
964          FNameList.Duplicates := dupIgnore;          FNameList.Duplicates := dupIgnore;
965          FMailList.Duplicates := dupIgnore;          FMailList.Duplicates := dupIgnore;
966          FBoardURLs.Duplicates := dupIgnore;          FBoardURLs.Duplicates := dupIgnore;
# Line 1482  begin Line 1474  begin
1474                  //かしゅ〜しゃのスキンを使うか                  //かしゅ〜しゃのスキンを使うか
1475                  ini.WriteBool('CSS', 'UseKatjushaType', FUseKatjushaType);                  ini.WriteBool('CSS', 'UseKatjushaType', FUseKatjushaType);
1476                  //CSSファイル名                  //CSSファイル名
1477                  ini.WriteString('CSS', 'FileName', FCSSFileName);                  ini.WriteString('CSS', 'FileName', FSkinFiles.FileName);
1478                  //Mail欄表示                  //Mail欄表示
1479                  ini.WriteBool('Thread', 'ShowMail', FShowMail);                  ini.WriteBool('Thread', 'ShowMail', FShowMail);
1480                  // レス表示範囲                  // レス表示範囲
# Line 2051  begin Line 2043  begin
2043          Result := IncludeTrailingPathDelimiter(GetConfigDir + SKIN_DIR_NAME);          Result := IncludeTrailingPathDelimiter(GetConfigDir + SKIN_DIR_NAME);
2044  end;  end;
2045  (*************************************************************************  (*************************************************************************
  *skinヘッダファイル名取得  
  *************************************************************************)  
 function TSetting.GetSkinHeaderFileName: string;  
 begin  
         Result := CSSFileName + SKIN_HEADER_FILE_NAME;  
 end;  
 (*************************************************************************  
  *skinフッタファイル名取得  
  *************************************************************************)  
 function TSetting.GetSkinFooterFileName: string;  
 begin  
         Result := CSSFileName + SKIN_FOOTER_FILE_NAME;  
 end;  
 (*************************************************************************  
  *skin新レスファイル名取得  
  *************************************************************************)  
 function TSetting.GetSkinNewResFileName: string;  
 begin  
         Result := CSSFileName + SKIN_NEWRES_FILE_NAME;  
 end;  
 (*************************************************************************  
  *skinレスファイル名取得  
  *************************************************************************)  
 function TSetting.GetSkinResFileName: string;  
 begin  
         Result := CSSFileName + SKIN_RES_FILE_NAME;  
 end;  
 (*************************************************************************  
  *skinブックマークファイル名取得  
  *************************************************************************)  
 function TSetting.GetSkinBookmarkFileName: string;  
 begin  
         Result := CSSFileName + SKIN_BOOKMARK_FILE_NAME;  
 end;  
 (*************************************************************************  
  *skin新着ファイル名取得  
  *************************************************************************)  
 function TSetting.GetSkinNewmarkFileName: string;  
 begin  
         Result := CSSFileName + SKIN_NEWMARK_FILE_NAME;  
 end;  
 (*************************************************************************  
2046   *NGワードディレクトリ取得(\で終わる)   *NGワードディレクトリ取得(\で終わる)
2047   *************************************************************************)   *************************************************************************)
2048  function TSetting.GetNGWordsDir: string;  function TSetting.GetNGWordsDir: string;
# Line 2115  begin Line 2065  begin
2065          // ココでの判定でも大文字小文字の違いは無視する。          // ココでの判定でも大文字小文字の違いは無視する。
2066          FUseSkin :=          FUseSkin :=
2067                  UseCSS and                  UseCSS and
2068                  (Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(CSSFileName) ) > 0) and                  (Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(FSkinFiles.FileName) ) > 0) and
2069                  FileExists( GetSkinHeaderFileName );                  FileExists( FSkinFiles.GetSkinHeaderFileName );
2070    
2071  end;  end;
2072    
2073  procedure TSetting.SetCSSFileName( fileName: string );  procedure TSetting.SetCSSFileName( fileName: string );
2074  begin  begin
2075        FSkinFiles.FileName := fileName;
         FCSSFileName := fileName;  
2076          // Windows的にファイルパスの大文字小文字の違いは無視されるので、          // Windows的にファイルパスの大文字小文字の違いは無視されるので、
2077          // ココでの判定でも大文字小文字の違いは無視する。          // ココでの判定でも大文字小文字の違いは無視する。
2078          FUseSkin :=          FUseSkin :=
2079                  UseCSS and                  UseCSS and
2080                  (Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(CSSFileName) ) > 0) and                  (Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(FSkinFiles.FileName) ) > 0) and
2081                  FileExists( GetSkinHeaderFileName );                  FileExists( FSkinFiles.GetSkinHeaderFileName );
2082    
2083  end;  end;
2084  (*************************************************************************  (*************************************************************************
# Line 2415  begin Line 2364  begin
2364                  end;                  end;
2365      end;      end;
2366  end;  end;
2367    
2368    function TSetting.GetCSSFileName: string;
2369    begin
2370        Result := FSkinFiles.FileName;
2371    end;
2372    
2373  end.  end.
2374    

Legend:
Removed from v.1.123  
changed lines
  Added in v.1.124

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