FiveTech Software tech support forums

Acabo de terminar una clase que puede que le guste a alguién. Se trata de la clase TGSAY, un SAY Sensible y editable. Se puede utilizar tanto para Say normal, como para titulos, como si fuera un botón o crear un dialogo de menus con items TGSAY's, o como un GET. Viene con diferentes bordes: SHADOW, ...

Cuando el ::bChange de un WBrowse es extenso y tarda algunos milisegundos de más, si dejas pulsado algún control de un VScroll para bajar rápidamente, el VScroll se queda pillado.
¿Le ha pasado a alguien más?

With WorkSHop Resources:

File Menu -> Add to Project...
File Type -> user Resource data
Load your WAV File
Custom Resource Type Dialog -> New Type -> Type "WAVE"
Custom Resource Type Dialog -> Click WAVE + OK

That's all

Yo también pienso que lo mejor es reinstalar el Windows. Pero cuando ya esté satisfecho con la instalación. Con todas las aplicaciones que te gustan, etc. Haz una imagen de tu disco duro. Se hace en pocos minutos y te resuelve muchos problemas. Otra cosa, antes de formatear el disco duro, quita la p...

Muchas Gracias a todos.
Me habeis convencido, en cuanto acabe lo que tengo empezado, le meteré mano al xHarbour, a ver si llego a buen puerto

Hace algún tiempo que quiero pasarme a xHarbour y disfrutar de sus ventajas de los 32 bits, sin embargo, para un programdor como yo, enganchado a Clipper desde hace casi veinte años, va a ser dificil. He tenido la ocasión de consultar un NG de Harbour, y resulta que apenas si tiene una docenas de co...

Try this REDEFINE CHECKBOX aCHK[1] VAR aVar[1] ID 171 OF oDlg ON CLICK CompChek(aCHK,aVar,1) REDEFINE CHECKBOX aCHK[2] VAR aVar[2] ID 172 OF oDlg ON CLICK CompChek(aCHK,aVar,2) ... REDEFINE CHECKBOX aCHK[n] VAR aVar[n] ID 1nn OF oDlg ON CLICK CompChek(aCHK,aVar,n) FUNCTION CompChek(aChk,aVar,nDat) *...

RPAD not run efectively in many situations, Try this:

nRightMargin := xxx pixels
oPrn:Say( nTop,nRightMargin-oPrn:GetTextWidth( cText , oFont ),cText,oFont )

You could build a function to only right justify all cTexts. (excuse my english)

Estas cometiendo el mismo error que todos los que hemos tenido que pasar por ahí. No hay que modificar el cPicture del Get (oData:cPicture), sino el oGet:Picture del Get (oData2:oGet:Picture). Este es un ejemplo: cPic1 := IF(nEuro=1,"@E 9,999.99","@E 999,999") cPic2 := IF(nEuro=1...

Si lo que necesitas es definirlos después que el Dialogo, entonces a lo mejor tendrás que hacerlo dentro de una funcion de inicalización ACTIVATE DIALOG oDlg ON INIT MiFuncionDeIni(oGet) ... function MiFuncionDeIni(oGet) oGet:oGet:Pìcture := ..... RETURN NIL Aunque en teoría no es necesario. Por cie...

Este es un trozo de código de uno de mis programas: cPic1 := IF(nEuro=1,"@E 9,999.99","@E 999,999") cPic2 := IF(nEuro=1,"@E 9999.99" ,"@E 999999" ) DEFINE DIALOG oDLct RESOURCE "CUOTAS2" OF oDlg PIXEL FONT oFnt REDEFINE GET aGet[1] VAR oGet1 ID 134 O...

¿Haz probado ShowWindow(oWnd:hWnd,0) para esconderlo y ShowWindow(oDMain:hWnd,3) para que vuelva a mostrarse tal y como estaba?
Con dialogos funciona, con el mainwindows no lo sé, a lo mejor sí.

Try to Draw lines and squares around it via oDlg:bPainted.
Use GetClientRect or something like this

Bueno, yo utilizo Corel Draw y Corel PhotoPaint desde hace más de 15 años, lo que pasa es que esos colores lo utilizo mucho porque me gustan, y son muy comunes, sobre todo los de los Get's y los he guardado en Colors.ch. La idea era que cualquiera los pueda aprovecharse de ellos sin más y sin tener ...

Yo tengo oFe:SetColor(...) 10.000 veces en mis programas y me funciona siempre (sin refrescar), algo raro estás interponiendo. De todas formas, eso me ocurre con los SAY y lo he solucionado de la siguiente manera: oSay:SetColor(CLR_TEXTO,CLR_FONDO) oSay:SetText( oSay:cCaption ) // del tirón Para los...