When ImageEnVect is created at runtime it looks like it is important to create a bitmap before adding an object:
procedure TForm1.FormCreate(Sender: TObject);
var
hobj: integer;
begin
ImageEnVect := TImageEnVect.Create(self);
ImageEnVect.Parent := self;
ImageEnVect.Left := 0;
ImageEnVect.Top := 0;
ImageEnVect.Align := alClient;
ImageEnVect.Background := clBtnFace;
ImageEnVect.BorderStyle := bsSingle;
ImageEnVect.BackgroundStyle := iebsSolid;
ImageEnVect.IEBitmap.Allocate(640, 480); // Important
ImageEnVect.IEBitmap.Fill(clBtnFace);
ImageEnVect.Update;
ImageEnVect.AddNewObject(iekBOX, Rect(10, 10, 100, 100), clRed);
end;
William Miller
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html