[AccessD] Moving on to Fonts

[Stuart McLachlan]

A second click on the second button after editing the text shows the edited text - the last 
lines in the extract below.

I've just sent you a simple demo off-line that works for me. If you don't get it, let me know 
and I'll put it up on an FTP site.

-- 
Stuart

On 12 Jul 2022 at 23:29, John Colby 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
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>