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
[-]
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