FiveTech Software tech support forums

Ruego que me perdonen, pero he subido un fichero con un bug. Qué raro!!

Este es el nuevo link.

https://app.box.com/s/figt1meo3dbdv717k97cix3uc7ofemlf

Antonio a ver si te sirve la traducción al francés. Hace mucho que no lo practico. static aStrings := { { "Attention", "Atención","Attention },; { "PDF Plugin Error", "Error del plugin de PDF", "erreur de plug-in du PDF" },; { "PDF not save...

Siento mucho que la vida lo halla abandonado tan pronto. Animo a su familia.

Hola foreros, os dejo la segunda versión de mi selector de color. Ahora se pueden probar degradados y Fonts. Este es el aspecto que tiene: http://www.4shared.com/download/dLb8vG60ce/Pantallas.bmp?lgfp=3000 Y este es el link: https://app.box.com/s/fgb16suox4a0jwvc1cq3gcxpon4qp1df Espero que os guste.

Algo como esto:: DEFINE DIALOG ....    DEFINE GET ....    ...    oDlg:bPainted  := { |hDc| ( PalbmpLoad(hDc,10,10,hBmp,hPal), .... ) }    oDlg:bLClicked := { |nRow,nCol| AccionBmp(nRow,nCol,hBmp) } ACTIVATE DIALOG ... Suoponiendo que el Bitmap esta en las coordenadas 10,10 y mide 200X300 (AnchoXAlto...

No se, pero eso lo hago muchas veces sin problemas. Intenta ponerle estilo WS_TABSTOP al Get. O, sino, en el ON INIT prueba oGet:Setfocus().

Un saludo.

Horacio, te estoy contestando desde una tableta, por lo que no tengo el FWH a mano, pero con oDlg:blButtonDown o como se llame, puedes llamar a una función pasándole nRow y nCol, para saber si has pinchado sobre el Bmp o no. Eso lo hago algunas veces y va muy bien.

Un saludo.

ok Silvio.

Ups. I forgot a lot of changes. These have to run better (sorry): FUNCTION PolyForms(nX,nY,nWidth,nHeight,nLados,nGiro,nPorC, lHalf)  // MODIFIED    LOCAL aVert    LOCAL nRadV := nHeight/2    LOCAL nRadH := nWidth/2    LOCAL nAngl := (2*PI)/nLados    LOCAL nAngu,nOAng    LOCAL nCount,nStep LOCAL nSi...

Silvio, try one of theses solutions for half stars: FUNCTION PolyForms(nX,nY,nWidth,nHeight,nLados,nGiro,nPorC, lHalf)  // MODIFIED    LOCAL aVert    LOCAL nRadV := nHeight/2    LOCAL nRadH := nWidth/2    LOCAL nAngl := (2*PI)/nLados    LOCAL nAngu,nOAng    LOCAL nCount,nStep LOCAL nSides := IF(lHal...

Gracias. Sin querer me has solucionado un problema antiguo que pensé no tenĺa remedio.

VitalJavier, has probado a poner el Get fuera de pantalla?
Por ejemplo: @2000,2000 GET ....
o, @ -100,0 GET ...

Un saludo,

Bueno eso de que funciona perfectamente es un decir, resulta que ponga los atributos que ponga, siempre me devuelve la misma matriz. Como si ulMask no sirviera de nada... He tenido que añadir: if ( ( ffind->attr & ulMask ) == ffind->attr  )  hb_arrayAddForward( pDir, pSubarray ); Entonces ¿Para ...

Muchas Gracias Manuel. Lo que más me gusta de programar es investigar y probar cosas nuevas. Siempre es un alivio encontrar gente dispuesta a echar una mano.

jmartial, parece que el problema está en que cuando defines un DIALOG como transparente, en su ::INITIATE() pone en .T. los ::lTransparent de todos sus controles. Por lo que veo, al menos en mi FWH, es, que lo ultimo que evalúa el METHOD INITIATE() de TDialog es ::AEvalWhen(). A lo mejor si le pones...