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...METHOD bloquear(cFile) RETURN &#123 ...

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

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" ; MENU BuildMenu&#40 ...

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 // adUseClient :CacheSize := 100 :CursorType := nCursorType // adOpenDynamic if ...

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 nContadorFunction Main() nContador := 1 ? TClase():nContador //resultado 2 ? TClase():nContador // Resultado 2 ? TClase():nContador // Resultado 2 ...

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 DBFCDXrddsetdefault( "DBFCDX" )//y hacemos tdatabase():cDriver // resultado 'DBFCDX -> resultado correcto

Pero, si hacemos esto

//hacemos esto primero? tdatabase():cDriver //Resultado 'DBFNTX'//definimos el ...

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 nil

Ahora si ...

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 Client de la ventana principal.
y mira este ...

mejor crear asi: