如何在DevXtraGrid中找到單元格的座標？使用Testcomplete

Question

我試圖拖動從一個DevXtraGrid到另一個細胞，而不使用座標使用下面的代碼

<code> 
Sub DragAndDropItems(ReqObjectToMove,DestControl) 
Dim XPos ,YPos ,dX ,dY 
LogFolder = Log.CreateFolder("Draging and dropping item ") 
Log.PushLogFolder(LogFolder) 
XPos = ReqObjectToMove.Left+ReqObjectToMove.Width/2 
YPos = ReqObjectToMove.Top+ReqObjectToMove.Height/2 
dX = DestControl.ScreenLeft - ReqObjectToMove.ScreenLeft 
dY = DestControl.ScreenTop - ReqObjectToMove.ScreenTop 
Call ReqObjectToMove.Drag(XPos, YPos, dX, dY) 
Log.PopLogFolder 
End Sub 

我怎樣才能用這個據此任何建議，將不勝感激。

Answer 1

試試這個代碼：

Sub Test 
    Set grid = Sys.Process("GridMainDemo").WinFormsObject("frmMain").WinFormsObject("panelControl1").WinFormsObject("gcContainer").WinFormsObject("TableView").WinFormsObject("gridControl1") 
    Sys.Process("GridMainDemo").WinFormsObject("frmMain").Activate 
    Call DragNDropCell(grid, 2, 3, 5, 2) 
End Sub 

Sub DragNDropCell(grid, sourceRow, sourceCol, destRow, destCol) 
    Set source = grid.MainView.ViewInfo.GetGridCellInfo_2(sourceRow, sourceCol) 
    Set dest = grid.MainView.ViewInfo.GetGridCellInfo_2(destRow, destCol) 
    x = source.Bounds.Left + source.Bounds.Width/2 
    y = source.Bounds.Top + source.Bounds.height/2 
    dX = dest.Bounds.Left - source.Bounds.Left + dest.Bounds.Width/2 
    dY = dest.Bounds.Top - source.Bounds.Top + dest.Bounds.Height/2 

    Call grid.Drag(x, y, dX, dY) 
End Sub 

如果你有卡的佈局工作，使用此代碼：

Sub Test_CardLayout 
    Set grid = Sys.Process("GridMainDemo").WinFormsObject("frmMain").WinFormsObject("panelControl1").WinFormsObject("gcContainer").WinFormsObject("CardViewControl").WinFormsObject("gridControl1") 
    Sys.Process("GridMainDemo").WinFormsObject("frmMain").Activate 
    Call DragNDropCellCardLayout(grid, 0, 2) 
End Sub 

Sub DragNDropCellCardLayout(grid, sourceCardIndex, destCardIndex) 
    Set source = grid.MainView.ViewInfo.Cards.Item(sourceCardIndex) 
    Set dest = grid.MainView.ViewInfo.Cards.Item(destCardIndex) 
    x = source.Bounds.Left + source.Bounds.Width/2 
    y = source.Bounds.Top + source.Bounds.height/2 
    dX = dest.Bounds.Left - source.Bounds.Left + dest.Bounds.Width/2 
    dY = dest.Bounds.Top - source.Bounds.Top + dest.Bounds.Height/2 

    Call grid.Drag(x, y, dX, dY) 
End Sub