ShowGrayScaleDlg example for Delphi
procedure TForm1.ShowGrayScaleDlg1Click(Sender: TObject);
begin
LEADDlgColor1.RedFactor:= 400;
LEADDlgColor1.GreenFactor:= 300;
LEADDlgColor1.BlueFactor:= 300;
LEADDlgColor1.DlgFlags:= DLG_GRAYSCALE_SHOW_PREVIEW Or
DLG_GRAYSCALE_SHOW_TOOL_ZOOMLEVEL;
LEADDlgColor1.LEADImage:= LEADImage1;
LEADDlgColor1.LEADDlgService:= LEADDlgService1;
LEADDlgColor1.ShowGrayScaleDlg ( Self );
end;