http://www.fivetechsoft.com/fiveweb
Desde el menú de persiana, por favor seleccionad "New", "Open" and "About"
Por favor probadlo desde el navegador Chrome de Google por ahora, gracias
function About()
{
oDlg = new Dialog( "About", 400, 300 );
Say( 100, 110, "FiveWin Web Interface", oDlg );
Say( 130, 100, "(c) FiveTech Software 2011", oDlg );
Button( 220, 150, "Ok", oDlg, 100, 40, "oDlg.End()" );
}
Eso es lo que estabamos esperando!!!!
=====>
Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala
FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10
FiveWin, One line of code and it's done...
Excelente Antonio, algo de lo que he estado esperando hace ya buen rato.
Lo he probado con Chrome, y todo correcto.
Con Firefox 7.0, y todo correcto.
Con IE 9.0, solo sale el menú, pero no tiene movimientos.
Saludos.
Carlos.
Antonio,
checado desde chrome con excelente comportamiento.
Felicitaciones
En Firefox 7.0.1, tambien corre bien.-
=====>
Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala
FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10
FiveWin, One line of code and it's done...
function Find()
{
oDlg = new Dialog( "Find", 500, 200 );
Say( 60, 20, "Find what:", oDlg );
Get( 56, 110, "FiveWin Web Interface ", oDlg, 360, 30 );
Button( 140, 150, "Ok", oDlg, 100, 40, "oDlg.End()" );
Button( 140, 270, "Cancel", oDlg, 100, 40, "oDlg.End()" );
}
function About()
{
oDlg = new Dialog( "About", 400, 300 );
Image( 70, 30, "images/fivetech.bmp", oDlg );
Say( 90, 170, "FiveWin Web Interface", oDlg );
Say( 120, 160, "(c) FiveTech Software 2011", oDlg );
Button( 220, 150, "Ok", oDlg, 100, 40, "oDlg.End()" );
}
En Safari (iPad/iPhone) solo sale el menú.
Saludos
En Safari de lion funciona perfectamente . En ipad el ajuste del menu al ancho de la página no va bien y el despliege de submenus no funciona.
Sañludos.
function Open()
{
oDlg = new Dialog( "Open a local file", 500, 230 );
oBtn = BtnOpen( 70, 20, "*.prg", oDlg, 460, 26 );
Image( 110, 30, "images/openfile.png", oDlg, 80, 80 );
Button( 170, 150, "Ok", oDlg, 100, 40, "MsgInfo( oBtn.value )" );
Button( 170, 270, "Cancel", oDlg, 100, 40, "oDlg.End()" );
}

Button( 170, 150, "Ok", oDlg, 100, 40, "MsgInfo( oBtn.value )" );