Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

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

revision 1.208 by h677, Mon Dec 12 14:12:56 2005 UTC revision 1.209 by h677, Tue Dec 13 15:33:38 2005 UTC
# Line 3252  end; Line 3252  end;
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

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