Xailer & OZ Software

El entorno de desarrollo definitivo en Xbase
https://forum.xailer.com/

TRichEdit ?

https://forum.xailer.com/viewtopic.php?t=822

Página 1 de 1

TRichEdit ?

Publicado: Lun Ene 15, 2007 6:56 pm
por pjmfelix
Hi.
I try to put difrents texts in the RichEdit by the InsertText function, but
don´t work.
All the text stay with the first configuracion.(FontSize, Bold and
Alignment).
The sample:
::oRTF:nFontSize := 16
::oRTF:lBold := .T.
::oRTF:nAlignment := rpCENTER
::oRTF:InsertText("LETTER")
::oRTF:nFontSize := 10
::oRTF:lBold := .F.
::oRTF:nAlignment := rpLEFT
::oRTF:GoToLine(::oRTF:GetLineCount())
::oRTF:InsertText(CRLF + ;
Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
"Name " + CRLF + ;
Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
"Address " + CRLF + ;
Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
"Post Code " + CRLF)
::oRTF:GoToLine(::oRTF:GetLineCount())
::oRTF:SetFocus()

TRichEdit ?

Publicado: Lun Ene 15, 2007 7:46 pm
por Pedro Gil
Paulo
Try the following code:
::oRTF:nFontSize := 16
::oRTF:lBold := .T.
::oRTF:nAlignment := rpCENTER
::oRTF:InsertText( "LETTER" + CRLF )
::oRTF:GoToLine(::oRTF:GetLineCount())
::oRTF:nFontSize := 10
::oRTF:lBold := .F.
::oRTF:nAlignment := rpLEFT
::oRTF:InsertText(CRLF + ;
Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
"Name " + CRLF + ;
Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
"Address " + CRLF + ;
Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
"Post Code " + CRLF)
::oRTF:GoToLine(::oRTF:GetLineCount())
::oRTF:SetFocus()
Regards
"Paulo Jorge M. Félix" <pjmfelix@sisbit.pt> escribió en el mensaje
news:[email=45abc057@news.xailer.com...]45abc057@news.xailer.com...[/email]
> Hi.
>
> I try to put difrents texts in the RichEdit by the InsertText function,
> but don´t work.
>
> All the text stay with the first configuracion.(FontSize, Bold and
> Alignment).
>
> The sample:
>
> ::oRTF:nFontSize := 16
> ::oRTF:lBold := .T.
> ::oRTF:nAlignment := rpCENTER
> ::oRTF:InsertText("LETTER")
>
> ::oRTF:nFontSize := 10
> ::oRTF:lBold := .F.
> ::oRTF:nAlignment := rpLEFT
> ::oRTF:GoToLine(::oRTF:GetLineCount())
> ::oRTF:InsertText(CRLF + ;
> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
> "Name " + CRLF + ;
> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
> "Address " + CRLF + ;
> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
> "Post Code " + CRLF)
> ::oRTF:GoToLine(::oRTF:GetLineCount())
> ::oRTF:SetFocus()
>
>

TRichEdit ?

Publicado: Lun Ene 15, 2007 7:46 pm
por Pedro Gil
Paulo
Try the following code:
::oRTF:nFontSize := 16
::oRTF:lBold := .T.
::oRTF:nAlignment := rpCENTER
::oRTF:InsertText( "LETTER" + CRLF )
::oRTF:GoToLine(::oRTF:GetLineCount())
::oRTF:nFontSize := 10
::oRTF:lBold := .F.
::oRTF:nAlignment := rpLEFT
::oRTF:InsertText(CRLF + ;
Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
"Name " + CRLF + ;
Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
"Address " + CRLF + ;
Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
"Post Code " + CRLF)
::oRTF:GoToLine(::oRTF:GetLineCount())
::oRTF:SetFocus()
Regards
"Paulo Jorge M. Félix" <pjmfelix@sisbit.pt> escribió en el mensaje
news:[email=45abc057@news.xailer.com...]45abc057@news.xailer.com...[/email]
> Hi.
>
> I try to put difrents texts in the RichEdit by the InsertText function,
> but don´t work.
>
> All the text stay with the first configuracion.(FontSize, Bold and
> Alignment).
>
> The sample:
>
> ::oRTF:nFontSize := 16
> ::oRTF:lBold := .T.
> ::oRTF:nAlignment := rpCENTER
> ::oRTF:InsertText("LETTER")
>
> ::oRTF:nFontSize := 10
> ::oRTF:lBold := .F.
> ::oRTF:nAlignment := rpLEFT
> ::oRTF:GoToLine(::oRTF:GetLineCount())
> ::oRTF:InsertText(CRLF + ;
> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
> "Name " + CRLF + ;
> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
> "Address " + CRLF + ;
> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
> "Post Code " + CRLF)
> ::oRTF:GoToLine(::oRTF:GetLineCount())
> ::oRTF:SetFocus()
>
>

TRichEdit ?

Publicado: Mar Ene 16, 2007 11:25 am
por pjmfelix
Thanks !!!
this is it, the simple order of the ::oRTF:GoToLine(::oRTF:GetLineCount())
make the difrence.
"Pedro Gil" <pedrojose.gil@wanadoo.es> escreveu na mensagem
news:[email=45abcc26@news.xailer.com...]45abcc26@news.xailer.com...[/email]
> Paulo
>
> Try the following code:
>
> ::oRTF:nFontSize := 16
> ::oRTF:lBold := .T.
> ::oRTF:nAlignment := rpCENTER
> ::oRTF:InsertText( "LETTER" + CRLF )
>
> ::oRTF:GoToLine(::oRTF:GetLineCount())
> ::oRTF:nFontSize := 10
> ::oRTF:lBold := .F.
> ::oRTF:nAlignment := rpLEFT
> ::oRTF:InsertText(CRLF + ;
> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
> "Name " + CRLF + ;
> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
> "Address " + CRLF + ;
> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
> "Post Code " + CRLF)
> ::oRTF:GoToLine(::oRTF:GetLineCount())
> ::oRTF:SetFocus()
>
> Regards
>
>
> "Paulo Jorge M. Félix" <pjmfelix@sisbit.pt> escribió en el mensaje
> news:[email=45abc057@news.xailer.com...]45abc057@news.xailer.com...[/email]
>> Hi.
>>
>> I try to put difrents texts in the RichEdit by the InsertText function,
>> but don´t work.
>>
>> All the text stay with the first configuracion.(FontSize, Bold and
>> Alignment).
>>
>> The sample:
>>
>> ::oRTF:nFontSize := 16
>> ::oRTF:lBold := .T.
>> ::oRTF:nAlignment := rpCENTER
>> ::oRTF:InsertText("LETTER")
>>
>> ::oRTF:nFontSize := 10
>> ::oRTF:lBold := .F.
>> ::oRTF:nAlignment := rpLEFT
>> ::oRTF:GoToLine(::oRTF:GetLineCount())
>> ::oRTF:InsertText(CRLF + ;
>> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
>> "Name " + CRLF + ;
>> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
>> "Address " + CRLF + ;
>> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
>> "Post Code " + CRLF)
>> ::oRTF:GoToLine(::oRTF:GetLineCount())
>> ::oRTF:SetFocus()
>>
>>
>
>

TRichEdit ?

Publicado: Mar Ene 16, 2007 11:25 am
por pjmfelix
Thanks !!!
this is it, the simple order of the ::oRTF:GoToLine(::oRTF:GetLineCount())
make the difrence.
"Pedro Gil" <pedrojose.gil@wanadoo.es> escreveu na mensagem
news:[email=45abcc26@news.xailer.com...]45abcc26@news.xailer.com...[/email]
> Paulo
>
> Try the following code:
>
> ::oRTF:nFontSize := 16
> ::oRTF:lBold := .T.
> ::oRTF:nAlignment := rpCENTER
> ::oRTF:InsertText( "LETTER" + CRLF )
>
> ::oRTF:GoToLine(::oRTF:GetLineCount())
> ::oRTF:nFontSize := 10
> ::oRTF:lBold := .F.
> ::oRTF:nAlignment := rpLEFT
> ::oRTF:InsertText(CRLF + ;
> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
> "Name " + CRLF + ;
> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
> "Address " + CRLF + ;
> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
> "Post Code " + CRLF)
> ::oRTF:GoToLine(::oRTF:GetLineCount())
> ::oRTF:SetFocus()
>
> Regards
>
>
> "Paulo Jorge M. Félix" <pjmfelix@sisbit.pt> escribió en el mensaje
> news:[email=45abc057@news.xailer.com...]45abc057@news.xailer.com...[/email]
>> Hi.
>>
>> I try to put difrents texts in the RichEdit by the InsertText function,
>> but don´t work.
>>
>> All the text stay with the first configuracion.(FontSize, Bold and
>> Alignment).
>>
>> The sample:
>>
>> ::oRTF:nFontSize := 16
>> ::oRTF:lBold := .T.
>> ::oRTF:nAlignment := rpCENTER
>> ::oRTF:InsertText("LETTER")
>>
>> ::oRTF:nFontSize := 10
>> ::oRTF:lBold := .F.
>> ::oRTF:nAlignment := rpLEFT
>> ::oRTF:GoToLine(::oRTF:GetLineCount())
>> ::oRTF:InsertText(CRLF + ;
>> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
>> "Name " + CRLF + ;
>> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
>> "Address " + CRLF + ;
>> Chr(9) + Chr(9) + Chr(9) + Chr(9) + ;
>> "Post Code " + CRLF)
>> ::oRTF:GoToLine(::oRTF:GetLineCount())
>> ::oRTF:SetFocus()
>>
>>
>
>
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España