I do not know why the TEdit action functions with a modal form, but does not work when using a modeless form. Nigel may know or perhaps other problem websites like Stackoverflow may provide and answer. There is no TImageEnVect action that copies the vectorial objects text to the clipboard so I added come code to TImageEnVectorial events to copy the selected object's text to the clipboard. This seems to solve your problem.
The code I used was this:
procedure TForm2.ImageEnVect1TextEdit(Sender: TObject; hobj: Integer; VisualObject: TObject);
var
i: integer;
begin
for i := 0 to ImageEnVect1.SelObjectsCount - 1 do
begin
HObj := ImageEnVect1.GetObjFromIndex(i);
if ImageEnVect1.IsSelObject(HObj) then
begin
if HObj <> -1 then
begin
Clipboard.AsText := ImageEnVect1.ObjText[HObj]
end;
end;
end;
end;
I also added the code to two other TImageEnVect events.
So for the moment, the function you are trying to achieve works, but it does not explain the modeless problem with the action.
You may download a revised demo here:
attach/w2m/201686131340_VectorialAnnotations.zip
198.14 KB
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development
Search
