Beiträge von pablobozzi

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;