FiveTech Software tech support forums

... esta abierto en el excel y mandarlo a cerrar: cFile3:='NV'+OT:CMES oWndCapt := TWCapture():New( "Microsoft Excel - "+cFile3) if oWndCapt:lCaptured MSGALERT('El archivo '+cFile3+' se encuentra en uso.'+CRLF+; 'Cierre el archivo para gener uno nuevo','Archivo abierto') oWndCapt:Setfocus() ...

... ideas on how to code a mouse click ? oRtf:GoToLine(1) does not work Thank you .. getting very close now ! Rick Lipkin Rick, wait, I'll look DATA ::lCaptured is false in METHOD Redefine, but text is focused

... de la clase, y lo he hecho añadiendo: CASE nScrollCode == SB_ENDSCROLL   ::SetFocus() Y solucionado, ya no tengo que depender de oVSCRooll:lCaptured que podría interferir con el procesao de DRAG. Y para no olvidarlo para otras posibles clases, lo que he hecho es forzarlo en el método GOTFOCUS ...

... doble: La programada para las teclas y la programada para el Scroll en el método VSCRoll(). De momento lo he solucionado poniendo oVSCRooll:lCaptured en .T. en KeyDown() de manera que las acciones del Scroll sólo se procesen cuando oVSCRooll:lCaptured esté en .F., pero la verdad es que no ...

... #include "Objects.ch" //----------------------------------------------------------------------------// CLASS TWCapture FROM TWindow DATA lCaptured AS LOGICAL //BOOL METHOD New( cTitle ) CONSTRUCTOR METHOD WCapture( cTitle ) ENDCLASS //----------------------------------------------------------------------------// ...

... ::nTop + nHeight ::nRight = ::nLeft + nWidth ::oWnd = oWnd ::nStyle = nOR( WS_BORDER, WS_CHILD, WS_VISIBLE ) ::nId = ::GetNewId() ::lDrag = .f. ::lCaptured = .f. ::nClrPane = nClrBack ::nZoom =1.0 ::Pix2mm =1.0 ::nMin =nMin ::nMax =nMax ::lHorizontal =lHorizontal ::nGap = 0 ::lInches = lInches ...

... "LEFT", nBtnWidth + If( l3D, 3, 0 ), oRect:nRight + 1 ) ) ::nBtnWidth = nBtnWidth ::nBtnHeight = nBtnHeight ::nId = ::GetNewId() ::lDrag = .f. ::lCaptured = .f. ::nClrPane = If( l3D, GetSysColor( COLOR_BTNFACE ), CLR_GRAY ) ::lVisible = .t. ::l3D = l3D ::nMode = AScan( { "TOP", "LEFT", "RIGHT", ...

... nOr( WS_CLIPSIBLINGS, WS_TABSTOP ), 0 ),; If( lBorder, WS_BORDER, 0 ) ) ::lShaded = lShaded ::lBox = lBox ::lRaised = lRaised ::lDrag = lDesign ::lCaptured = .f. ::lUpdate = lUpdate ::SetColor( nClrText, nClrBack ) ::Register( nOR( CS_VREDRAW, CS_HREDRAW ) ) if ! Empty( oWnd:hWnd ) ::Create() ...

... for first column DATA l3DLook AS LOGICAL INIT .F. READONLY // internally control state of ::Look3D() in "Phantom" column DATA lHitTop, lHitBottom, lCaptured, lMChange // browsing flags DATA lAppendMode AS LOGICAL INIT .F. READONLY // automatic append flag DATA lAutoCtx AS LOGICAL // compatibility ...

... ) CLASS TWBrowse local nColPos := 0 local aColSizes := ::GetColSizes() if ::lDrag return Super:MouseMove( nRow, nCol, nKeyFlags ) endif if ::lCaptured CursorWE() ::VertLine( nCol ) return 0 endif if ::lMChange .and. AScan( aColSizes,; { | nColumn | nColPos += nColumn,; nCol >= nColPos ...

... en columnas freeze // fjhg 28-may-07 DATA nMaxFilter // Maximum number of records to count // on indexed filters DATA lHitTop, lHitBottom, lCaptured, lMChange DATA lAutoEdit, lAutoSkip DATA lCellStyle AS LOGICAL INIT .f. DATA aHeaders, aColSizes DATA nClrBackHead, nClrForeHead DATA nClrBackFocus, ...

... ) CLASS TWCapture local hWnd := 0 //traza( "lSoft", lSoft ) If lSoft hWnd := SearchWnd( cTitle ) Else hWnd := FindWindow( 0, cTitle ) EndIf ::lCaptured := ( hWnd > 0 ) ::hWnd := if( ::lCaptured, hWnd, 0 ) return( ::lCaptured ) //----------------------------------------------------------------------------// ...

... Self ) ENDIF IF oCursor # NIL // tambien añadido[ ::oCursor := oCursor SetCursor( ::oCursor:hCursor ) ENDIF ::lActive := .T. ::lDrag := .F. ::lCaptured := .F. ::lFocused := .F. RETURN Self * METHOD Paint() CLASS TPanel LOCAL nTop, nLeft, nHeight, nWidth, nBevel * IF ::oClient != NIL .AND. ...

Una mas:

oMain:=TWCapture():New("Mi Aplicación")
IF oMain:lCaptured
MsgAlert("No puede ser abierto más de una vez.","Precaución!")
oMain:Restore()
oMain:GoTop()
QUIT
ENDIF

CLASSE CONTROL.PRG METHOD Initiate( hDlg ) CLASS TControl DEFAULT ::lActive := .t., ::lDrag := .f., ::lCaptured := .f.,; ::lFocused := .f., ::lCancel := .f. if( ( ::hWnd := GetDlgItem( hDlg, ::nId ) ) != 0 ) If( ::lActive, ::Enable(), ::Disable() ) ::Link() if ::oFont != nil ...