Problemas con Checkbox

Post Reply
User avatar
FranciscoA
Posts: 2164
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Problemas con Checkbox

Post by FranciscoA »

Image

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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
Antonio Linares
Site Admin
Posts: 42595
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Has thanked: 38 times
Been thanked: 86 times
Contact:

Re: Problemas con Checkbox

Post by Antonio Linares »

Francsico,

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

Antonio Linares
www.fivetechsoft.com
User avatar
FranciscoA
Posts: 2164
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Problemas con Checkbox

Post by FranciscoA »

Antonio Linares wrote: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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
Posts: 2164
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Problemas con Checkbox

Post by FranciscoA »

Hola Antonio...
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
Posts: 2164
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Problemas con Checkbox

Post by FranciscoA »

Saludos, Antonio. ¿Algo sobre el CheckBox?
Agradecido
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
carlos vargas
Posts: 1723
Joined: Tue Oct 11, 2005 5:01 pm
Location: Nicaragua

Re: Problemas con Checkbox

Post by carlos vargas »

Francisco, si gustas aproximadamente de las 4pm estaré conectado por msn a donboscocorp2@hotmail.com
para ayudarte.
Salu2
Carlos Vargas
Desde Managua, Nicaragua (CA)
User avatar
Antonio Linares
Site Admin
Posts: 42595
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Has thanked: 38 times
Been thanked: 86 times
Contact:

Re: Problemas con Checkbox

Post by Antonio Linares »

Francisco,

Recibido y te contestamos cuanto antes :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
Posts: 42595
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Has thanked: 38 times
Been thanked: 86 times
Contact:

Re: Problemas con Checkbox

Post by 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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
FranciscoA
Posts: 2164
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Problemas con Checkbox

Post by 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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
Post Reply