FiveTech Support Forums

#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