Estoy Usando hbwindow.
Si defino SetMode( 40, 120 ) funciona perfectamente , se puede mover la ventana con todos sus objetos incluidos.
pero si defino setmode(50,160) no funciona , solamente se puede mover la ventana pero sos objetos no esta ligados a la ventana y no se mueven, cuando se ejecuta queda afuera de la ventana como GET lOk PUSHBUTTON.
[img]
https://www.4shared.com/photo/pGLcBmsRea/ventana_1.html
[/img]
- Code: Select all Expand view
Static Function abrdlg()
local oDlg, GetList := {}, lOk := .F.
local cTitle
cTitle := "Information"
oDlg = HBWindow():Dialog( cTitle, 35, 15, "W+/W" )
oDlg:GetList = GetList
oDlg:Show()
oDlg:SayCenter( "Harbour IDE", -4 )
oDlg:SayCenter( "Version 1.0", -2 )
oDlg:SayCenter( "Copyright (c) 1999-2020 by" )
oDlg:SayCenter( "The Harbour Project", 2 )
@ 23, 56 GET lOk PUSHBUTTON CAPTION " &OK " COLOR "GR+/G,W+/G,N/G,BG+/G" ;
STATE { || ReadKill( .T. ) }
READ
oDlg:Hide()
return nil
