gikonavigoeson/gikonavi/SkinFiles.pas

unit SkinFiles;

interface

uses
        SysUtils, Classes, ComCtrls;

type
    TSkinFiles = class(TObject)
    private
        FFileName: String;
        procedure SetFileName(AFileName: string);
    public
        //! ?鴻???潟???＜?ゃ??????/span>
        property FileName:String read FFileName write SetFileName;
        //! ???????????＜?ゃ????
        function GetSkinHeaderFileName: string;
        //! ?????帥?????＜?ゃ????
        function GetSkinFooterFileName: string;
        //! ?亥?????鴻?????＜?ゃ????
        function GetSkinNewResFileName: string;
        //! ???亥?????鴻?????＜?ゃ????
        function GetSkinResFileName: string;
        //! ??????(?????障?ц?????)?????＜?ゃ????
        function GetSkinBookmarkFileName: string;
        //! ??????(?亥???????????＜?ゃ????
        function GetSkinNewmarkFileName: string;
    end;

implementation

const
        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';

//! ?鴻???潟???＜?ゃ????荐??
procedure TSkinFiles.SetFileName(AFileName: string);
begin
    // ???ｃ???????????翫????緇????х??????
    if DirectoryExists(AFileName) then begin
        // \ ?х??????????????
        FFileName := IncludeTrailingPathDelimiter(AFileName);
    end else begin
        FFileName := AFileName;
    end;
end;
//! Skin:???????????＜?ゃ????
function TSkinFiles.GetSkinHeaderFileName: string;
begin
        Result := FFileName + SKIN_HEADER_FILE_NAME;
end;

//! Skin:?????帥?????＜?ゃ????
function TSkinFiles.GetSkinFooterFileName: string;
begin
        Result := FFileName + SKIN_FOOTER_FILE_NAME;
end;

//! Skin:?亥?????鴻?????＜?ゃ????
function TSkinFiles.GetSkinNewResFileName: string;
begin
        Result := FFileName + SKIN_NEWRES_FILE_NAME;
end;

//! Skin:???亥?????鴻?????＜?ゃ????
function TSkinFiles.GetSkinResFileName: string;
begin
        Result := FFileName + SKIN_RES_FILE_NAME;
end;

//! Skin:??????(?????障?ц?????)?????＜?ゃ????
function TSkinFiles.GetSkinBookmarkFileName: string;
begin
        Result := FFileName + SKIN_BOOKMARK_FILE_NAME;
end;

//! Skin:??????(?亥???????????＜?ゃ????
function TSkinFiles.GetSkinNewmarkFileName: string;
begin
        Result := FFileName + SKIN_NEWMARK_FILE_NAME;
end;
end.