Wrapping around graphics

rRowlands

Hello

I have searched how to wrap around paragraphs and looked at the Games demo.

I insert a graphic and also code the following to get word wrap:

RichText.SelectedObject.Wrap := wpwrBoth;
RichText.SelectedObject.Mode := [wpobjRelativeToParagraph];

If I then click on the graphic it moves and positions over the text. Why does it do this?

Also, I'm not too sure how to set the gap around the graphic. The text gets very close to it and I would like to move it further away.

Thanks.

Rob

support

Hi,

Normally the wrapping should work just fine - I am using this procedure for the graphics popup:

Code

procedure TWPDefAct.GraphicOptionsClick(Sender: TObject);
var obj: TWPTextObj;
begin
  if (WPRichText1 <> nil) and (WPRichText1.SelectedObject <> nil) then
  begin
    obj := WPRichText1.SelectedObject;
    case (Sender as TComponent).Tag of
      1: obj.PositionMode := wpotChar;
      2:
        begin
          obj.Wrap := wpwrAutomatic;
          obj.PositionMode := wpotPar;
        end;
      3:
        begin
          obj.Wrap := wpwrBoth;
          obj.PositionMode := wpotPar;
        end;
      4:
        begin
          obj.Wrap := wpwrNone;
          obj.PositionMode := wpotPage;
        end;
      5:
        begin
          obj.Wrap := wpwrBoth;
          obj.PositionMode := wpotPage;
        end;
      6: // Image under Text !
        begin
          if wpobjObjectUnderText in obj.Mode then
            WPRichText1.SelectedObject.Mode := obj.Mode - [wpobjObjectUnderText]
          else
            obj.Mode := obj.Mode + [wpobjObjectUnderText];
          WPRichText1.ReformatAll(false, true);
        end;
    end;
  end;
end;

Alles anzeigen

There is no property for a gap around the image.

Julian Ziersch

rRowlands

Thank you Julian.

Using your code I can get the text to wrap left and right which is what I need.

I still have a problem when I click on the graphic to drag it. When I click it jumps in front of the text and the text closes up behind. It also moves from it's position when I click.

Could it perhaps be the code I use to insert a graphic? I use

obj := Editor.WPRichText1.Memo.RTFData.TextObjects.Insert(WPLoadObjectFromFile(Editor.WPRichText1.Memo.RTFData,OpenDialog1.FileName), 0, 0);

Thanks.

Rob.

rRowlands

Julian

I have located the problem. I had some code in the WPRichText1TextObjectMouseDown event from long ago.

I also now use the default action to insert a graphic and it works fine.

Thanks for your help.

Rob.