Search found 15 matches: lcaptured

Return to advanced search

Re: Detectar archivo abierto en clase TFileXls

... 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() ...
by puenteda
Fri Jul 21, 2017 5:43 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Detectar archivo abierto en clase TFileXls
Replies: 6
Views: 1119

Re: RTF from Variable

... 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
by cnavarro
Sat May 06, 2017 6:29 pm
 
Forum: FiveWin for Harbour/xHarbour
Topic: RTF from Variable
Replies: 40
Views: 4190

Re: Scroll Box (Continuacion)

... 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 ...
by antolin
Wed Sep 24, 2014 11:18 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Scroll Box (Continuacion)
Replies: 2
Views: 461

Scroll Box (Continuacion)

... 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 ...
by antolin
Mon Sep 22, 2014 11:41 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Scroll Box (Continuacion)
Replies: 2
Views: 461

Re: TWCapture - Alguem poderia me dizer onde consigo?

... #include "Objects.ch" //----------------------------------------------------------------------------// CLASS TWCapture FROM TWindow DATA lCaptured AS LOGICAL //BOOL METHOD New( cTitle ) CONSTRUCTOR METHOD WCapture( cTitle ) ENDCLASS //----------------------------------------------------------------------------// ...
by Armando Picon
Fri Jul 23, 2010 6:18 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: TWCapture - Alguem poderia me dizer onde consigo?
Replies: 2
Views: 771

Pregunta esta clase dibuja la regla a cm

... ::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 ...
by Vladimir Zorrilla
Fri Aug 21, 2009 5:40 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: Pregunta esta clase dibuja la regla a cm
Replies: 0
Views: 1171

... "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", ...
by FranciscoA
Wed Oct 15, 2008 12:09 am
 
Forum: FiveWin para Harbour/xHarbour
Topic: No encuentro las mejoras hechas a xbrowse por franciscoA ??
Replies: 17
Views: 4410

... 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() ...
by karinha
Tue Sep 23, 2008 7:47 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Para Karinha
Replies: 17
Views: 3564

... 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 ...
by Natter
Mon Sep 08, 2008 11:34 am
 
Forum: FiveWin for Harbour/xHarbour
Topic: bChange
Replies: 9
Views: 5409

Browsing generally

... ) 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 ...
by Antonio Linares
Wed Aug 27, 2008 7:35 am
 
Forum: Utilities / Utilidades
Topic: Boris Pekic - NG's archive
Replies: 27
Views: 64729

... 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, ...
by FWHISHOW
Wed Dec 12, 2007 4:28 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: TWBROWSE - bkeydown não aceita VK_UP?
Replies: 9
Views: 4130

... ) 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 ) //----------------------------------------------------------------------------// ...
by FiveWiDi
Sun Dec 09, 2007 5:19 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: ayuditaa con captura de ventanas
Replies: 11
Views: 2333

Problema VK_RETURN

... 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. ...
by manuramos
Fri Jul 28, 2006 8:11 pm
 
Forum: FiveWin para CA-Clipper
Topic: Problema VK_RETURN
Replies: 3
Views: 1265

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
by Alfredo Arteaga
Fri Jul 07, 2006 1:42 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: Solo una instancia
Replies: 3
Views: 908

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 ...
by karinha
Tue Feb 21, 2006 2:54 pm
 
Forum: FiveWin para Harbour/xHarbour
Topic: CLASSE DSAY.PRG CON COMANDO TRANSPARENT
Replies: 5
Views: 1853

Return to advanced search