FiveTech Software tech support forums

Antonio,

He encontrado que la línea de la clase es la 1164 y esta función es la que pinta estupendamente pero alinea mal.

ABPaint( ::hDC, nTop + If( ::lPressed, 1, 0 ),;
nLeft + If( ::lPressed, 1, 0 ), hBmp, ::nAlphaLevel() )



No sé arreglar esta línea.

Ya tengo código que lo hace estupendamente .... lo subo ....

Carlos,

Gracias por tu aportación. La he probado y funciona estupendamente. He reducido la fuente y la publico por si a alguien le interesara:

#include "fivewin.ch"#define CSIDL_LOCAL_APPDATA 0x001c //  user\Local Settings\Application Data#define CSIDL_PERSONAL 0x0005 // user\MyDocument#define ...

Adolfo,
No había podido probarlo hasta hoy, y funciona estupendamente.

Carlos,
Prefiero el Pixelformer, es muy sencillo de usar y me sirve perfectamente.

Saludos,

Antonio, vuelvo a tu ejemplo que funciona estupendamente, pero tiene un pequeño problema.

Si el usuario se decide cerrar la ventana pulsando la (x) del dialogo, la ventana se cierra, pero el proceso no termina. Es decir, "la calculadora" sigue abierta.

Como en mi aplicación es una llamada a una ...

... cordial para ti y el Foro

Finalmente aprendí a hacer la búsqueda dentro de los respectivos registros, de cadenas con la función AT(), trabaja estupendamente, la pregunta seria como pinto de otro color, retiño o subrayo la palabra seleccionada y encontrada a lo largo del texto?

De antemano gracias ...

... F.
REDEFINE GET oGet VAR nApertura ID 19 OF oDlg PICTURE "@E 999" UPDATE
REDEFINE GET oGet VAR nApertura ID 24 COLOR Color1,Color2 OF oDlg PICTURE "@E 99,999.99" UPDATE WHEN .F.
oGet:lDisColors = .F.

Funciona estupendamente y se diferencia por el fondo del GET.

Un saludo. Fernando.

Muchas gracias por la ayuda Sr. Manuel.
He probado y la cuestión está en mantener el foco en el browse.
Funciona estupendamente!!!


Un cordial saudo.

... Skipper quedando:

FUNCTION SKIPPER( oRs, nSkip )
LOCAL nRec := oRs:AbsolutePosition

IF oRs:EOF
oRs:MoveLast()
ELSE
oRs:Move( nSkip )
ENDIF

IF oRs:BOF; oRs:MoveFirst(); ENDIF

RETURN oRs:AbsolutePosition - nRec


Ya está funcionando estupendamente. De nuevo, muchas gracias a los tres.

... GRACIAS PPOR REPOSDER A MI SOLICITUD.

MIRA EL PROBLEMA ES QUE NO ME ABRE LA BASE DE DATOS NO HACE NADA , ESTA EN BLANCO, CON CLIPPER JALABA ESTUPENDAMENTE Y NOSE QUE HACER.. DE ANTEMANO MIL,GRACIAS

aFILE2:= {}
cTipo := (S09)->TIPO

DO WHILE (S09)->(!EOF())
AADD(aFILE2, SUBS((S09)->TIPO, 1, 2 ...

HOLA ANGEL, GRACIAS PPOR REPOSDER A MI SOLICITUD.

MIRA EL PROBLEMA ES QUE NO ME ABRE LA BASE DE DATOS NO HACE NADA , ESTA EN BLANCO, CON CLIPPER JALABA ESTUPENDAMENTE Y NOSE QUE HACER.. DE ANTEMANO MIL,GRACIAS

José,

Quizás mi respuesta se salga por la tangente, pero... ¿has pensado en cambiar de editor de recursos? Mira el del pelles. Va estupendamente...

... que sea PROFESSIONAL), donde el servidor de datos a su vez es estación de trabajo, y en redes pequeñas hasta para 5 usuarios funciona estupendamente bien, para redes con mas de 5 usuarios, si es mas recomendable un equipo con hardware y software de servidor.



2) He visto que ADS es ...

... DLL), fue diseñado no para usarse en aplicaciones de la vida real, solo con fines de prueba, y sin embargo en la vida real se comporta estupendamente hasta para 5 usuarios, es de libre distribucion y muchas empresas lo incluyen en su productos. El objeto del servidor local es para que los ...

... Lubin


Se puede utilizar el ODBC, pero es demasiado complicado a 16 bits, aunque FW tiene una clase que es el RDDODBC que trata de simular el manejo de una tabla SQL como si fuese un DBF, sin embargo no es optimo

La mejor opcion es ADO a 32 bits, funciona estupendamente bien.

Saludos

RF
m