[AccessD] Moving on to Fonts

[John Colby]

I seem to have it now.  I was not reading back the text box but rather my
original html string.
Sigh.

Working now.

On Tue, Jul 12, 2022 at 11:47 PM Stuart McLachlan <stuart at lexacorp.com.pg>
wrote:

> 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
> >
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


-- 
John W. Colby
Colby Consulting