FiveTech Software tech support forums

Yo, lo que hago, es que le digo que cuando reciba el foco que lo mande a otro lado. Por ejemplo:

oGet[1]:bGotFocus := { || oGet[2]:SetFocus() } (o algo así, depende la situación)

El efecto es muy correcto. El Get nunca tiene el foco, y puedes darle el color que te de la gana.

Yo empecé con FW 1.9 y Clipper 5.2 y Blinker 4.0. Ahora tengo el FW 2.3, Clipper 5.3 (Recomendado por el RDD CDX) y sigo con Blinker 4.0, pero puedes probar con otro (5.0, 6.0, 7.0)

Este es el código en C que utilizo para escribir palabras sin accentos: #include <winten.h> #include <windows.h> #include <clipapi.h> LPSTR Mayusculas( LPSTR szText, WORD lSize ) { int i = 0 ; for( i=0; i < lSize; i++ ) { if ( szText >= 'a' && szText <= 'z' ) szText -= ( 'a' - 'A' ) ; } retu...

El caso es que de esa forma saldría tranparente, yo quiero una coisa más traslucida. Al final lo he solucionado con el siguiente código: PRG de FW ------------- DEFINE BITMAP oBmp NAME ... * hCDc := CreateCDC(hDc) SelectObject(hCDC,oBmp:hBitmap) StretchBmp(hDc,10,20,nNeoWidth,nNeoHeight,hCDC,0,0,hBm...

La funcion está muy bien, pero tendràs que ponerle un limite a la recursividad para que no se ejecute indefinidamente, (varios miles de veces por segundo) Por ejemplo: IF n < 31 Test(n) ENDIF RETURN (n) Además, a cada vez que entras te crea el PARAM n (unos pocos de miles), mucho uso de memoria. Por...

No se como funciona PelleC, pero en Worshop, dependiendo del orden en que se declaran los objetos así se ven. Primero habría que dseclarar los grupos y despues los says y demás. En el código procura conservar el mismo orden.

Suerte

¿Antonio, que color hay que poner de fondo para que sea transparente? con el blanco no me sale

Gracias

La cuestion es que utilizo PalBmpDraw() con el Raster "SRCAND" para, de cierta manera, fundir un grafico BMP (con fondo blanco) con el color de fondo del Dialogo. Todo bien, ya lo he hecho varias veces. La cuestion es que cuando intento variar el tamaño del grafico, entonces "SRCAND&q...

Perdonadme pero he estado de vacaciones, además cambié de ordenador / excuse me but I was on hollidays and i also changed my computer.

Ahí va la nueva versión / here is the new version:

http://hyperupload.com/download/01c35ea ... Y.zip.html

Hola Claudio. Bueno, aún no he migrado a FWH, pues no he tenido tiempo y espero hacerlo dentro de poco. En principio es cierto, necesitas: BCC55 HARBOUR (elk que corresponda a fw 2.6. ¿cual tienes?) FHW 2.6 Pero además, por lo que he leido necesitaras PellesC para los recursos y VERCE para compilar ...

Carlos, yo tuve ese mismo problema y obté por lo siguiente: Redefino el dialogo con todos los controles salvo los Gets en cuestión. (lo que no recuerdo es si lo creéen el resource o no, creo que no, pues estoy cambiando el sistema y aún no he instalado el WorkShop, intentalo sin crearlos) DEFINE DIA...

Muchas Gracias A&C (no se como te llamas) ya he solucionado el problema, al decirme lo de reorganizar, con el cambio de disco duro, estaba mesclando librerías de dos Clippers distintos (el 5.2 y el 5.3 con exospaces diferentes, y LIBs diferentes), pero ya los he puesto cada uno en su lugar, y co...

Ya se que se trata de un foro para FW, pero tengo un problema de CLIPPER 5.3 muy gordo y no se como solucionarlo. Por favor, si alguien sabe como arregalrlo, si es tan amable, me conteste a mi correo ramosframit@ono.com. Garcias. Este es el asunto. Hace bastante años (1995) que tengo un programa de ...

Otra solución muy empleada es:

nCtrl := ASCAN( oDlg:aControls , { | oCtrl | oCtrl:lFocused } )

Antes de que el control pierda el foco, claro.

Podrías modificar la clase TGET para que por defecto se ejecute el VALID, pero que mediante un nuevo DATA, puesto a 'false', éste no se ejecute. Me explico, podrías añadir: DATA lValidar AS LOGIC INIT .T. Después en el METHOD lValid() cambiar: if ::oGet:BadDate Tone( 100, 3 ) return .f. else ... por...