vmladino
18-11-2003, 17:14:57
Hola, necesitaba justificar un texto en un control TDBRichEdit de Delphi 4.0, para ello utilizamos el siguiente código:
var x : tparaformat;
cp : charrange;
Begin
cp.cpMin := 0;
cp.cpMax := length(text);
SendMessage(Handle, EM_EXSETSEL,0,LPARAM(@cp));
x.dwMask := PFM_ALIGNMENT;
x.wAlignment := PFA_JUSTIFY;
SendMessage(Handle, EM_SETPARAFORMAT, 0, LPARAM(@x));
Y funciono perfectamente, pero esto mismo lo necesito en el control TQRDBRichText (de QReport), aplico el código anterior pero no funciona.
Que cambios deberia hacer ....?
Ademas el codigo descrito se aplica sobre la propiedad Alignment, pero al utilizar el QReport deberia tambien aplicarse en el método print o el ya reconocerá el nuevo formato ..?
Gracias por la ayuda.
var x : tparaformat;
cp : charrange;
Begin
cp.cpMin := 0;
cp.cpMax := length(text);
SendMessage(Handle, EM_EXSETSEL,0,LPARAM(@cp));
x.dwMask := PFM_ALIGNMENT;
x.wAlignment := PFA_JUSTIFY;
SendMessage(Handle, EM_SETPARAFORMAT, 0, LPARAM(@x));
Y funciono perfectamente, pero esto mismo lo necesito en el control TQRDBRichText (de QReport), aplico el código anterior pero no funciona.
Que cambios deberia hacer ....?
Ademas el codigo descrito se aplica sobre la propiedad Alignment, pero al utilizar el QReport deberia tambien aplicarse en el método print o el ya reconocerá el nuevo formato ..?
Gracias por la ayuda.