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 by genyakun, Fri Oct 14 06:43:25 2005 UTC revision 1.528 by h677, Sun Nov 13 13:13:19 2005 UTC
# Line 9784  begin Line 9784  begin
9784  end;  end;
9785    
9786  procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject);  procedure TGikoForm.FavoriteTreeViewDblClick(Sender: TObject);
9787  begin  var
9788            mousePoint : TPoint;
9789          FClickNode := FavoriteTreeView.Selected;          item : TTreeNode;
9790          FavoriteTreeViewReloadActionExecute( Sender );          rect : TRect;
9791    begin
9792            mousePoint := Mouse.CursorPos;
9793            mousePoint := FavoriteTreeView.ScreenToClient(mousePoint);
9794            item := FavoriteTreeView.GetNodeAt(mousePoint.X, mousePoint.Y);
9795            //選択したアイテムと同じかチェック
9796            if item = FavoriteTreeView.Selected then begin
9797                    //表示している範囲と同じところかチェック
9798                    rect := item.DisplayRect(true);
9799                    //イメージ分左に伸ばす
9800                    rect.Left := rect.Left - FavoriteTreeView.Images.Width;
9801                    if ((mousePoint.X >= rect.Left) and (mousePoint.X <= rect.Right)) and
9802                            ((mousePoint.Y >= rect.Top) and (mousePoint.Y <= rect.Bottom)) then begin
9803                            FClickNode := FavoriteTreeView.Selected;
9804                            FavoriteTreeViewReloadActionExecute( Sender );
9805                    end;
9806            end;
9807  end;  end;
9808    
9809  procedure TGikoForm.FavoriteTreeViewLogDeleteActionExecute(  procedure TGikoForm.FavoriteTreeViewLogDeleteActionExecute(
# Line 10602  end; Line 10617  end;
10617    
10618  procedure TGikoForm.FavoriteTreeViewMouseUp(Sender: TObject;  procedure TGikoForm.FavoriteTreeViewMouseUp(Sender: TObject;
10619    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);    Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
10620    var
10621            item : TTreeNode;
10622            rect : TRect;
10623  begin  begin
   
10624          if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold) and          if (abs( X - FMouseDownPos.X ) < Mouse.DragThreshold) and
10625                   (abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin                   (abs( Y - FMouseDownPos.Y ) < Mouse.DragThreshold) then begin
10626                  FavoriteClick( TObject( FavoriteTreeView.Selected ) );                  item := FavoriteTreeView.GetNodeAt(X, Y);
10627                    if item = FavoriteTreeView.Selected then begin
10628                            //イメージ範囲を取得
10629                            rect := FavoriteTreeView.Selected.DisplayRect(true);
10630                            //アイコン分左に伸ばす
10631                            rect.Left := rect.Left - FavoriteTreeView.Images.Width;
10632                            if ((X >= rect.Left) and (X <= rect.Right)) and
10633                                    ((Y >= rect.Top) and (Y <= rect.Bottom)) then begin
10634                                    FavoriteClick( TObject( FavoriteTreeView.Selected ) );
10635                            end;
10636                    end;
10637          end;          end;
   
10638  end;  end;
10639    
10640  destructor      TBrowserRecord.Destroy;  destructor      TBrowserRecord.Destroy;

Legend:
Removed from v.1.527  
changed lines
  Added in v.1.528

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