Page 1 of 1
Problemas con Checkbox
Posted: Mon Oct 17, 2011 2:57 am
by FranciscoA
Uploaded with
ImageShack.usHola 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.
Re: Problemas con Checkbox
Posted: Mon Oct 17, 2011 7:54 am
by Antonio Linares
Francsico,
Puedes proporcionar algún ejemplo pequeño y autocontenido que podamos probar aqui ? gracias
Re: Problemas con Checkbox
Posted: Mon Oct 17, 2011 8:06 pm
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.
Re: Problemas con Checkbox
Posted: Wed Oct 19, 2011 11:02 pm
by FranciscoA
Hola Antonio...
Re: Problemas con Checkbox
Posted: Thu Oct 20, 2011 2:29 pm
by FranciscoA
Saludos, Antonio. ¿Algo sobre el CheckBox?
Agradecido
Re: Problemas con Checkbox
Posted: Thu Oct 20, 2011 2:50 pm
by carlos vargas
Francisco, si gustas aproximadamente de las 4pm estaré conectado por msn a
donboscocorp2@hotmail.compara ayudarte.
Re: Problemas con Checkbox
Posted: Thu Oct 20, 2011 6:44 pm
by Antonio Linares
Francisco,
Recibido y te contestamos cuanto antes
Re: Problemas con Checkbox
Posted: Thu Oct 20, 2011 7:09 pm
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
Re: Problemas con Checkbox
Posted: Fri Oct 21, 2011 7:04 am
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.
