[AccessD] Moving on to Fonts

[John Colby]

What I am reading back:

<u><i><Font Size=4><Font Face="Impact"><Font Color="#0000FF">This is yet
another FONT test</Font></Font></Font></i></u>

What is displaying:

   1. This is yet hello there from the edge another FONT test


On Tue, Jul 12, 2022 at 11:29 PM John Colby <jwcolby at gmail.com> wrote:

> I'm confused Stuart.  I see your code setting the text box.  Then reading
> back what you set into the text box?
>
> I can do that as well.
>
> What I am saying is that when I then click into the box, make
> modifications to what is displayed in the text box using the editor
> controls in the toolbar, and THEN read back the textbox contents, it is
> identical to what I originally wrote in there, even though it is rendering
> something different.
>
> On Tue, Jul 12, 2022 at 11:15 PM Stuart McLachlan <stuart at lexacorp.com.pg>
> wrote:
>
>> On 12 Jul 2022 at 22:31, John Colby wrote:
>>
>> > yesy but... mod it with the editor and then try to get back whatever
>> > is now being rendered!
>> >
>>
>>
>> Hmm, works fine for me:
>> Click Command5. Sets bound and unbound text boxes
>> Click Command6.  Debug prints set text
>> Add a bit of text to each
>> Click Command6.  Debug prints new text
>>
>>
>>
>> Private Sub Command5_Click()
>> txtUBRTF = "<div><font face=Algerian>This is a rich </font><font
>> face=Calibri
>> color=""#ED1C24"">text</font><font face=Algerian> field</font></div>"
>> txtRTF2 = "<div><font face=Algerian>This is a rich </font><font
>> face=Calibri
>> color=""#ED1C24"">text</font><font face=Algerian> field</font></div>"
>> End Sub
>>
>> Private Sub Command6_Click()
>> Debug.Print " Unbound: " & txtUBRTF
>> Debug.Print
>> Debug.Print "Bound:" & txtRTF2
>> Debug.Print "----------------------------"
>> End Sub
>>
>> --------------------------------------------------
>>  Unbound: <div><font face=Algerian>This is a rich </font><font
>> face=Calibri
>> color="#ED1C24">text</font><font face=Algerian> field</font></div>
>>
>> Bound:<div><font face=Algerian>This is a rich </font><font face=Calibri
>> color="#ED1C24">text</font><font face=Algerian> field</font></div>
>> ----------------------------
>>  Unbound: <div><font face=Algerian>This is a rich </font><font
>> color="#ED1C24">text</font><font
>> face=Algerian> field with an addition</font></div>
>>
>> Bound:<div><font face=Algerian>This is a rich </font><font
>> color="#ED1C24">text</font><font
>> face=Algerian> field with extra text</font></div>
>> ----------------------------
>>
>>
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> https://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>
>
> --
> John W. Colby
> Colby Consulting
>


-- 
John W. Colby
Colby Consulting