ShowSolarizeDlg example for Delphi
procedure TForm1.ShowSolarizeDlg1Click(Sender: TObject);
var
nRet: L_INT;
begin
LEADDlgColor1.DlgFlags:= DLG_SOLARIZE_SHOW_PREVIEW Or
DLG_SOLARIZE_SHOW_TOOL_ZOOMLEVEL;
LEADDlgColor1.LEADImage:= LEADImage1;
LEADDlgColor1.LEADDlgService:= LEADDlgService1;
nRet:= LEADDlgColor1.ShowSolarizeDlg ( Self );
if ( nRet = SUCCESS_DLG_OK ) then
begin
LEADImage1.Solarize ( LEADDlgColor1.Threshold );
end;
end;