Any one know why this is returning this error .
not to sure why its invalid?
As you can see it doesnt take much to confuse me
Warning: TEXTCOPY HOBJECT1 - Handle to text object is not valid.
Warning: TEXTCOPY TEXTS - Handle to text object is not valid.
Var
px,py,px2,py2,texts:Real;
Hobject1,Hsymbol,Hobject2,Hsymbol2:Handle;
DummyVar,dummyvar2:Integer;
Begin
AlrtDialog('Pick text to copy');
WHILE Not GetPickObjectInfo(pX,pY,hObject1,hSymbol,dummyVar) DO BEGIN
GetPt(pX,pY);
texts:=GetTextSize(hobject1,1);
END;
AlrtDialog('Pick next text to change');
WHILE NOT GetPickObjectInfo(pX2,pY2,hObject2,hSymbol2,dummyVar2) DO BEGIN
GetPt(pX2,pY2);
SetTextSize(hobject2,1,100,texts);
END;
Cheers in advance
Brendan