ShowZoomWaveDlg example for Delphi
procedure TForm1.ShowZoomWaveDlg1Click(Sender: TObject);
var
nRet: L_INT;
begin
LEADDlgImgEffect1.DlgFlags:= DLG_ZOOMWAVE_SHOW_PREVIEW Or
DLG_ZOOMWAVE_SHOW_TOOL_ZOOMLEVEL;
LEADDlgImgEffect1.LEADImage:= LEADImage1;
nRet:= LEADDlgImgEffect1.ShowZoomWaveDlg ( Self );
if ( nRet = SUCCESS_DLG_OK ) then
begin
LEADImage1.ZoomWave ( LEADDlgImgEffect1.Amplitude,
LEADDlgImgEffect1.Frequency,
LEADDlgImgEffect1.Phase,
LEADDlgImgEffect1.ZoomFactor,
LEADDlgImgEffect1.CenterPoint,
LEADDlgImgEffect1.FillColor,
LEADDlgImgEffect1.ZoomWaveFlags );
end;
end;