Hi
Please email me for a test version that allows you to apply the values from ImageEnView1.Proc.DoPreviews to another image.
Here are some examples:
EXAMPLE 1
// Prompt user to specify color curve settings (using our "Editing" TImageEnView)
btnApplyCurve.Enabled := ImageEnView1.Proc.DoPreviews( [peColorCurve] );
// Apply specified color curve to current image (in our "Viewing" TImageEnView)
procedure TForm1.btnApplyCurveClick(Sender: TObject);
begin
ImageEnview1.Proc.ApplyPreviews( ImageEnView2 );
end;
EXAMPLE 2
// Allow user to specify a resampling value and apply it to all images in a folder
ssFiles := TStringList.Create;
GetFilesInFolder( ssFiles, 'D:\test\' ); // This is an example method only. It does not exist
if ImageEnView1.Proc.DoPreviews( [peResize] ) then
begin
for i := 0 to ssFiles.Count - 1 do
begin
bmp := TIEBitmap.Create;
bmp.Read( ssFiles[i] );
ImageEnView1.Proc.ApplyPreviews( bmp );
bmp.Write( ssFiles[i] );
bmp.Free;
end;
end;
ssFiles.Free;
EXAMPLE 3
// Allow the user to specify color curve settings
ImageEnView1.Proc.DoPreviews([peColorCurve]);
ImageEnView1.Proc.IPDialogParams.SaveToFile( ChangeFileExt( Application.ExeName, '.curvesettings' ));
// Apply saved color curve settings to the current image
ImageEnView1.Proc.IPDialogParams.LoadFromFile( ChangeFileExt( Application.ExeName, '.curvesettings' ));
ImageEnView1.Proc.ApplyPreviews( ImageEnView1 );
Nigel
Xequte Software
www.imageen.com