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.527.2.9 by h677, Mon Nov 7 15:13:17 2005 UTC revision 1.527.2.10 by h677, Mon Nov 7 16:09:41 2005 UTC
# Line 3757  begin Line 3757  begin
3757                                  if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = ThreadItem then begin                                  if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = ThreadItem then begin
3758                                          Result := TBrowserRecord( BrowserTab.Tabs.Objects[i] );                                          Result := TBrowserRecord( BrowserTab.Tabs.Objects[i] );
3759                                          Result.Repaint := true;                                          Result.Repaint := true;
3760                                          Result.Movement := Movement;                                          if Movement <> '' then
3761                                                    Result.Movement := Movement;
3762                                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = nil then begin                                          if TBrowserRecord(BrowserTab.Tabs.Objects[i]).FBrowser = nil then begin
3763                                                  for j := BrowserTab.Tabs.Count - 1 downto 0 do begin                                                  for j := BrowserTab.Tabs.Count - 1 downto 0 do begin
3764                                                          if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin                                                          if TBrowserRecord(BrowserTab.Tabs.Objects[j]).FBrowser = TWebBrowser(FBrowsers[BROWSER_COUNT - 1]) then begin
# Line 3791  begin Line 3792  begin
3792                          //newBrowser.Browser.Navigate(BLANK_HTML);                          //newBrowser.Browser.Navigate(BLANK_HTML);
3793                          newBrowser.thread := ThreadItem;                          newBrowser.thread := ThreadItem;
3794                          newBrowser.Repaint := true;                          newBrowser.Repaint := true;
3795                          newBrowser.Movement := Movement;                          if Movement <> '' then
3796                                    newBrowser.Movement := Movement;
3797  //                      newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes;  //                      newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes;
3798    
3799                          BrowserTab.Tabs.InsertObject(0, GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);                          BrowserTab.Tabs.InsertObject(0, GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);
# Line 3818  begin Line 3820  begin
3820                          newBrowser.thread := ThreadItem;                          newBrowser.thread := ThreadItem;
3821  //                      newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes;  //                      newBrowser.OnlyHundred := GikoSys.OnlyAHundredRes;
3822                          newBrowser.Repaint := true;                          newBrowser.Repaint := true;
3823                          newBrowser.Movement := Movement;                          if Movement <> '' then
3824                                    newBrowser.Movement := Movement;
3825                          i := BrowserTab.Tabs.AddObject(GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);                          i := BrowserTab.Tabs.AddObject(GikoSys.GetShortName(ThreadItem.Title, 20), newBrowser);
3826                          if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 1) then begin                          if (not GikoSys.Setting.BrowserTabVisible) and (BrowserTab.Tabs.Count > 1) then begin
3827                                  DeleteTab( TBrowserRecord( BrowserTab.Tabs.Objects[ 0 ] ) );                                  DeleteTab( TBrowserRecord( BrowserTab.Tabs.Objects[ 0 ] ) );
# Line 9799  end; Line 9802  end;
9802  procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject);  procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject);
9803  begin  begin
9804    
9805          FClickNode := FavoriteTreeView.Selected;  //      FClickNode := FavoriteTreeView.Selected;
9806          FavoriteTreeViewReloadActionExecute( Sender );  //      FavoriteTreeViewReloadActionExecute( Sender );
9807    
9808  end;  end;
9809    
# Line 10545  begin Line 10548  begin
10548                  begin                  begin
10549                          FMouseDownPos.X := X;                          FMouseDownPos.X := X;
10550                          FMouseDownPos.Y := Y;                          FMouseDownPos.Y := Y;
10551                            if ssDouble in Shift then begin
10552                                    FClickNode := FavoriteTreeView.GetNodeAt( X, Y );
10553                                    if FClickNode <> nil then
10554                                            FavoriteTreeViewReloadActionExecute( Sender );
10555                            end;
10556                  end;                  end;
10557          mbMiddle:          mbMiddle:
10558                  begin                  begin
# Line 10615  end; Line 10623  end;
10623    
10624  procedure TGikoForm.FavoriteTreeViewMouseUp(Sender: TObject;  procedure TGikoForm.FavoriteTreeViewMouseUp(Sender: TObject;
10625    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
10626    var
10627            item : TTreeNode;
10628  begin  begin
   
10629          if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold) and          if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold) and
10630                   (abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin                   (abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin
10631                  FavoriteClick( TObject( FavoriteTreeView.Selected ) );                  item := FavoriteTreeView.GetNodeAt( X, Y );
10632                    if (item <> nil) and (TTreeNode(item) = FavoriteTreeView.Selected) then
10633                            FavoriteClick( TObject( FavoriteTreeView.Selected ) );
10634          end;          end;
   
10635  end;  end;
10636    
10637  destructor      TBrowserRecord.Destroy;  destructor      TBrowserRecord.Destroy;

Legend:
Removed from v.1.527.2.9  
changed lines
  Added in v.1.527.2.10

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