FiveTech Software tech support forums

for nItem:= 1 to 5      ...  //    oMenu:ADD( TMenuItem():New( cB,,,, { || ::cargarproyecto( ::bloquear(cFile )) } ), .F. )                  MENUITEM oItem PROMPT cB OF oMenu ;                           BLOCK { |o| ::cargarproyecto( ::bloquear( o:Cargo )) }                 oItem:Cargo := cFile ... ...

+1

Buenas Si modificamos la Tpanel en el metodo Paint METHOD Paint() CLASS TPanel    local nTop, nLeft, nHeight, nWidth, nBevel    local aInfo := ::DispBegin()    If ::oBrush != Nil //ROS    FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )    EndIf //ROS ...   Se pinta de esta manera. http:/...

Buenas En este ejemplo, da error al querer pintar el Panel da segunda banda del Rebar. #include "FiveWin.ch" function Main()    local oWnd, oReBar, oToolBar, oPanel, oBtn1, oFolder, oToolBar2    local oImageList, oHand    DEFINE WINDOW oWnd TITLE "Testing rebars and toolbars" ;  ...

Buenas. en el recordset, antes del open vea como utiliza fivewin wn adofuncs.prg   WITH OBJECT oRs       if ! Empty( oCn )          :ActiveConnection    := oCn       endif       :Source              := cSql       :LockType            := nLockType       :CursorLocation      := 3            // adUseCl...

Hola

Esperimentastes configurar, la data

:CacheSize := 100

Nages and Charles

Thanks

Gracias

Antonio, Debe ser un comportamiento erroneo del motor de objects de harbour?, por ejemplo #include "FiveWin.ch" Static nContador Function Main()    nContador := 1   ? TClase():nContador  //resultado 2   ? TClase():nContador // Resultado 2   ? TClase():nContador // Resultado 2   ? TClase():...

Manuel: Si, lo extraño es que en la clase no esta definido como classdata. Tu solución que se podría implementa en la TDataBase. Antonio: De esa forma, funciona para o ejemplo postado. Hemos hecho ese pequeño ejemplo, para mostrar ese comportamento "extraño". Para superar esto en nuestras ...

Antonio Si solo hacemos esto el resultado es correcto REQUEST DBFCDX rddsetdefault( "DBFCDX" ) //y hacemos tdatabase():cDriver // resultado 'DBFCDX -> resultado correcto   Pero, si hacemos esto //hacemos esto primero ? tdatabase():cDriver  //Resultado 'DBFNTX' //definimos el RDD REQUEST DB...

Buenas, A alguien le sucede esto: #include "FiveWin.ch" function Main() ? TDataBase():cdriver //Resultado: 'DBFNTX' REQUEST DBFCDX rddsetdefault( "DBFCDX" ) ? RddSetDefault(), TDataBase():cdriver // Resultado: "DBFCDX", 'DBFNTX', este ultimo debería ser 'DBFCDX' return ...

Una idea sería colocar una data lPressed en la TButton
y que se activa con el metodo LButtonDown y se desactava com el metodo LButtonUp,
con esto el programador controlaría si el button esta presionado en el bAction con un bucle.

Buenas Un consejo : Simplifica el codigo, es decir experimenta con una o dos opciones por control, si haces un prg separado sería mucho mejor., creo que ahi deberias utilizar un TPanel como contenedor de todos los objetos de la derecha y ese seria el :oClient de la ventana principal. y mira este pos...

mejor crear asi: