FiveTech Software tech support forums

... del diálogo en cada iteración. Aquí tienes un ejemplo sencillo: harbour Copy code #include "FiveWin.ch" FUNCTION Main() LOCAL nDlg, nStep, nPosY // Crear el diálogo nDlg := FWH_CREATE_DIALOG({|oDlg|}, ; FWH_TITLE, "Diálogo Móvil", ; FWH_WIDTH, 200, ; FWH_HEIGHT, 50) // ...

...  LOCAL aVert   LOCAL nRadV := nHeight/2   LOCAL nRadH := nWidth/2   LOCAL nAngl := (2*PI)/nLados   LOCAL nAngu,nOAng   LOCAL nCount,nStepLOCAL nSides := IF(lHalf,Int(nLados/2),nLados)  // NEW   DEFAULT nGiro := 0 , ;       nPorC := 100   *   nPorc := Max(0,Min(100,nPorC))  ...

... Saludos Boa noite a todos Continuo sem entender!!! Na classe tProgress nao existe data nValue CLASS TProgress FROM TControl DATA nMin, nMax, nPos, nStep AS NUMERIC nMin --> Ok nMax --> Ok nValue ? Como ficaria isso ? function Main() local oDlg, oProg1, oProg2 local aVetor := {} local nTotal ...

... hacer lo que quieres de forma automatica y controlada... tiene 2 metodos muy utiles Backup y Restore METHOD Backup( aTables, cFile, lDrop, lOver, nStep, cHeader, cFooter, lCancel ) METHOD Restore( cFile, lCancel ) este el el link del blog http://tdolphin.blogspot.com/ encontraras el ...

... TMDIFRAME:ACTIVATE(978) Called from: cyewin.prg => MAIN(248) el fuente es el siguiente [codeFUNCTION IMPOSTASCROLL( oDlgwBus, nTop ) LOCAL nStep := 30 oDlgwBus:oVScroll:SetRange( 1, 10 ) oDlgwBus:oVScroll:nPgStep = 1 oDlgwBus:oVScroll:bGoUp = { || SpostaControlli( oDlgwBus, nStep, nTop ...

... FUNCTION RowColDate(nDia,nMes,nAno,oBrf,nSem) LOCAL dFecha :=GetDate(nDia,nMes,nAno) LOCAL dFirstDay:=dFecha-Day(dFecha)+1 LOCAL nStep oBrf:GoTop() oBrf:nColPos=1 oBrf:nColAct=Dow(dFecha) //IF(Dow(dFecha)=1,7,Dow(dFecha)) nSem=INT((Day(dFecha)+Dow(dFirstDay)-oBrf:nColAct+8)/7) ...

... 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 ...

run but not create the index I change this line Index On Last + First Tag ( "LASTFIRST" ) To Customer ; Eval { || oMeter:SetPos( nVar += nStep ), SysRefresh(), .T. } Every nStep for Index On Last + First Tag LASTFIRST To Customer ; Eval { || oMeter:SetPos( nVar += nStep ), SysRefresh(), ...

... nRow, nColPos := nCol, lDrag := .T., oDlg:oCursor := oCrsHand } oDlg:bMMoved = Set_SCROLL( oDlg,10 ) STATIC FUNCTION Set_SCROLL( oDlg,ntop ) LOCAL nStep := 30 oDlg:oVScroll:SetRange( 1, 10 ) oDlg:oVScroll:nPgStep = 1 oDlg:oVScroll:bGoUp = { || Move_controls( oDlg, nStep,ntop ) } oDlg:oVScroll:bGoDown ...

... .t.) ; On Resize oSplitter : Adjust( .t., .t., .t., .t. ) oWinh : Maximize() Return 0 Function _ArmarTree( oTree, aDatos ) Local oDatabase Local nStep, i, aCursos Memvar oVarGlobales oDatabase := oTree : Add( "TÓPICOS" ) For i := 1 To Len( aDatos ) oLink := oDatabase : Add( Alltrim( aDatos[ i ...

... 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 ...

... you. Regards, Otto FUNCTION Translate( cDateiname) *lMode,oMeter,oOk,oCancel,oDlg,oDbfWnd,lRun) LOCAL aData LOCAL bBlock LOCAL nCounter, nRecno, nStep, nUpd, nFor LOCAL lAlert local lMode :=.f. LOCAL oGaugeDlg LOCAL oGet1 LOCAL oMeter LOCAL nActual := 0 LOCAL nTotal := 0 LOCAL cStatusMsg := cDateiname ...

... Called from TBTNBMP:HANDLEEVEN(0) El fallo aparentemente es en la línea 425 que os marco en negrita LOCAL oTree LOCAL oRoot LOCAL oLink LOCAL nStep @ 0, 0 TREE oTree OF oChild ; SIZE 0, 0 PIXEL; BITMAPS { "Paper","FoldClose","FoldOpen", "BookClose", "BookOpen", "Tabla", "Procedimiento", "Usuario", ...

... il cerchio nelle cordinate giuste : prima : oImg:bLClicked = { | nRow, nCol |( NMSGBOX(NrOW,NcOL),CIRCLES( oDlg, nRow, nCol, nMinRad, nMaxRad, nStep )) } e poi nella funzione circle // PER FARE UN CERCHIETTO oDlg:Circle( nX , nY , 50 ) ? NX ?NY ho levato i cerchi concentrici in questo programma ...