Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/GikoSystem.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 215 |
FSetting := TSetting.Create; |
FSetting := TSetting.Create; |
| 216 |
FDolib := TDolib.Create; |
FDolib := TDolib.Create; |
| 217 |
FAWKStr := TAWKStr.Create(nil); |
FAWKStr := TAWKStr.Create(nil); |
| 218 |
FAbon := TAbon.Create; |
if DirectoryExists(GetConfigDir) = false then begin |
| 219 |
FAbon.Setroot(GetConfigDir+NGWORDs_DIR_NAME); |
CreateDir(GetConfigDir); |
| 220 |
//FAbon.SetNGwordpath(DEFAULT_NGWORD_FILE_NAME); |
end; |
| 221 |
FAbon.GoHome; |
FAbon := TAbon.Create; |
| 222 |
FSelectResFilter := TAbon.Create; |
FAbon.Setroot(GetConfigDir+NGWORDs_DIR_NAME); |
| 223 |
//FSelectResFilter.Setroot( GetAppDir ); |
//FAbon.SetNGwordpath(DEFAULT_NGWORD_FILE_NAME); |
| 224 |
// 絞らない場合は False なのでいらない |
FAbon.GoHome; |
| 225 |
// FSelectResFilter.Reverse := True; |
FSelectResFilter := TAbon.Create; |
| 226 |
// 絞り込むときは極力一覧が見られるほうがいいので他は完全に削除 |
// 絞り込むときは極力一覧が見られるほうがいいので他は完全に削除 |
| 227 |
FSelectResFilter.AbonString := ''; |
FSelectResFilter.AbonString := ''; |
| 228 |
end; |
end; |
| 229 |
|
|
| 230 |
(************************************************************************* |
(************************************************************************* |
|
|
Legend:
| Removed from v.1.16 |
|
| changed lines |
| |
Added in v.1.17 |
|
|
|