METHOD Activate( lModal ) CLASS TDialog
local oControl
DEFAULT lModal := .T.
::lModal = lModal
? "</div>"
? "<script>"
? '$( "#oDlg" ).dialog( { width: ' + AllTrim( Str( ::nWidth ) ) + ;
", height: " + AllTrim( Str( ::nHeight ) ) + ;
", modal:" + If( ::lModal ,"true" , "false" ) + " } );"
? '$( "#oDlg" ).dialog({ closeOnEscape: false });'
? "</script>"
for each oControl in ::aControls
oControl:Activate()
next
return nil
#include "FiveWeb.ch"
function Main()
local oDlg, oCbx, cValue := "two"
DEFINE DIALOG oDlg TITLE "Using a combobox"
@ 30, 30 COMBOBOX oCbx VAR cValue ITEMS "one", "two", "three" ;
OF oDlg
@ 120, 120 BUTTON "Ok" OF oDlg ;
ACTION alert( oCbx.value )
ACTIVATE DIALOG oDlg NOWAIT
return nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 114 guests