FiveTech Software tech support forums

... SET RESOURCES TO // Desactivamos los recursos definidos. RETURN( NIL ) STAT FUNC Refr_Bmp(hDC,oBmp) LOCAL aRect, hWnd, nColor:=255 LOCAL oBrush, nSteps, nI,n local nBlue := 200 IF lInit aRect:=GetCoors(GetDeskTopWindow()) // Coordenadas de ventana IF aRect[3]>=768 // si > 600x800 la centra ...

... NextPage() METHOD PrevPage() METHOD TopPage() METHOD BottomPage() METHOD TwoPages( lMenu ) METHOD Zoom( lMenu ) METHOD VScroll( nType, lPage, nSteps ) METHOD HScroll( nType, lPage, nSteps ) METHOD SetOrg1( nX, nY ) METHOD SetOrg2( nX, nY ) METHOD CheckKey( nKey, nFlags ) METHOD CheckMouseWheel( ...

... hOldRes ) return nil //----------------------------------------------------------------------------// static function VScroll(nType,lPage, nSteps) local nYfactor, nYorig, nStep DEFAULT lPage := .F. if nType == GO_UP if oWnd:oVScroll:GetPos() <= oWnd:oVScroll:nMin return nil endif else ...

... hOldRes ) return nil //----------------------------------------------------------------------------// static function VScroll(nType,lPage, nSteps) local nYfactor, nYorig, nStep DEFAULT lPage := .F. if nType == GO_UP if oWnd:oVScroll:GetPos() <= oWnd:oVScroll:nMin return nil endif else ...

... STATIC FUNCTION Refr_Wnd( hDC ) LOCAL hWnd, nColor := 255 LOCAL aRect, nSteps LOCAL oBrush, nI LOCAL aCoor IF lInit aCoor := GetCoors(GetDeskTopWindow()) // Coordenadas de ventana IF aCoor[ 3 ] >= 768 // si > 600x800 ...

... nSaltos ) local hWnd := oWnd:hWnd local aRect := GetClientRect( hWnd ) local oBrush, n local nTop := aRect[ 1 ] local nBottom := aRect[ 3 ] local nSteps Local nBlue,nRed,nGreen Local lPuro := .F. // LoadIniPure() // Si es puro no hay degradado // Color de degradado DEFAULT nColor := 123123122 ...