<< Click to Display Table of Contents >> Navigation:  Programming > Objects > Images > C) Work with images > 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;