Hi
I have this code (WPTools 3) and I'm trying to change for the version 5.
Can somebody help me?
Thanks.
Code
procedure TAtualFolderForm.MoveObjTo(obj: TWPObject; relx, rely: Integer);
var
P: PTTextObj;
begin
P := WPRichText1.Memo.FirstObj;
while p<>nil do begin
if p^.obj = obj then break;
p := p^.next;
end;
if P<>nil then begin
WPRichText1.TextObjects.ConvertType(P,wpotPar);
P^.relx := relx;
P^.rely := rely;
WPRichText1.Memo.Repaint;
end;
end;
Alles anzeigen