Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.515.2.9 by h677, Thu Jun 30 16:08:51 2005 UTC revision 1.515.2.10 by h677, Thu Jun 30 16:32:52 2005 UTC
# Line 1881  end; Line 1881  end;
1881  //  //
1882  //  //
1883  procedure TGikoForm.FormShow(Sender: TObject);  procedure TGikoForm.FormShow(Sender: TObject);
 var  
         i       :Integer;  
1884  begin  begin
1885          if FStartUp then begin          if FStartUp then begin
1886                  ShowWindow(Application.Handle, SW_HIDE);                  ShowWindow(Application.Handle, SW_HIDE);
# Line 10916  begin Line 10914  begin
10914  end;  end;
10915    
10916  procedure TGikoForm.SetFocusForThreadListActionExecute(Sender: TObject);  procedure TGikoForm.SetFocusForThreadListActionExecute(Sender: TObject);
 var  
         rct: TRect;  
10917  begin  begin
10918          if FActiveContent <> nil then          if FActiveContent <> nil then
10919                  WebBrowserClick(FActiveContent.Browser); //一回Browserに当てないと動かないときがある                  WebBrowserClick(FActiveContent.Browser); //一回Browserに当てないと動かないときがある

Legend:
Removed from v.1.515.2.9  
changed lines
  Added in v.1.515.2.10

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