Flip the IEBitmap in the selected layer and all selected bitmaps in the layer:
procedure TMainForm.Flip1Click(Sender: TObject);
var
i: Integer;
iIEBitmap: TIEBitmap;
begin
// flip the base IEBitmap in the selected layer
ImageEnVect1.IEBitmap.Flip(fdVertical);
// find and flip all iekBITMAP objects in the selected layer
for i := 0 to ImageEnVect1.SelObjectsCount - 1 do
if ImageEnVect1.ObjKind[ImageEnVect1.SelObjects[i]] = iekBITMAP then
begin
iIEBitmap := ImageEnVect1.ObjBitmap[i];
iIEBitmap.Flip(fdVertical);
end;
ImageEnVect1.Update;
end;
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development