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

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

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

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

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

... 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 aFILE2:= {} cTipo := (S09)->TIPO DO WHILE (S09)->(!EOF()) AADD(aFILE2, SUBS((S09)->TIPO, ...

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

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

... (ADSLOC32.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 ...

... 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 http://www.google.com