margins with OnMeasureTextPage

Hi,

I use the OnMeasureTextPage event to set a different left margin for page 1 :

if PageInfo.pagenr=1 then begin
PageInfo.MarginLeft := 3300;
PageInfo.Changed := True;
end else begin
PageInfo.MarginLeft := 1140;
PageInfo.Changed := True;
end;

Everything works fine for page 1 (see 1) :

[Blockierte Grafik: http://www.kainfo.ch/en_tete.jpg]

If I type some text at the bottom of page 1, and go on, it appears correctly on top of page 2 (see 2).

But, as soon as I type a carriage return, the width of the text is reduced (thought the right margin seems to be set OK) (see 3).
The text on page 2 takes the same total width than on page 1

Changing the margins manually on the ruler does not correct the problem...

NB : The text in the example above was typed in an edit field. But the behaviour is the same for text typed outside edit fields.

Any ideas ?

Thanks,
Attila[/img]

Hi,

I tried to set FormatOptions.wpDisableSpeedReformat to True, but the problem persists...

Attila

Hi,

I get the same error with the watermark demo :

[Blockierte Grafik: http://www.kainfo.ch/measuretext.jpg]

I changed the code of WPRichText1MeasureTextPage to :

if PageInfo.pagenr = 1 then begin
PageInfo.marginbottom := WPCentimeterToTwips(PR_Form_Height);
PageInfo.MarginLeft := 3300;
PageInfo.Changed := True;
end else begin
PageInfo.MarginLeft := 1140;
PageInfo.Changed := True;
end;

The margins are OK for the first paragraph of page 2, but from the 2nd paragraph on the right margin is wrong.

Attila

Maybe this helps debugging :

I noticed that the problem only arises when the margins of the subsequent pages grow.

Everything is OK (text is formatted correctly) if the margin of the first page is smaller than the margin of the other pages :

if PageInfo.pagenr = 1 then begin
PageInfo.MarginLeft := 1140;
PageInfo.Changed := True;
end else begin
PageInfo.MarginLeft := 3300;
PageInfo.Changed := True;
end;

If I set a greater margin for page 1, it seems that the text on page 2 'memorizes' and uses the width of the text on page 1 (see the screenshots of my previews posts) :

if PageInfo.pagenr = 1 then begin
PageInfo.MarginLeft := 3300;
PageInfo.Changed := True;
end else begin
PageInfo.MarginLeft := 1140;
PageInfo.Changed := True;
end;

This problem is blocking for our current projet....

Thanks,
Attila

Julian,

Do you know approximately when this problem will be addressed ?

(we've got about 150 users using the text editor every day and my boss is getting nervous...)

Thanks,
Attila

could you send me the code of your demo ?

thanks,
Attila

Julian,

Your screenshot does not show if the problem I mentioned is solved on your environment !

To reproduce my problem, do additionally the following :
- Go to the end of your text on page 2.
- Press ENTER (so you get a carriage return).
- Type a few lines of text (without typing ENTER) and see if the text goes all the way till the right margin or not...

btw, I can't compile the BTX demo...

Attila