ShowEmbossDlg example for Delphi
procedure TForm1.ShowEmbossDlg1Click(Sender: TObject);
var
nRet: L_INT;
begin
LEADDlgImgEffect1.Direction:= EMBOSS_S;
LEADDlgImgEffect1.DlgFlags:= DLG_EMBOSS_SHOW_PREVIEW Or
DLG_EMBOSS_SHOW_TOOL_ZOOMLEVEL;
LEADDlgImgEffect1.LEADImage:= LEADImage1;
LEADDlgImgEffect1.LEADDlgService:= LEADDlgService1;
nRet:= LEADDlgImgEffect1.ShowEmbossDlg ( Self );
if ( nRet = SUCCESS_DLG_OK ) then
begin
LEADImage1.Emboss (LEADDlgImgEffect1.Direction,
LEADDlgImgEffect1.Depth );
end;
end;