6 SysUtils, Classes, ComCtrls;
9 TSkinFiles = class(TObject)
12 procedure SetFileName(AFileName: string);
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;
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';
40 //!
\83X
\83L
\83\93\83t
\83@
\83C
\83\8b\96¼
\90Ý
\92è
41 procedure TSkinFiles.SetFileName(AFileName: string);
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);
48 FFileName := AFileName;
51 //! Skin:
\83w
\83b
\83_
\82Ì
\83t
\83@
\83C
\83\8b\96¼
52 function TSkinFiles.GetSkinHeaderFileName: string;
54 Result := FFileName + SKIN_HEADER_FILE_NAME;
57 //! Skin:
\83t
\83b
\83^
\82Ì
\83t
\83@
\83C
\83\8b\96¼
58 function TSkinFiles.GetSkinFooterFileName: string;
60 Result := FFileName + SKIN_FOOTER_FILE_NAME;
63 //! Skin:
\90V
\92\85\83\8c\83X
\82Ì
\83t
\83@
\83C
\83\8b\96¼
64 function TSkinFiles.GetSkinNewResFileName: string;
66 Result := FFileName + SKIN_NEWRES_FILE_NAME;
69 //! Skin:
\94ñ
\90V
\92\85\83\8c\83X
\82Ì
\83t
\83@
\83C
\83\8b\96¼
70 function TSkinFiles.GetSkinResFileName: string;
72 Result := FFileName + SKIN_RES_FILE_NAME;
75 //! Skin:
\82µ
\82¨
\82è(
\82±
\82±
\82Ü
\82Å
\93Ç
\82ñ
\82¾)
\82Ì
\83t
\83@
\83C
\83\8b\96¼
76 function TSkinFiles.GetSkinBookmarkFileName: string;
78 Result := FFileName + SKIN_BOOKMARK_FILE_NAME;
81 //! Skin:
\82µ
\82¨
\82è(
\90V
\92\85\83\8c\83X)
\82Ì
\83t
\83@
\83C
\83\8b\96¼
82 function TSkinFiles.GetSkinNewmarkFileName: string;
84 Result := FFileName + SKIN_NEWMARK_FILE_NAME;