FiveTech Software tech support forums

... similar, pero dentro de la propia clase. La idea era disponer de un segundo buffer para la edicion, y un data que marcara si se esta editando o añadiendo, y en funcion de ese data devolver de un buffer o del otro. Ya veremos, ahora mismo tengo que seguir adelante con un proyecto y no tengo tiempo ...

Buenas Foro!! Soy nueva por estos lares, y me gustaría saber si me podeis echar una mano en un problema que tengo, que es el siguiente: En una ventana tengo un listbox y un arbol asociado. Si hago una inserción en el listbox, necesito que me añada un nodo al árbol. Lo he intentado de muchas formas p...

Antonio,

¿Y por qué no modificas la clase para que funcione como BTNBMP, añadiendo el método TOOLTIP, pues lo considero imprescindible, el hecho de que pongas el cursor por encima y diga a qué corresponde el botón?.

Un saludo

Bien, creo que lo resolví añadiendo el siguiente código :

Code: Select all  Expand view

aRct :=GetWndRect (oLbx:hWnd)
nTop:=nTop+aRct[1]
nLeft:=nLeft+aRct[2]


Un saludo.

Porque las definiciones de los archivos de cabecera que utiliza el Workshop no son compatibles con las del ResEdit.

Tendras que crear un RC nuevo y posteriormente ir añadiendo los recursos uno a uno.

FRANCISCO, TE ENVIO EL EJEMPLO, OJALA TE SIRVA EL PROCEDIMIENTO ES UN POCO ARCAICO, PERO ME FUNCIONO PARA RESOLVER ESTA NECESIDAD DE EDICION DE UN CAMPO NUMERICO ( SEGURAMENTE SE PUEDE MEJORAR ) 1. MODIFIQUE EL METODO LEDITCOL DE LA CLASE WBROWSE.PRG AÑADIENDO EL ULTIMO RENGLON @ 0, 0 GET oGet VAR u...

... forma: 1º He añadidio tres datas: DATA MaxLong AS NUMERIC INIT 0 DATA nChars AS NUMERIC INIT 0 DATA bPassMax 2º He modificado el METHOD KeyChar: Añadiendo, despues de las líneas: if nKey == VK_TAB ... endif, lo siguiente: IF ::MaxLong > 0 .AND. nKey > 31 .AND. LEN( ::cText ) >= ::MaxLong ...

Podrias ir añadiendo espacios al texto y llamando al método oPrinter:GetTextWidth( cText, oFont ) hasta que devuelva el ancho deseado

Andrés,

Busca esta línea en source\classes\window.prg

hWnd = CreateToolTip( Self:hWnd, cToolTip ) // , .t. ) for ballon tooltips !

añadiendo ese ", .t. " consigues los tooltips con forma de globo

... "Si el código anterior no funciona, estoy casi seguro, que el problema está en la clase TGET. Yo lo tuve hace tiempo y lo solucione gracias a LKM, añadiendo una línea en TGET en el Method EditUpdate(): METHOD EditUpdate() CLASS TGet if ::oGet:HasFocus ::DispText() ::oGet:Assign() //LKM actualiza ...

Añadiendo al comentario de José:

Siempre pensá un paso mas adelante, ahora solo pasas a FWH... en un futuro a mysql, sql, etc.

O sea, opinion nada mas, anda pensando en armar el sistema para que te sea facil luego pasar de DBF a tablas

mjcc wrote:Me puedes enviar un ejemplo para ver como lo haces por favor, yo tengo ese mismo problema.

Modifica el metodo New de la clase tGet añadiendo lo siguiente:

if lReadonly
::SetColor( CLR_BLACK , GetSysColor( COLOR_BTNFACE ))
Endif

Saludos

Carles,

Por qué no usas DLLs de PRG en su interior ? Añadiendo nuevas DLLs ó reemplazándolas, amplias la funcionalidad de la aplicación.

Antonio, Gracias por la sugerencia. Ahi esta la solucion. El problema que tengo es que al tratar de compilar el programa añadiendo el archivo "MENUS.C" me genera el siguiente error: Source File Type Description Menus.obj Error Couldn't build Estoy usando xHarbour Builder RC9 + FWH ...

... no hago ningún tipo de comprobación de existecia o no de duplicidad de registros. Dejo ese trabajo a la base de datos. ¿Como? Pues simplemente añadiendo una restricción tipo PRIMARY KEY que impida tener registros duplicados. En este caso ADO captura el error que arroja la base de datos y puedes ...