IMcTilingSetTilingOffsets Method |
![]() |
Namespace: MediaCy.IQL.Align
Sub SetTilingOffsets ( vTilingOffsets As Object )
With ThisApplication.ActiveImage.Tiling .SetSourceForTiling .SetTilingLayout 3, 3, mctoReverseY Dim OffsetsArr(0 To 8) As LONGPOINT Dim i, j For i = 0 To 2 For j = 0 To 2 'set calculated offsets OffsetsArr(i * 3 + j).X = j * 600 OffsetsArr(i * 3 + j).Y = i * 500 Next j Next i 'set offsets .SetTilingOffsets OffsetsArr .CreateTiledImage End With