RichText to TPlannerItem

How can I copy text in a TAdvRichEditor to a TPlannerItem?



I want to keep the formating.



Regards,

Ole



To move the content of TAdvRichEditor with formatting to a selected PlannerItem, following code can be used:



begin
  if Assigned(planner1.Items.Selected) then
  begin
    planner1.Items.Selected.Text.Text := advricheditor1.ContentAsRTF;
  end;
end;