Indenting a header/footer with HTML code

Fuscus

Hi all,
My client wants headers and footers to have a a different margin from the body. I am able to do it using input text but the input is not plain text, it will contain merge fields and are stored as HTML (See sample Input). The code workes perfectly if I enter in a plain string but entering in HTML it will indent the first <Div> but not subsequent <div>s. What happens is that the reader divides the HTML up into paragraphs and only indents the first as can be plainly seen in the sample output ( Note : input was cTestText for the header and cTestHTML for the footer). In particular look at line 4 of the rtf output and notice the indents have been reset.
How do I make the indent continue thoughout the header/footer?

Thanks in advance

sample Input

Zitat

cTestText =
'Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test ';

cTestHTML =
'<html>' +
'<body>' +
'<div>' +
'<b>** Right **</b>' +
'</div>' +
'<div>' +
'<b>** Left **</b>' +
'</div>' +
'<div>' +
'<b>** Center **</b>' +
'</div></body></html>';

Alles anzeigen

Delphi Code IndentedHeaderFooter

Zitat

procedure TForm1.IndentedHeaderFooter(AWP: TWPRichText; Kind: TWPPagePropertyKind;
AStr: string);
var
par: TParagraph;
I: Integer;
begin
begin
AWP.HeaderFooter.Get(Kind, wpraOnAllPages).Clear(true);
par := AWP.HeaderFooter.Get(Kind, wpraOnAllPages).FirstPar;
AWP.Header.MarginHeader := 100;
AWP.Header.MarginFooter := 100;
par.ClearText;
AWP.HeaderFooter.Get(Kind, wpraOnAllPages).WorkOnText := True;
AWP.SelectionAsString := AStr;
SetIndents(AWP.HeaderFooter.Get(Kind, wpraOnAllPages).FirstPar, -editMovementMargins.value);
AWP.ReformatAll(True, True);
end;
end;

procedure TForm1.SetIndents(par: TParagraph; AIndent: integer);
var
I: Integer;
begin
par.indentleft := AIndent;
par.indentright := AIndent;
for I := 0 to par.ChildrenCount - 1 do
SetIndents(par.Children[I], AIndent);
end;

Alles anzeigen

SAMPLE OUTPUT (RTF)

Zitat

{{{\header{\li-800\ri-800\plain\fs22 Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test Test \par
}}
{\footer{\pard\plain\li-800\ri-800\plain\fs22\b ** Right **\par
\li0\ri0\plain\fs22\b ** Left **\par
\qc\plain\fs22\b ** Center **\par
}}
\pard\plain\plain\f0\fs22 Page 1\par
\pard\plain\plain\f0\fs22\par
\plain\f0\fs22 XXXX\par
}}

Alles anzeigen

Fuscus

Looks like I solved it

Zitat

procedure TForm1.SetIndents(par: TParagraph; AIndent: integer);
var
I: Integer;
begin
if par <> nil then
begin
par.indentleft := AIndent;
par.indentright := AIndent;
SetIndents(par.NextPar,AIndent);
end;
end;

Alles anzeigen

Fuscus

Still a small problem, a HTML table won't resize beyond the page margins

support

Hi,

To specify left and right aligment of a table use the properties WPAT_BoxMarginLeft and WPAT_BoxMarginRight.

Code

A table usually uses the complete text area, this is the page width minus the left and right margins. 


 


Property to set the width in twips: WPAT_BoxWidth 


 


Property to set the width in percent * 100  of the page width


WPAT_BoxWidth_PC 


 


Offset from the left margin. Can be negative to be to the lefgt of the text area.


WPAT_BoxMarginLeft 


 


Offset from the left margin. If negative the table is extended into the margin area


WPAT_BoxMarginRight


 


Horizontal Alignment of the table: WPAT_Box_Align:


possible values are WPBOXALIGN_RIGHT and WPBOXALIGN_HCENTERTEXT


 


The column width is defined by the properties WPAT_ColWidth and WPAT_ColWidth_PC. The first is the width in twips, the latter is the width in percent * 10 (Example: 1000 sets a width of 10%). 


 


WPAT_ColWidth has priority over WPAT_ColWidth_PC. You will need to delete the WPAT_ColWidth flag if you need to set the width in percent.


 


   CurrPar.ParADel(WPAT_ColWidth)


   CurrPar.ParASet(WPAT_ColWidth_PC, 1000); // 10%


 


You can read the current width of a cell using the method cell.IsWidthTW. The text must be formatted. Once the user resizes columns in a table all widths which are defined by a percent value will be converted into exact WPAT_ColWidth values. You can force this conversion for the complete text using the function WPRichText.TableFixAllCellWidths. This method can also round the width values suing a 'snap value'. The method TableAdjustCellWidth can be used to recalculate the width of all columns to keep them visible.


 


The property WPAT_BoxMinHeight can be used with table rows to set the minimum height of a table row. 


WPAT_BoxMaxHeight is used to set the maximum width. Both properties will be ignored in cells which are merged vertically. They can be used together when using WPT format, in RTF only the minimum value can be preserved if both are used.

Alles anzeigen

You can use WP.Table.ASet to set the property if the cursor is currently in a table.

Julian

Fuscus

Thanks for your reply.
I had manged to work it out on my own about an hour before your post using WPAT_BoxMarginLeft and turning of the max box width. But your suggesttion has made the code alot neater

Code

procedure TForm1.SetIndents(par: TParagraph; AIndent: integer);
begin
  if par <> nil then
  begin
    if par.IsTable then
    begin
      par.ASet(WPAT_BoxMarginLeft, AIndent);
      par.ASet(WPAT_BoxMarginRight, AIndent);
    end;
    par.indentleft := AIndent;
    par.indentright := AIndent;
    SetIndents(par.NextPar, AIndent);
  end;
end;

Alles anzeigen

[/quote]