Provide a Graphic Popup Menu

Please insert this popup menu ito your form:

object GraphicPopupMenu: TPopupMenu

Left = 675

Top = 443

object ascharacter1: TMenuItem

   Tag = 1

   Caption = 'as character'

end

object reltoparautowrap1: TMenuItem

   Tag = 2

   Caption = 'rel. to par - auto wrap left or right'

end

object reltoparwrapleftandright1: TMenuItem

   Tag = 3

   Caption = 'rel to par - wrap left and right'

end

object reltopagenowrappng1: TMenuItem

   Tag = 4

   Caption = 'rel. to page - no wrappng'

end

object reltopagewrapleftandright1: TMenuItem

   Tag = 5

   Caption = 'rel. to page - wrap left and right'

end

end

Now select all items and create a one OnClick event for all menu items:

In C++ Builder use this code:

void __fastcall TForm1::GraphicOptionsClick(TObject *Sender)

{

if (WPRichText1->SelectedObject)

{

   switch ((((TComponent *)Sender)->Tag))

   {

     case 1: WPRichText1->SelectedObject->PositionMode = wpotChar;

        break;

     case 2:

         WPRichText1->SelectedObject->Wrap = wpwrAutomatic;

         WPRichText1->SelectedObject->PositionMode = wpotPar;

       break;

     case 3:

         WPRichText1->SelectedObject->Wrap = wpwrBoth;

         WPRichText1->SelectedObject->PositionMode = wpotPar;

       break;

     case 4:

         WPRichText1->SelectedObject->Wrap = wpwrNone;

         WPRichText1->SelectedObject->PositionMode = wpotPage;

       break;

     case 5:

         WPRichText1->SelectedObject->Wrap = wpwrBoth;

         WPRichText1->SelectedObject->PositionMode = wpotPage;

       break;

    }

  }

}

In Delphi You can use this code:

procedure TWPForm1.GraphicOptionsClick(Sender: TObject);

begin

if (WPRichText1<>nil) and (WPRichText1.SelectedObject <> nil) then

   case (Sender as TComponent).Tag of

     1: WPRichText1.SelectedObject.PositionMode := wpotChar;

     2:

       begin

         WPRichText1.SelectedObject.Wrap := wpwrAutomatic;

         WPRichText1.SelectedObject.PositionMode := wpotPar;

       end;

     3:

       begin

         WPRichText1.SelectedObject.Wrap := wpwrBoth;

         WPRichText1.SelectedObject.PositionMode := wpotPar;

       end;

     4:

       begin

         WPRichText1.SelectedObject.Wrap := wpwrNone;

         WPRichText1.SelectedObject.PositionMode := wpotPage;

       end;

     5:

       begin

         WPRichText1.SelectedObject.Wrap := wpwrBoth;

         WPRichText1.SelectedObject.PositionMode := wpotPage;

       end;

   end;

end;