ShowWindDlg example for Delphi
procedure TForm1.ShowWindDlg1Click(Sender: TObject);
var
nRet: L_INT;
begin
LEADDlgImgEffect1.Angle:= 4500;
LEADDlgImgEffect1.Dimension:= 40;
LEADDlgImgEffect1.DlgFlags:= DLG_WIND_SHOW_PREVIEW Or
DLG_WIND_SHOW_TOOL_ZOOMLEVEL;
LEADDlgImgEffect1.LEADImage:= LEADImage1;
nRet:= LEADDlgImgEffect1.ShowWindDlg ( Self );
if ( nRet = SUCCESS_DLG_OK ) then
begin
LEADImage1.Wind ( LEADDlgImgEffect1.Dimension,
LEADDlgImgEffect1.Angle,
LEADDlgImgEffect1.Opacity);
end;
end;