SkinFiles.pas

   1 unit SkinFiles;
   2
   3 interface
   4
   5 uses
   6         SysUtils, Classes, ComCtrls;
   7
   8 type
   9     TSkinFiles = class(TObject)
  10     private
  11         FFileName: String;
  12         procedure SetFileName(AFileName: string);
  13     public
  14         //! \83X\83L\83\93\83t\83@\83C\83\8b\83p\83X
  15         property FileName:String read FFileName write SetFileName;
  16         //! \83w\83b\83_\82Ì\83t\83@\83C\83\8b\96¼
  17         function GetSkinHeaderFileName: string;
  18         //! \83t\83b\83^\82Ì\83t\83@\83C\83\8b\96¼
  19         function GetSkinFooterFileName: string;
  20         //! \90V\92\85\83\8c\83X\82Ì\83t\83@\83C\83\8b\96¼
  21         function GetSkinNewResFileName: string;
  22         //! \94ñ\90V\92\85\83\8c\83X\82Ì\83t\83@\83C\83\8b\96¼
  23         function GetSkinResFileName: string;
  24         //! \82µ\82¨\82è(\82±\82±\82Ü\82Å\93Ç\82ñ\82¾)\82Ì\83t\83@\83C\83\8b\96¼
  25         function GetSkinBookmarkFileName: string;
  26         //! \82µ\82¨\82è(\90V\92\85\83\8c\83X)\82Ì\83t\83@\83C\83\8b\96¼
  27         function GetSkinNewmarkFileName: string;
  28     end;
  29
  30 implementation
  31
  32 const
  33         SKIN_HEADER_FILE_NAME                                   = 'Header.html';
  34         SKIN_FOOTER_FILE_NAME                                   = 'Footer.html';
  35         SKIN_NEWRES_FILE_NAME                                   = 'NewRes.html';
  36         SKIN_RES_FILE_NAME                                              = 'Res.html';
  37         SKIN_BOOKMARK_FILE_NAME                         = 'Bookmark.html';
  38         SKIN_NEWMARK_FILE_NAME                          = 'Newmark.html';
  39
  40 //! \83X\83L\83\93\83t\83@\83C\83\8b\96¼\90Ý\92è
  41 procedure TSkinFiles.SetFileName(AFileName: string);
  42 begin
  43     // \83f\83B\83\8c\83N\83g\83\8a\82Ì\8fê\8d\87\8dÅ\8cã\82É\\82Å\8fI\82í\82ç\82·
  44     if DirectoryExists(AFileName) then begin
  45         // \ \82Å\8fI\82í\82é\82æ\82¤\82É\82·\82é
  46         FFileName := IncludeTrailingPathDelimiter(AFileName);
  47     end else begin
  48         FFileName := AFileName;
  49     end;
  50 end;
  51 //! Skin:\83w\83b\83_\82Ì\83t\83@\83C\83\8b\96¼
  52 function TSkinFiles.GetSkinHeaderFileName: string;
  53 begin
  54         Result := FFileName + SKIN_HEADER_FILE_NAME;
  55 end;
  56
  57 //! Skin:\83t\83b\83^\82Ì\83t\83@\83C\83\8b\96¼
  58 function TSkinFiles.GetSkinFooterFileName: string;
  59 begin
  60         Result := FFileName + SKIN_FOOTER_FILE_NAME;
  61 end;
  62
  63 //! Skin:\90V\92\85\83\8c\83X\82Ì\83t\83@\83C\83\8b\96¼
  64 function TSkinFiles.GetSkinNewResFileName: string;
  65 begin
  66         Result := FFileName + SKIN_NEWRES_FILE_NAME;
  67 end;
  68
  69 //! Skin:\94ñ\90V\92\85\83\8c\83X\82Ì\83t\83@\83C\83\8b\96¼
  70 function TSkinFiles.GetSkinResFileName: string;
  71 begin
  72         Result := FFileName + SKIN_RES_FILE_NAME;
  73 end;
  74
  75 //! Skin:\82µ\82¨\82è(\82±\82±\82Ü\82Å\93Ç\82ñ\82¾)\82Ì\83t\83@\83C\83\8b\96¼
  76 function TSkinFiles.GetSkinBookmarkFileName: string;
  77 begin
  78         Result := FFileName + SKIN_BOOKMARK_FILE_NAME;
  79 end;
  80
  81 //! Skin:\82µ\82¨\82è(\90V\92\85\83\8c\83X)\82Ì\83t\83@\83C\83\8b\96¼
  82 function TSkinFiles.GetSkinNewmarkFileName: string;
  83 begin
  84         Result := FFileName + SKIN_NEWMARK_FILE_NAME;
  85 end;
  86 end.