How to set TextAlignment of TppRichText?
Hi,
how can i change the textalignment of an TppRichText ?
I created an pass-thru function
**************
[...]
if pTextAlignment = '' then
tResult.TextAlignment := taLeftJustified
else if UpperCase(pTextAlignment) = 'L' then
tResult.TextAlignment := taLeftJustified
else if UpperCase(pTextAlignment) = 'R' then
tResult.TextAlignment := taRightJustified
else if UpperCase(pTextAlignment) = 'C' then
tResult.TextAlignment := taCentered
else if UpperCase(pTextAlignment) = 'F' then
tResult.TextAlignment := taFullJustified;
SetParamValue(0, tResult);
**************
The text ist is shown on the left site if i call tResult.TextAlignment :=
taRightJustified.
Any ideas how to do this?
Regards,
Jan
--
--
EasternGraphics - visualize your business
Jan Hoffmann, Entwicklung
http://www.EasternGraphics.com
phone: +49 3677 6782 - 0
fax: +49 3677 6782 - 50
--
Diese E-Mail enth?lt vertrauliche und/oder rechtlich gesch?tzte
Informationen. Wenn Sie nicht der richtige Adressat sind oder diese
E-Mail irrt?mlich erhalten haben, informieren Sie bitte sofort den
Absender und vernichten Sie diese E-Mail. Das unerlaubte Kopieren,
Weitergeben, Ver?ffentlichen sowie sonstiges Verwenden dieser E-Mail
oder der darin enthaltenen Informationen ist nicht gestattet.
This e-mail may contain confidential and/or legally protected
information. If you are not the intended recipient (or have received
this e-mail in error) please notify the sender immediately and delete
this e-mail. Any unauthorised copying, retransmission, dissemination
or other use of this e-mail or the contained information is prohibited.
how can i change the textalignment of an TppRichText ?
I created an pass-thru function
**************
[...]
if pTextAlignment = '' then
tResult.TextAlignment := taLeftJustified
else if UpperCase(pTextAlignment) = 'L' then
tResult.TextAlignment := taLeftJustified
else if UpperCase(pTextAlignment) = 'R' then
tResult.TextAlignment := taRightJustified
else if UpperCase(pTextAlignment) = 'C' then
tResult.TextAlignment := taCentered
else if UpperCase(pTextAlignment) = 'F' then
tResult.TextAlignment := taFullJustified;
SetParamValue(0, tResult);
**************
The text ist is shown on the left site if i call tResult.TextAlignment :=
taRightJustified.
Any ideas how to do this?
Regards,
Jan
--
--
EasternGraphics - visualize your business
Jan Hoffmann, Entwicklung
http://www.EasternGraphics.com
phone: +49 3677 6782 - 0
fax: +49 3677 6782 - 50
--
Diese E-Mail enth?lt vertrauliche und/oder rechtlich gesch?tzte
Informationen. Wenn Sie nicht der richtige Adressat sind oder diese
E-Mail irrt?mlich erhalten haben, informieren Sie bitte sofort den
Absender und vernichten Sie diese E-Mail. Das unerlaubte Kopieren,
Weitergeben, Ver?ffentlichen sowie sonstiges Verwenden dieser E-Mail
oder der darin enthaltenen Informationen ist nicht gestattet.
This e-mail may contain confidential and/or legally protected
information. If you are not the intended recipient (or have received
this e-mail in error) please notify the sender immediately and delete
this e-mail. Any unauthorised copying, retransmission, dissemination
or other use of this e-mail or the contained information is prohibited.
This discussion has been closed.
Comments
The ReportBuilder RichText is wrapper around the Delphi TRichEdit class. The
properties of the RichText.Paragraph object can be used to set the alignment
of the selected text (i.e. the RichText.SelText).
You will need to code a pass-thru function or create an RTTI class to do
this because the the properties of the Paragraph class are no known to RAP.
Perhaps we can add additional RTTI to a future release.
--
Nard Moseley
Digital Metaphors Corporation
http://www.digital-metaphors.com
Best regards,
Nard Moseley
Digital Metaphors
www.digital-metaphors.com
with the paragraph it works!
Thanks,
Jan
The
alignment
RAP.
:=