#include "FiveWin.ch"
function Main()
local oDlg, oProg1, oProg2
DEFINE DIALOG oDlg TITLE "Progress Bars"
@ 1, 1 PROGRESS oProg1 SIZE 80, 12
@ 1, 20 PROGRESS oProg2 SIZE 12, 50 VERTICAL
@ 3, 9 BUTTON "Ok" ACTION oDlg:End()
oDlg:bStart = { || Increase( oProg1, oProg2 ) }
ACTIVATE DIALOG oDlg CENTER ;
ON INIT ( oProg1:SetRange( 0, 100 ), oProg1:SetStep( 1 ),;
oProg2:SetRange( 0, 100 ), oProg2:SetStep( 1 ) )
return nil
function Increase( oProg1, oProg2 )
local n
for n = 1 to 111
// oProg1:StepIt()
// oProg2:StepIt()
oProg1:SetPos( n )
oProg2:SetPos( n )
Sleep( 50 )
SysRefresh()
next
return nil
...
...
local oxprogress
oxprogress:=TProgress() // Crea el manejador de la clase
__objaddmethod(oxprogress,"SETRANGE32",@xsetrange32()) // Agrega el metodo setrange32
oxprogress:=NIL // Destruye el manejador de la clase
...
...
oprogres:setrange32(0,150000)
....
....
return
STATIC PROCEDURE xsetrange32(nmin,nmax)
LOCAL SELF := qself()
DEFAULT nmin:=0
DEFAULT nmax:=100
SendMessage( ::hWnd, PBM_SETRANGE32, nmin, nMax )
::nMin := nMin
::nMax := nMax
RETURN NIL
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: nelido and 56 guests