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.108 by h677, Mon May 29 14:54:52 2006 UTC revision 1.109 by h677, Mon Jun 26 14:56:59 2006 UTC
# Line 2160  procedure TSetting.SetUseCSS( value: Boo Line 2160  procedure TSetting.SetUseCSS( value: Boo
2160  begin  begin
2161    
2162          FUseCSS := value;          FUseCSS := value;
2163            // Windows的にファイルパスの大文字小文字の違いは無視されるので、
2164            // ココでの判定でも大文字小文字の違いは無視する。
2165          FUseSkin :=          FUseSkin :=
2166                  UseCSS and                  UseCSS and
2167                  (Pos( GetSkinDir, CSSFileName ) > 0) and                  (Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(CSSFileName) ) > 0) and
2168                  FileExists( GetSkinHeaderFileName );                  FileExists( GetSkinHeaderFileName );
2169    
2170  end;  end;
# Line 2172  procedure TSetting.SetCSSFileName( fileN Line 2173  procedure TSetting.SetCSSFileName( fileN
2173  begin  begin
2174    
2175          FCSSFileName := fileName;          FCSSFileName := fileName;
2176            // Windows的にファイルパスの大文字小文字の違いは無視されるので、
2177            // ココでの判定でも大文字小文字の違いは無視する。
2178          FUseSkin :=          FUseSkin :=
2179                  UseCSS and                  UseCSS and
2180                  (Pos( GetSkinDir, CSSFileName ) > 0) and                  (Pos( AnsiLowerCase(GetSkinDir), AnsiLowerCase(CSSFileName) ) > 0) and
2181                  FileExists( GetSkinHeaderFileName );                  FileExists( GetSkinHeaderFileName );
2182    
2183  end;  end;

Legend:
Removed from v.1.108  
changed lines
  Added in v.1.109

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