ShowCylindricalDlg Example for Visual Basic
Dim RasterImgEfxDlg As New LEADRasterDlgImgEfx
Dim RasterProc As New LEADRasterProcess
Dim nRet As Integer
Private Sub Cylindrical_Click()
RasterImgEfxDlg.UIFlags = CYLINDRICAL_SHOW_PREVIEW Or _
CYLINDRICAL_SHOW_TOOL_ZOOMLEVEL
RasterImgEfxDlg.Bitmap = LEADRasterView1.Raster.Bitmap
nRet = RasterImgEfxDlg.ShowCylindricalDlg(hWnd)
If (nRet = 0 And RasterImgEfxDlg.DialogStatus = DLG_OK) Then
RasterProc.Cylindrical LEADRasterView1.Raster, RasterImgEfxDlg.Value, _
RasterImgEfxDlg.ImageEffectFlags
End If
End Sub