How can I get user settings from this Preview Window to apply them with ImageEnView1.Proc.Resample?
This is not possible with DoPreview. I do not believe DoPreview was designed to return any values. DoPreview does not provide any parameters so you can use Resample to resize yourself. You have to make a selection or set the selection parameters then call Resample with the selection parameters to resample the image. Or you can also create your own dialog that provides the NewWidth, NewHeight, FilterType and bMaintainAspectRatio parameters to pass to the resample procedure.
Create your own dialog with spinedit controls to return the newwidth, newheight values and a combobox that contains the Filtertypes and a checkbox to return the MaintainAspectRatio values:
if MyRresampleDialog.ShowModal = mrOk then
begin
NewWidth := MyResampleDialog.NewWidth1.Position;
NewHeight := MyResampleDialog.NewHeight1.Position;
FilterType := TResampleFilter(MyResampleDialog.FilterType1.ItemIndex);
MaintainAspectRatio := MyResampleDialog.MaintainAspectRatio1.Checked;
ImageEnView1.Proc.Resample(NewWidth, NewHeight, FilterType, MaintainAspectRatio);
end;
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development
Search
