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.324 by yoffy, Thu Jun 3 10:03:03 2004 UTC revision 1.325 by yoffy, Thu Jun 3 10:16:26 2004 UTC
# Line 3717  begin Line 3717  begin
3717  //                              SetContent(ThreadItem);  //                              SetContent(ThreadItem);
3718                                  FHistoryList.Move(i, 0);                                  FHistoryList.Move(i, 0);
3719                                  if FTreeType = gttHistory then                                  if FTreeType = gttHistory then
3720                                          if TreeView.TopItem <> TreeView.Items[ i ] then                                          if TreeView.Items.GetFirstNode <> TreeView.Items[ i ] then
3721                                                  TreeView.Items[ i ].MoveTo( TreeView.TopItem, naInsert );                                                  TreeView.Items[ i ].MoveTo( TreeView.Items.GetFirstNode, naInsert );
3722                  Result := false;                                                                  Result := false;
3723                                  Exit;                                  Exit;
3724                          end;                          end;
3725                  end;                  end;
# Line 3733  begin Line 3733  begin
3733    
3734          if FTreeType = gttHistory then begin          if FTreeType = gttHistory then begin
3735                  Node := TreeView.Items.Add( nil, favItem.Title );                  Node := TreeView.Items.Add( nil, favItem.Title );
3736                  Node.MoveTo( TreeView.TopItem, naInsert );                  Node.MoveTo( TreeView.Items.GetFirstNode, naInsert );
3737                  {                  {
3738                  if favItem.NewArrival then begin                  if favItem.NewArrival then begin
3739                          Node.ImageIndex := ITEM_ICON_THREADNEW1;                          Node.ImageIndex := ITEM_ICON_THREADNEW1;
# Line 3899  begin Line 3899  begin
3899                          FTreeType := gtt2ch;                          FTreeType := gtt2ch;
3900                          HistoryToolBar.Hide;                          HistoryToolBar.Hide;
3901                          SetBoardTreeNode( inBBS );                          SetBoardTreeNode( inBBS );
3902                          TreeView.TopItem.Expanded := True;                              //?c???[?g?b?v???????J??                          TreeView.Items.GetFirstNode.Expanded := True;                           //?c???[?g?b?v???????J??
3903                          //?c???[??g?b?v?????I????                          //?c???[??g?b?v?????I????
3904                          if GetActiveList = nil then                          if GetActiveList = nil then
3905                                  TreeView.Selected := TreeView.Items[0]                                  TreeView.Selected := TreeView.Items[0]
# Line 3956  begin Line 3956  begin
3956                          FTreeType := gtt2ch;                          FTreeType := gtt2ch;
3957                          HistoryToolBar.Hide;                          HistoryToolBar.Hide;
3958                          SetBoardTreeNode( inBBS );                          SetBoardTreeNode( inBBS );
3959                          TreeView.TopItem.Expanded := True;                              //ツリートップ項目だけを開く                          TreeView.Items.GetFirstNode.Expanded := True;                           //ツリートップ項目だけを開く
3960                          //ツリーのトップ項目を選択する                          //ツリーのトップ項目を選択する
3961                          if GetActiveList = nil then begin                          if GetActiveList = nil then begin
3962                                  try                                  try
# Line 7743  var Line 7743  var
7743  begin  begin
7744    
7745          LinkToolButton := TLinkToolButton( Sender );          LinkToolButton := TLinkToolButton( Sender );
7746          SenderNode := TreeNodeDataFind( FavoriteTreeView.TopItem, LinkToolButton.Data );          SenderNode := TreeNodeDataFind( FavoriteTreeView.Items.GetFirstNode, LinkToolButton.Data );
7747    
7748          FavoriteDragDrop( SenderNode, Source );          FavoriteDragDrop( SenderNode, Source );
7749    
# Line 8813  begin Line 8813  begin
8813          CabinetHistoryAction.Checked := False;          CabinetHistoryAction.Checked := False;
8814    
8815          // お気に入りのツリーを展開          // お気に入りのツリーを展開
8816          FavoriteTreeView.TopItem.Expanded := True;          FavoriteTreeView.Items.GetFirstNode.Expanded := True;
8817    
8818  end;  end;
8819    
# Line 8914  begin Line 8914  begin
8914    
8915                  LinkToolButton := TLinkToolButton( Source );                  LinkToolButton := TLinkToolButton( Source );
8916                  //ShowMessage(LinkToolButton.Text);                  //ShowMessage(LinkToolButton.Text);
8917                  SourceNode := TreeNodeDataFind( FavoriteTreeView.TopItem, LinkToolButton.Data );                  SourceNode := TreeNodeDataFind( FavoriteTreeView.Items.GetFirstNode, LinkToolButton.Data );
8918                  FavoriteMoveTo( SenderNode, SourceNode );                  FavoriteMoveTo( SenderNode, SourceNode );
8919    
8920          end else if Source = BrowserTab then begin          end else if Source = BrowserTab then begin
# Line 10035  begin Line 10035  begin
10035                  end;}                  end;}
10036    
10037          WM_XBUTTONDOWN:          WM_XBUTTONDOWN:
10038          case Msg.wParam shr 16 of                  case Msg.wParam shr 16 of
10039                  XBUTTON1:                          XBUTTON1:
10040                  begin                          begin
10041                                  if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin                                          if (FActiveContent <> nil) and (FActiveContent.Browser <> nil) then begin
10042                                          if IsDialogMessage( FActiveContent.Browser.Handle, Msg ) then begin                                                  if IsDialogMessage( FActiveContent.Browser.Handle, Msg ) then begin
10043                                                  UpBoardAction.Execute;                                                          UpBoardAction.Execute;
10044                                                  Handled := True;                                                          Handled := True;
10045                                                  Break;                                                  end;
10046                                          end;                                          end;
10047                                  end;                                          if not Handled then begin
10048                                  if IsDialogMessage( ListView.Handle, Msg ) then begin                                                  if IsDialogMessage( ListView.Handle, Msg ) then begin
10049                                          UpFolderAction.Execute;                                                          UpFolderAction.Execute;
10050                                          Handled := True;                                                          Handled := True;
10051                                  end;                                                  end;
10052                  end;                                          end;
10053                  XBUTTON2:                          end;
10054                            XBUTTON2:
10055                  end;                  end;
10056          end;          end;
10057  end;  end;

Legend:
Removed from v.1.324  
changed lines
  Added in v.1.325

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