Hi All,
I want to know how to call for Return Pointer with a5_Html_modeless?
I knew about p = a5_Html_modal() but I want to using it with Embedded xdialog. Because
I want to know how to call for Return Pointer with a5_Html_modeless?
I knew about p = a5_Html_modal() but I want to using it with Embedded xdialog. Because
HTML Code:
Discussion The A5_HTML_MODELESS() function opens a generic modeless dialog containing an HTML editing control. They can be used as-is, but are particularly useful for use as embedded dialogs
Code:
dim xhtml as C xhtml=<<%str% <html> <head> <style> <!-- p { font-family: Tahoma; font-size: 8pt; margin-top:0; margin-bottom:3pt } h1 { font-family: Tahoma; font-size: 12pt; color: #0000FF } h2 { font-family: Tahoma; font-size: 10pt; color: #0000FF; margin-bottom:0pt } h3 { font-family: Tahoma; font-size: 8pt; color: #0000FF; margin-bottom:0pt } .xbasic { font-family: Courier New; font-size: 8pt; color: #0000FF; margin-left: 20pt } li { font-family: Tahoma; font-size: 8pt; margin-top:0; margin-bottom:3pt } td { font-family: Tahoma; font-size: 8pt; margin-top:0; margin-bottom:3pt } --> </style> </head> <body> <h3>Notes About Employee</h3> <p> </p> <p>Since the memo is HTML, it can contain tables.</p> <p> </p> <p> <table cellSpacing=0 cellPadding=2 width="353" border=1 bgColor=#d7d7fe background="" style="WIDTH: 353px; HEIGHT: 66px"> <tr> <td>Column1</td> <td> Column 2</td></tr> <tr> <td> This is the data in column 1</td> <td> This is the data in column 2</td></tr></table> </p> <p> </p> <p> Tom has been an <strong><u>exemplary</u></strong> worker. </p> </body> </html> dlg_title = "Test html and email dlg" ui_modeless_dlg_box(dlg_title,<<%dlg% {startup=init}{can_exit=close} {font=tahoma,12,b}Display HTML Editor From xdlg;{font=} {lf}; {embedded=130,30:myhtmleditor}; <ok> <close> ; %dlg%,<<%code% If a_dlg_button ="init" then p = A5_HTML_MODELESS(xhtml, "MyHtmlEditor", .f. ,120,20)[/INDENT] end if If a_dlg_button ="ok" then [B][COLOR=#c0392b]'not sure how, what is making for the return pointer of a5_html_modeless( )[/COLOR][/B] 'showvar(p.text) 'error 'ui_modeless_dlg_close(dlg_title) 'C UI_DLG_CONTROL_EMBEDDED_GET(C dialog_name,C control) '-- Get name of embedded xdialog given parent dialog and control. xchildvars=a5_show_variable(local_variables() ,"myhtmleditor") 'showvar(xchildvars) 'no did not get end if If a_dlg_button ="close" then ui_modeless_dlg_close(dlg_title)[/INDENT] end if %code%)
Comment