Jeff,
Try this which will give you rich text in an edit box which you can place into
a memo field:
****************
* Start Code
*
RELEASE ALL
o = CREATEOBJECT("rich")
o.show(1)
READ EVENTS
DEFINE CLASS rich as Form
width = 400
height = 335
top = 200
left = 200
ADD OBJECT cmd1 as commandbutton ;
WITH caption="\<Bold",left = 5,top = 5,autosize = .T.,name =
"cmdBold"
ADD OBJECT cmd2 as commandbutton ;
WITH caption="\<Italic",left = 50,top = 5,autosize = .T.,name =
"cmdItalic"
ADD OBJECT cmd3 as commandbutton ;
WITH caption="\<Underline",left = 95,top = 5,autosize =
.T.,name = "cmdUnderLine"
ADD OBJECT cmd4 as commandbutton ;
WITH caption="Color",left = 180,top = 5,autosize = .T.,name =
"cmdcolor"
Add Object rich1 As OleControl ;
With Left=5, Top=55, Width = 320, Height=240 , oleClass =
"richtext.richtextctrl.1",name="olerich1"
ADD OBJECT cmd5 as commandbutton ;
WITH caption="\<New",left = 5,top = 300,autosize = .T.,name =
"cmdNew"
ADD OBJECT cmd6 as commandbutton ;
WITH caption="Ne\<xt",left = 50,top = 300,autosize = .T.,name =
"cmdNext"
ADD OBJECT cmd7 as commandbutton ;
WITH caption="Bac\<k",left = 95,top = 300,autosize = .T.,name =
"cmdBack"
Procedure QueryUnload
Clear Events
cancel
Endproc
PROCEDURE load
If Not Used("tt")
CREATE CURSOR tt(cText M)
INSERT INTO tt values("To All Concerned. This is a
sample of using RTF.")
endif
Endproc
PROCEDURE init
thisform.olerich1.controlsource = "tt.cText"
Endproc
PROCEDURE cmdBold.click
thisform.olerich1.selBold = !thisform.olerich1.selBold
Endproc
PROCEDURE cmdItalic.click
thisform.olerich1.selItalic = !thisform.olerich1.selItalic
Endproc
PROCEDURE cmdUnderline.click
thisform.olerich1.selUnderline = !thisform.olerich1.selUnderline
Endproc
PROCEDURE cmdcolor.click
thisform.olerich1.selcolor = GETCOLOR()
Endproc
PROCEDURE cmdNext.click
IF NOT EOF()
SKIP
thisform.olerich1.refresh
ENDIF
Endproc
PROCEDURE cmdBack.click
IF NOT BOF()
SKIP -1
thisform.olerich1.refresh
ENDIF
Endproc
PROCEDURE cmdNew.click
APPEND BLANK
thisform.olerich1.refresh
Endproc
PROCEDURE keypress
LPARAMETERS tnkey, tnshift
IF tnKey = 27
thisform.Release
CLEAR EVENTS
ENDIF
ENDPROC
ENDDEFINE
*
* End Code
**************
-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of
Jeff Johnson
Sent: 27 February 2012 21:51
To: [email protected]
Subject: Underline in memo field
I have a memo field and I want to underline part of it when printing it. Are
there escape codes that I can wrap the underlined text with in order to achieve
the underline?
--
Jeff
---------------
Jeff Johnson
[email protected]
(623) 582-0323
www.san-dc.com
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
