#include "FiveWin.ch"
function Main()
local oDlg, nValue := 1, cTest := "Test"
DEFINE DIALOG oDlg
@ 1, 1 RADIO nValue ;
ITEMS "&One", "&Two", "T&hree"
@ 2, 10 GET cTest SIZE 70, 10
@ 3, 10 BUTTON "Ok" ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED
return nil
REDEFINE TBTNGET oFte VAR cFte ID 104 OF oDlg RESOURCE "buscar16" PICTURE "!" VALID chkfte(cFte,.t.,cMes,nSas,oFte,oDlg) ;
ACTION (zoomlbx(oFte,600,300,"1"))
REDEFINE GET oFte VAR cFte ID 104 OF oDlg PICTURE "!" VALID chkfte(cFte,.t.,cMes,nSas,oFte,oDlg) ;
ACTION (zoomlbx(oFte,600,300,"1"))
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Antonio Linares, Google [Bot] and 53 guests