Hi
You have a few options here:
1. Use two layers:
ImageEnView1.LayersAdd( ielkImage, 0, 0, ImageEnView1.ClientWidth div 2, ImageEnView1.ClientHeight );
ImageEnView1.IO.LoadFromFile( 'D:\im.jpg' );
TIEImageLayer( ImageEnView1.CurrentLayer ).RestoreAspectRatio();
ImageEnView1.LayersAdd( ielkImage, ImageEnView1.ClientWidth div 2, 0, ImageEnView1.ClientWidth div 2, ImageEnView1.ClientHeight );
ImageEnView1.IO.LoadFromFile( 'D:\im2.jpg' );
TIEImageLayer( ImageEnView1.CurrentLayer ).RestoreAspectRatio();
http://www.imageen.com/help/TIEImageLayer.html
2. Custom draw the two images:
procedure TForm1.ImageEnView1DrawCanvas(Sender: TObject; ACanvas: TCanvas; ARect: TRect);
var
bmp1, bmp2: TIEBitmap;
begin
bmp1 := TIEBitmap.Create();
bmp2 := TIEBitmap.Create();
bmp1.LoadFromFile( 'D:\im.jpg' );
bmp1.RenderToCanvas( ACanvas, Rect( 0, 0, ImageEnView1.ClientWidth div 2, ImageEnView1.ClientHeight ), rfFastLinear, 0, clWhite, True );
bmp2.LoadFromFile( 'D:\im2.jpg' );
bmp2.RenderToCanvas( ACanvas, Rect( ImageEnView1.ClientWidth div 2, 0, ImageEnView1.ClientWidth, ImageEnView1.ClientHeight ), rfFastLinear, 0, clWhite, True );
bmp1.Free();
bmp2.Free();
end;
http://www.imageen.com/help/TImageEnView.OnDrawCanvas.html
3. Use a TImageEnMView
http://www.imageen.com/help/TImageEnMView.html
Nigel
Xequte Software
www.imageen.com