#include "FiveWeb.ch"
function Main()
local oDlg
DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
ACTIVATE DIALOG oDlg
return nil
#include "FiveWeb.ch"
CLASS TDialog
DATA cTitle
DATA nWidth, nHeight
DATA lModal
METHOD New( cTitle, nWidth, nHeight , lModal )
METHOD Activate()
ENDCLASS
METHOD New( cTitle, nWidth, nHeight , lModal ) CLASS TDialog
DEFAULT lModal := .f.
::cTitle = cTitle
::nWidth = nWidth
::nHeight = nHeight
::lModal = lModal
return Self
METHOD Activate() CLASS TDialog
? '<div id="oDlg" class="dialog_window" title="' + ::cTitle + '">'
? "</div>"
? "<script>"
? "$('#oDlg').dialog( { width: " + AllTrim( Str( ::nWidth ) ) + ;
", height: " + AllTrim( Str( ::nHeight ) ) + ;
", modal:" + if( ::lModal ,"true" , "false" )+ " } );"
? "</script>"
return nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 86 guests