Open RTF Memo editor by button

[Rick Sloan]

Hi everyone.

I was wondering if there is a way to open an RTF memo on a form by a button. I have looked but I can't seem to find the right text. I keep getting an error message when I try.

Any help would be great.

Thanks for your time

Rick

[Scott Emerick]

Re: Open RTF Memo editor by button

Rick,

The function you want to use is A5_RTF_EDITOR2()

For an example of a 'OnPush' Script, lets assume you have a customer table caller "Customers" and you have a RTF Memo field called "Cust_Notes". The form object for this field will be use the same name as the field for this example, but it could be anything you like.The following code will open the RTF Editor for that field:

p.text=Customers->Cust_Notes
a5_rtf_editor2(p,"Customer Notes")
parentform:Cust_Notes.value = p.text

Hope this helps.

Happy New Year,

Scott

[Rick Sloan]

Re: Open RTF Memo editor by button

Thanks very much Scott.

It works great

Happy New Year to you and all.

Rick

[Rick Sloan]

Re: Open RTF Memo editor by button

Hi Scott

It opens it up Ok, but when I save it there is an error message.

Thanks for the help by the way, I am just learning A5.

I made a learning (test) table.

The table is named T1 and the form is named T1. The memo field is named clmemo.

This is what I now have in the onpush button editor

p.text=T1->clmemo
a5_rtf_editor2(p,"clmemo")
parentform:T1.value = p.text

The error message is:

Parent Form T1.value = P.Text
Not Found
Parent Form: T1 not found

It does not appear to be saving any data I put in there.

Thanks

Rick

[Scott Emerick]

Re: Open RTF Memo editor by button

Rick,

While you are in design mode, get the properties of the RTF Memo field object on the form. That is what you want to use here:

parentform:<Form Object Name>.value = p.text

Currently you are looking for the table not the form field.

Scott

[Rick Sloan]

Re: Open RTF Memo editor by button

Sorry it took so long to say thanks Scott.

I had to step out for a while.

RS

[Peter.Greulich]

Re: Open RTF Memo editor by button

p.text=Customers->Cust_Notes
a5_rtf_editor2(p,"Customer Notes")
parentform:Cust_Notes.value = p.text

Hope this helps.

Maybe it's just me. But I don't see how Scott's code will work.

Have you tried it?

Does it work? - even if you already have data in the field?

Here are 3 code snippets that have worked for me in the past:

''=================================
''Change an existing RTF memo w. a Value already assigned to field
''=================================
'the button on the form executes this xbasic:

topparent.commit()
dim r as p
r = rtf.create("")
t = table.current()
f = t.field_get("rtfmemo")
rtfBinary = f.value_get()
r.binary_text = rtfBinary
result = a5_rtf_editor(r,"Edit")

IF result = "save" THEN
    RtfMemo.refresh()
    t.change_begin()
    f.value_put(r.binary_text)
    t.change_end(.t.)
    topparent.Resynch()
END IF


''=================================
''Change an existing RTF memo record w. NO value in the field
''=================================
r = rtf.create("")
tbl2 = table.get("Tbl_FormMemos")
f = t.field_get("Memo")

IF RTF_FIELD_TO_TEXT("Memo") = ""    
    ''Change the RTF memo
    vChoice = a5_rtf_editor(r,"New Quik Letter")
    IF vChoice = "save" THEN
        Memo.refresh()
        tbl2.change_begin()
            f.value_put(r.binary_text)
        tbl2.change_end(.t.)
    END IF
END IF


''=================================
''Enter a New RECORD AND RTF memo field
''=================================
topparent.commit()
dim r as p
r = rtf.create("")
t = table.current()
f = t.field_get("rtfmemo")
result = a5_rtf_editor(r,"Edit")
IF result = "save" THEN
    RtfMemo.refresh()
    t.enter_begin()
    f.value_put(r.binary_text)
    t.enter_end(.t.)
    topparent.Resynch()
END IF
''=================================

You may need to combine two or more of these to get what you want. There is nothing simple about RTF memo fields.

[Peter.Greulich]

Re: Open RTF Memo editor by button

Note: You may notice that I have refresh() commands before the table change or enter. The reason for this is that this code comes from v.5 where I encountered some supernatural resynching issues, and it would not work any other way. I moved the command just now in v8 and it works properly. You can presumably move that to after the record is saved in v9, as well.

[Rick Sloan]

Re: Open RTF Memo editor by button

Hi Peter.

No, I hadn't tried it at that time. It opens the memo field up, but when I save data and then re-open the memo field, the data was gone (u/k where).

I was looking at yours Peter. Wow !! All that to open a Rich text memo with a button. I am new to A5 and all of what you put there is like a foreign language to me.

Maybe the guru's at A5 could have a look at a more simplistic and automatic way of doing that.

Maybe I'm "pipe-dreaming" here, but I thought whatever A5 offered in the DBF structure, A5 would have an easy way to put that on a form (buttons or whatever), especially for non-programmers like myself.

--> Maybe through a Genie or a function where you just have to add your memo field name?

Wish list ?

Thanks Peter for the heads-up regarding Rich Text Memo Fields being problematic. I am reverting back to plain memo fields at least till I learn the program a bit better.

Thanks again,

RS

[Peter.Greulich]

Re: Open RTF Memo editor by button

Maybe I'm "pipe-dreaming" here, but I thought whatever A5 offered in the DBF structure, A5 would have an easy way to put that on a form (buttons or whatever), especially for non-programmers like myself.

No, you're not dreaming. I agree. There should be a simple function or genie to do this. RTF memo fields have always been a sore point for many, including me.

[Scott Emerick]

Re: Open RTF Memo editor by button

Guys,

I am sorry, I gave you the wrong code. That's what I get for trying to be quick.

This is the working code:

p.text = parentform:note.rtf.rtf_text
a5_rtf_editor2(p,"Contact Notes")
parentform:note.rtf.rtf_text = p.text

I have attached a working example so you can see it does work.

Happy New Year!!

Scott

[Peter.Greulich]

Re: Open RTF Memo editor by button

Sorry, Scott. It doesn't work. Try it w. a little more testing. Change the font size, color, bold, etc. After you close the dialog, click in the memo field itself - or open it again. It doesn't hold the change. You have to use the code I showed above. If there is a shortcut, it's not the one (or at least, not the way) you showed.

[Scott Emerick]

Re: Open RTF Memo editor by button

Peter,

Your right I had to tweak the code. It should work now.

Scott

[Peter.Greulich]

Re: Open RTF Memo editor by button

That was a simple enough change. Nice! Thanks for being persistant, Scott.