How to set the way an image is placed in the document

Stef Merlijn

Hi,

In MS Word one can set the way an image is placed in the document, like: In Text, Behind the text, in front of the text, text above and below etc.

Is there a way to do this in WPTool TWPRichText?
Is there a build-in menu available for image-manipulation (like the one for tables)?

support

Hi,

Currently thete is no dialog box for this, although this is planned.

But you can implement a popup menu

Code

procedure TWPTBXForm.WPRichText1TextObjectMouseDown(  Sender: TWPCustomRtfEdit; pobj: TWPTextObj; obj: TWPObject;  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin  if Button = mbRight then  begin    WPRichText1.SelectedObject := pobj;    GrPopup.Popup(Mouse.CursorPos.x, Mouse.CursorPos.y);  end;end;

Which uses code like this to change the modes of a graphic.

Code

procedure TWPTBXForm.CharModeClick(Sender: TObject);
begin
  if 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;
      6: // Image under Text !
        begin
          if wpobjObjectUnderText in WPRichText1.SelectedObject.Mode then
            WPRichText1.SelectedObject.Mode := WPRichText1.SelectedObject.Mode - [wpobjObjectUnderText]
          else
            WPRichText1.SelectedObject.Mode := WPRichText1.SelectedObject.Mode +
              [wpobjObjectUnderText];
          WPRichText1.ReformatAll(false, true);
        end;
      7: // SaveIMG
        begin
          if (WPRichText1.SelectedObject.ObjRef <> nil) then
          begin
            SaveDialogImg.Filter :=
              WPRichText1.SelectedObject.ObjRef.FileExtension + ' Files|*.'
              + WPRichText1.SelectedObject.ObjRef.FileExtension;
            if SaveDialogImg.Execute then
            begin
              WPRichText1.SelectedObject.ObjRef.SaveToFile(SaveDialogImg.FileName);
            end;
          end;
        end;
       8: // Rotate Left
       begin
        {$IFDEF WP6}
          WPRichText1.SelectedObject.ObjRef.Rotation :=
             WPRichText1.SelectedObject.ObjRef.Rotation + 90;
        {$ENDIF}
        end;


    end;
end;

Alles anzeigen