Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/GikoSystem.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 3252 |
//! ギコナビのメッセージを設定する |
//! ギコナビのメッセージを設定する |
| 3253 |
procedure TGikoSys.SetGikoMessage; |
procedure TGikoSys.SetGikoMessage; |
| 3254 |
begin |
begin |
| 3255 |
|
if FGikoMessage = nil then begin |
| 3256 |
|
FGikoMessage := TGikoMessage.Create; |
| 3257 |
|
end else begin |
| 3258 |
|
FGikoMessage.Clear; |
| 3259 |
|
end; |
| 3260 |
|
|
| 3261 |
if (Setting.GengoSupport) then begin |
if (Setting.GengoSupport) then begin |
|
if FGikoMessage = nil then begin |
|
|
FGikoMessage := TGikoMessage.Create; |
|
|
end else begin |
|
|
FGikoMessage.Clear; |
|
|
end; |
|
| 3262 |
try |
try |
| 3263 |
if (FileExists(Setting.GetLanguageFileName)) then begin |
if (FileExists(Setting.GetLanguageFileName)) then begin |
| 3264 |
FGikoMessage.LoadFromFile(Setting.GetLanguageFileName); |
FGikoMessage.LoadFromFile(Setting.GetLanguageFileName); |
|
|
Legend:
| Removed from v.1.208 |
|
| changed lines |
| |
Added in v.1.209 |
|
|
|