Develop and Download Open Source Software

Browse CVS Repository

Annotation of /gikonavigoeson/gikonavi/SkinFiles.pas

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


Revision 1.1 - (hide annotations) (download) (as text)
Mon Jul 2 15:01:47 2007 UTC (16 years, 9 months ago) by h677
Branch: MAIN
CVS Tags: v1_59_0_771, v1_59_0_770, v1_59_0_773, v1_59_0_772, v1_59_0_775, v1_59_0_774, v1_59_0_777, v1_59_0_776, v1_56_0_715, v1_59_0_778, v1_63_1_819, v1_57_0_737, v1_62_0_812, v1_57_0_735, v1_57_0_734, v1_57_0_733, v1_57_0_732, v1_57_0_731, v1_57_0_730, v1_57_0_739, v1_57_0_738, v1_59_1_765, v1_60_0_788, v1_60_0_789, v1_58_0_748, v1_58_0_745, v1_60_0_781, v1_60_0_782, v1_58_0_746, v1_60_0_784, v1_60_0_786, v1_60_0_787, v1_59_0_767, v1_59_1_778, v1_57_0_723, v1_59_0_768, v1_59_0_769, v1_57_0_725, v1_57_0_726, v1_57_0_727, v1_57_0_720, v1_57_0_722, v1_57_1_744, v1_57_0_728, v1_57_0_729, v1_57_0_736, v1_58_0_752, v1_58_0_750, v1_58_0_751, v1_58_0_756, v1_58_0_757, v1_58_0_754, v1_58_0_755, v1_58_0_759, v1_57_0_719, v1_57_0_718, v1_56_0_716, v1_56_1_717, v1_56_1_716, v1_61_0_796, v1_61_0_797, v1_61_0_795, v1_61_0_798, v1_61_0_799, v1_56_2_724, v1_56_2_722, v1_63_0_818, v1_63_0_817, v1_63_0_816, v1_63_0_815, v1_62_0_805, v1_62_0_804, v1_62_0_807, v1_62_0_806, v1_62_0_803, v1_62_0_802, v1_62_0_809, v1_56_0_721, v1_60_0_780, v1_60_0_779, v1_62_0_810, v1_62_0_811, v1_58_0_747, v1_60_0_783, v1_59_2_785, v1_60_1_793, v1_58_0_763, v1_58_0_762, v1_58_0_761, v1_58_0_760, v1_62_1_813, v1_57_2_749, v1_57_0_742, v1_57_0_743, v1_57_0_740, v1_57_0_741, v1_57_0_744, v1_61_0_800, v1_60_0_793, v1_60_0_792, v1_60_0_791, v1_60_0_790, v1_60_2_794, v1_61_1_801, HEAD
Branch point for: Bb57, Bb56, Bb62, Bb63, Bb60, Bb61, Bb59, Bb58
File MIME type: text/x-pascal
ファイルパス関連の整理中

1 h677 1.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     //! ?鴻???潟???<?ゃ??????/span>
15     property FileName:String read FFileName write SetFileName;
16     //! ???????????<?ゃ????
17     function GetSkinHeaderFileName: string;
18     //! ?????帥?????<?ゃ????
19     function GetSkinFooterFileName: string;
20     //! ?亥?????鴻?????<?ゃ????
21     function GetSkinNewResFileName: string;
22     //! ???亥?????鴻?????<?ゃ????
23     function GetSkinResFileName: string;
24     //! ??????(?????障?ц?????)?????<?ゃ????
25     function GetSkinBookmarkFileName: string;
26     //! ??????(?亥???????????<?ゃ????
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     //! ?鴻???潟???<?ゃ????荐??
41     procedure TSkinFiles.SetFileName(AFileName: string);
42     begin
43     // ???c???????????翫????緇????х??????
44     if DirectoryExists(AFileName) then begin
45     // \ ?х??????????????
46     FFileName := IncludeTrailingPathDelimiter(AFileName);
47     end else begin
48     FFileName := AFileName;
49     end;
50     end;
51     //! Skin:???????????<?ゃ????
52     function TSkinFiles.GetSkinHeaderFileName: string;
53     begin
54     Result := FFileName + SKIN_HEADER_FILE_NAME;
55     end;
56    
57     //! Skin:?????帥?????<?ゃ????
58     function TSkinFiles.GetSkinFooterFileName: string;
59     begin
60     Result := FFileName + SKIN_FOOTER_FILE_NAME;
61     end;
62    
63     //! Skin:?亥?????鴻?????<?ゃ????
64     function TSkinFiles.GetSkinNewResFileName: string;
65     begin
66     Result := FFileName + SKIN_NEWRES_FILE_NAME;
67     end;
68    
69     //! Skin:???亥?????鴻?????<?ゃ????
70     function TSkinFiles.GetSkinResFileName: string;
71     begin
72     Result := FFileName + SKIN_RES_FILE_NAME;
73     end;
74    
75     //! Skin:??????(?????障?ц?????)?????<?ゃ????
76     function TSkinFiles.GetSkinBookmarkFileName: string;
77     begin
78     Result := FFileName + SKIN_BOOKMARK_FILE_NAME;
79     end;
80    
81     //! Skin:??????(?亥???????????<?ゃ????
82     function TSkinFiles.GetSkinNewmarkFileName: string;
83     begin
84     Result := FFileName + SKIN_NEWMARK_FILE_NAME;
85     end;
86     end.

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