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.306 by h677, Sun May 23 03:28:25 2004 UTC revision 1.307 by h677, Sun May 23 05:52:37 2004 UTC
# Line 3135  begin Line 3135  begin
3135  end;  end;
3136    
3137  procedure TGikoForm.WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer);  procedure TGikoForm.WorkEnd(Sender: TObject; AWorkMode: TWorkMode; Number: Integer);
 var  
         i: Integer;  
3138  begin  begin
 //      ProgressBar.Visible := False;  
3139          ProgressBar.Position := 0;          ProgressBar.Position := 0;
 //      SetProgressValue(Number, 0);  
3140          if FDownloadMax <> 0 then          if FDownloadMax <> 0 then
3141                  StatusBar.Panels[1].Text := FDownloadTitle + ' - ダウンロードが完了しました';                  StatusBar.Panels[1].Text := FDownloadTitle + ' - ダウンロードが完了しました';
3142  end;  end;
# Line 3297  begin Line 3293  begin
3293                          BrowserNullTab.Browser := Browser;                          BrowserNullTab.Browser := Browser;
3294                  end;                  end;
3295                  BrowserNullTab.thread := ThreadItem;                  BrowserNullTab.thread := ThreadItem;
3296                  BrowserNullTab.Browser.Navigate( 'about:blank' );                  BrowserNullTab.Browser.Navigate(BLANK_HTML);
3297                  SetWindowPos( BrowserNullTab.Browser.Handle, HWND_TOPMOST, 0, 0, BrowserPanel.Width, BrowserPanel.Height, SWP_NOACTIVATE or SWP_NOZORDER);                  SetWindowPos( BrowserNullTab.Browser.Handle, HWND_TOPMOST, 0, 0, BrowserPanel.Width, BrowserPanel.Height, SWP_NOACTIVATE or SWP_NOZORDER);
3298                  BrowserTab.TabIndex := -1;                  BrowserTab.TabIndex := -1;
3299                  SetContent(BrowserNullTab);                  SetContent(BrowserNullTab);
# Line 5243  begin Line 5239  begin
5239                  if TBrowserRecord(BrowserTab.Tabs.Objects[i]) = BrowserRecord then begin                  if TBrowserRecord(BrowserTab.Tabs.Objects[i]) = BrowserRecord then begin
5240                          BrowserTab.Tabs.BeginUpdate;                          BrowserTab.Tabs.BeginUpdate;
5241                          try                          try
5242                                  doc := TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser.Document;                                  if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin
5243                                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := doc.Body.ScrollTop;                                          doc := TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser.Document;
5244                                            TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := doc.Body.ScrollTop;
5245                                    end;
5246                          except                          except
5247                                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := 0;                                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := 0;
5248                          end;                          end;
# Line 5300  begin Line 5298  begin
5298                  if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = ThreadItem then begin                  if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = ThreadItem then begin
5299                          BrowserTab.Tabs.BeginUpdate;                          BrowserTab.Tabs.BeginUpdate;
5300                          try                          try
5301                                  doc := TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser.Document;                                  if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin
5302                                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := doc.Body.ScrollTop;                                          doc := TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser.Document;
5303                                            TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := doc.Body.ScrollTop;
5304                                    end;
5305                          except                          except
5306                                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := 0;                                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread.ScrollTop := 0;
5307                          end;                          end;
5308                          if(FActiveContent = TBrowserRecord(BrowserTab.Tabs.Objects[i])) then                          if(FActiveContent = TBrowserRecord(BrowserTab.Tabs.Objects[i])) then
5309                  FActiveContent := nil;                                  FActiveContent := nil;
5310                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser <> nil then begin
5311                                  j := FBrowsers.IndexOf(TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser);                                  j := FBrowsers.IndexOf(TBrowserRecord(BrowserTab.Tabs.Objects[i]).Browser);
5312                                  if j <> -1 then                                  if j <> -1 then
# Line 5608  begin Line 5608  begin
5608          BrowserTab.OnChange := nil;          BrowserTab.OnChange := nil;
5609          BrowserTab.Tabs.BeginUpdate;          BrowserTab.Tabs.BeginUpdate;
5610          for i := BrowserTab.Tabs.Count - 1 downto 0 do begin          for i := BrowserTab.Tabs.Count - 1 downto 0 do begin
                 if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser <> nil then  
                         TOleControl(TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser).Visible := false;  
5611                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free;                  TBrowserRecord(BrowserTab.Tabs.Objects[i]).Free;
5612          end;          end;
5613          BrowserTab.Tabs.Clear;          BrowserTab.Tabs.Clear;
# Line 5968  var Line 5966  var
5966          p: TPoint;          p: TPoint;
5967          p2: TPoint;          p2: TPoint;
5968          idx: Integer;          idx: Integer;
         OldIndex: Integer;  
5969  begin  begin
5970          if Button = mbMiddle then begin          if Button = mbMiddle then begin
5971                  // マウス中ボタン                  // マウス中ボタン
# Line 6310  begin Line 6307  begin
6307                  AddMessageList('ログアウトしました', nil, gmiOK);                  AddMessageList('ログアウトしました', nil, gmiOK);
6308                  LoginAction.Caption := 'ログイン(&L)';                  LoginAction.Caption := 'ログイン(&L)';
6309          end else begin          end else begin
         GikoSys.Dolib.DolibURL := GikoSys.Setting.DolibURL;  
6310                  TmpCursor := Screen.Cursor;                  TmpCursor := Screen.Cursor;
6311                  Screen.Cursor := crHourGlass;                  Screen.Cursor := crHourGlass;
6312                  try                  try
# Line 9923  var Line 9919  var
9919          iOIPAO          : IOleInPlaceActiveObject;          iOIPAO          : IOleInPlaceActiveObject;
9920          Dispatch        : IDispatch;          Dispatch        : IDispatch;
9921  begin  begin
9922            Result := False;
9923          if Key = VK_BACK then begin          if Key = VK_BACK then begin
9924                  UpBoardAction.Execute;                  UpBoardAction.Execute;
9925                  Result := True;                  Result := True;
# Line 9944  begin Line 9940  begin
9940                                          iOIPAO.TranslateAccelerator( Msg );                                          iOIPAO.TranslateAccelerator( Msg );
9941                          end;                          end;
9942                  end;                  end;
   
9943                  // ギコナビで使うショートカットは受け取りたいのでイベントはカットしない                  // ギコナビで使うショートカットは受け取りたいのでイベントはカットしない
9944                  Result := False;                  //Result := False;
9945          end;          end;
9946    
9947  end;  end;
# Line 9967  begin Line 9962  begin
9962                  end;                  end;
9963    
9964          WM_XBUTTONDOWN:          WM_XBUTTONDOWN:
9965                  case Msg.wParam shr 16 of          case Msg.wParam shr 16 of
9966                  XBUTTON1:                  XBUTTON1:
9967                          if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin                          if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
9968                                  if IsDialogMessage( FActiveContent.Browser.Handle, Msg ) then begin                                  if IsDialogMessage( FActiveContent.Browser.Handle, Msg ) then begin
# Line 9982  begin Line 9977  begin
9977                  end;                  end;
9978          end;          end;
9979    
9980          end;  end;
9981    
9982  procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject;  procedure TGikoForm.FavoriteTreeViewMouseDown(Sender: TObject;
9983          Button: TMouseButton; Shift: TShiftState; X, Y: Integer);          Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
# Line 10067  begin Line 10062  begin
10062                          Self.Thread.ScrollTop := doc.Body.ScrollTop;                          Self.Thread.ScrollTop := doc.Body.ScrollTop;
10063                          //doc.clear;                          //doc.clear;
10064                  end;                  end;
10065                  //Self.FBrowser.Free;                  TOleControl(Self.FBrowser).Visible := false;
10066          end;          end;
10067    
10068  end;  end;

Legend:
Removed from v.1.306  
changed lines
  Added in v.1.307

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