Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas

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

revision 1.70 by h677, Tue Sep 23 11:06:17 2008 UTC revision 1.71 by h677, Sat Dec 13 03:58:29 2008 UTC
# Line 4569  procedure TGikoDM.UpdateGikonaviActionEx Line 4569  procedure TGikoDM.UpdateGikonaviActionEx
4569  var  var
4570      form : TUpdateCheckForm;      form : TUpdateCheckForm;
4571          Msg: string;          Msg: string;
4572        shutdown: boolean;
4573  begin  begin
4574          if (EditorFormExists) then begin          if (EditorFormExists) then begin
4575                  Msg := 'レスエディタを全て閉じてください';                  Msg := 'レスエディタを全て閉じてください';
4576                  MsgBox(GikoForm.Handle, Msg, MSG_ERROR, MB_OK or MB_ICONSTOP);                  MsgBox(GikoForm.Handle, Msg, MSG_ERROR, MB_OK or MB_ICONSTOP);
4577                  Exit;                  Exit;
4578          end;          end;
4579        GikoForm.UpdateExePath := '';
4580        GikoForm.UpdateExeArgs := '';
4581      form := TUpdateCheckForm.Create(Self);      form := TUpdateCheckForm.Create(Self);
4582      try      try
4583          form.ShowModal;          form.ShowModal;
4584            shutdown := form.Allowshutdown;
4585            GikoForm.UpdateExePath := form.ExecPath;
4586            GikoForm.UpdateExeArgs := form.ExecArgs;
4587      finally      finally
4588          form.Release;          form.Release;
4589      end;      end;
4590        if shutdown then begin
4591            // ギコナビ終了
4592            GikoForm.Close;
4593        end;
4594    
4595  end;  end;
4596    
4597  end.  end.

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

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