Hi Nigel,
I have tried both with the correct index and IEV_PREVIOUS_INSERTED_OBJECT, I still have the same problem. I have uninstalled and reinstalled ImageEN and still get the same results.
I already had a project working fine but now it doesn't work anymore. I need to be able to modify font properties of various Memo annotations and not just the last inserted or the next one to insert.
Here is the code for a demo project I started:
procedure TForm1.FormCreate(Sender: TObject);
begin
ImageEnVect1.ObjPenColor[-1] := clBlack;
ImageEnVect1.ObjBrushColor[-1] := clWhite;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
var
i, hobj:integer;
begin
for i := 0 to ImageEnVect1.ObjectsCount do
begin
hobj := ImageEnVect1.GetObjFromIndex( i );
ImageEnVect1.ObjFontHeight[hobj] := StrToInt(combobox1.Text);
end;
end;
procedure TForm1.btnTextClick(Sender: TObject);
begin
ImageEnVect1.MouseInteractVt := [miPutMemo];
end;
procedure TForm1.ImageEnVect1NewObject(Sender: TObject; hobj: Integer);
begin
ImageEnVect1.MouseInteractVt := [miObjectSelect];
end;
Jeremy
Search
