Salto de pagina RichEdit

[roman]

He estado estos dos días tratando de encontrar una repuesta y resultó ser más difícil de lo que pensaba

Hace tres años respondí lo que respondí porque, en efecto, el RxRichEdit es capaz de imprimir los saltos de página -que corresponden a la instrucción \page de RTF. Comprobar esto es muy sencillo. Basta, por ejemplo, abrir MS Word, insertar ahí un salto de página, copiarlo y pegarlo en un RxRichEdit. Si esto mismo lo hacen en un RichEdit normal, el salto de página no se imprime.

Pero una cosa es saber que el RxRichEdit es capaz de imprimir saltos de página y otra muy distinta es insertar dichos saltos.

En principio, la solución es fácil:

Código Delphi [-]
var
  Paragraph: TParaFormat2;

begin
  FillChar(Paragraph, SizeOf(Paragraph), 0);
  Paragraph.cbSize := SizeOf(Paragraph);
  Paragraph.dwMask := PFM_PAGEBREAKBEFORE;
  Paragraph.dwReserved := PFE_PAGEBREAKBEFORE;
  RichEdit1.Perform(EM_SETPARAFORMAT, 0, LParam(@Paragraph));
end;

Al menos así lo indica la documentación.

Pero, al parecer no tiene ningún efecto. Al menos a mi no me funciona y en varios lugares he visto mencionado que el control RichEdit nativo hace caso omiso de esta modalidad del PARAFORMAT2.

Sin embargo, el RichEdit admite una forma de insertar texto o código RTF mediante el mensaje EM_STREAMIN. Este mensaje proporciona una función callback que es la encargada de proveer de datos al control. Ya hay por aquí en el club un código que usa este mensaje, pero cuando lo probé algo no me funcionó o posiblemente no lo utilicé correctamente. El caso es que finalmente me hice de un par de funciones para solucionar esto, que traté de simplificar lo más posible.

Código Delphi [-]
// Función de retrollamada (Al González dixit)
function ReadFromStream(
  dwCookie: Longint; pbBuff: PByte;
  cb: Longint; var pcb: Longint): Longint; stdcall;
begin
  Result := 0;
  pcb := TStream(dwCookie).Read(pbBuff^, cb);
end;

procedure InsertRtf(RichEdit: TRxRichEdit; Text: String);
var
  EditStream: TEditStream;
  Stream: TStringStream;

begin
  Stream := TStringStream.Create(Text);

  try
    EditStream.dwCookie := Integer(Stream);
    EditStream.dwError := 0;
    EditStream.pfnCallback := ReadFromStream;

    RichEdit.Perform(EM_STREAMIN, SF_RTF or SFF_SELECTION, LParam(@EditStream));
  finally
    Stream.Free;
  end;
end;

Deben incluirse las unidades RichEdit y RxRichEd. La función a usar es InsertRtf, que, en principio, serviría para insertar cualquier código RTF. Para el caso de un salto de página, sería así:

Código Delphi [-]
InsertRtf(RxRichEdit1, '{\rtf1 \page}');

Con esto se tendrá el buscado salto de página en el punto donde se localice el cursor.

// Saludos