Problemas con Checkbox

[FranciscoA]

Uploaded with ImageShack.us

Hola amigos. ¿Alguien ha tenido este problema con los CheckBox? Tambien con su transparencia, todo cuando uso degradados. Para estos uso la funcion GradientFill(). He leido durante mas de dos horas en el foro. Todas las posibles soluciones no funcionan para mi. Lo que muestra la imagen lo he resuelto con IsAppThemed(), por el momento. No sé si me dará problemas mas adelante.

Lo que no he podido resolver es la transparencia de los mismos. ¿Alguna solución? Uso versión 10.06, Pellesc, Borland 5.82.

Otra preguntita, probablemente tonta, pero no doy. ¿Cuál es la instrucción para ejecutar una acción dando click sobre un BmpAlpha?, He probado con la misma del bmp corriente... pero no!.

Agradezco de antemano
Abrazos.

[Antonio Linares]

Francsico,

Puedes proporcionar algún ejemplo pequeño y autocontenido que podamos probar aqui ? gracias

[FranciscoA]

Francsico,

Puedes proporcionar algún ejemplo pequeño y autocontenido que podamos probar aqui ? gracias

Hola Antonio, te he enviado por email el ejemplo que solicitas. Lo hice por ese medio porque contiene una carpeta con el prg, dll, ejecutable y otros. Agradezco tu amable atención.

Mucho éxito con FIVEWIN WEB del que estoy pendiente de su lanzamiento.

Saludos.

[FranciscoA]

Hola Antonio...

[FranciscoA]

Saludos, Antonio. ¿Algo sobre el CheckBox?
Agradecido

[carlos vargas]

Francisco, si gustas aproximadamente de las 4pm estaré conectado por msn a donboscocorp2@hotmail.com
para ayudarte.

[Antonio Linares]

Francisco,

Recibido y te contestamos cuanto antes

[Antonio Linares]

Francisco,

Aqui tienes un ejemplo de como has de crear el brush degradado de los diálogos:

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

   local oDlg, lValue := .T.
   local aColors := { { 0.8, nRGB(225,125,40),nRGB(130,112,0) }, { 0.8, nRGB(130,112,0),nRGB(225,125,40) } }

   DEFINE DIALOG oDlg SIZE 500, 300 TRANSPARENT
   
   @ 2, 2 CHECKBOX lvalue PROMPT "Test" OF oDlg SIZE 80, 20

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT GradBrush( oDlg, aColors )

return nil

function GradBrush( oDlg, aColors )

   local hDC, hBmp, hBmpOld, oBrush

   hDC = CreateCompatibleDC( oDlg:GetDC() )
   hBmp = CreateCompatibleBitMap( oDlg:hDC, oDlg:nWidth, oDlg:nHeight )
   hBmpOld = SelectObject( hDC, hBmp )

   GradientFill( hDC, 0, 0, oDlg:nHeight, oDlg:nWidth, aColors )

   DeleteObject( oDlg:oBrush:hBrush )
   oDlg:oBrush:hBitmap = hBmp
   oDlg:oBrush:hBrush = CreatePatternBrush( hBmp )
   SelectObject( hDC, hBmpOld )
   oDlg:ReleaseDC()

return nil

[FranciscoA]

Carlos, disculpa pero no habia revisado el foro hasta esta hora (1.04 am hora Nic) Agradezco mucho tu interés. Estaremos en contacto.

Antonio, funciona muy bien sin necesidad de IsAppThemed(). Muchísimas gracias, y en espera de FIVEWIN WEB.

Abrazos.