Sera posible.....?

jose.luis · Mensaje por **jose.luis** » Vie Feb 02, 2007 4:32 pm

Hola,
Se ve que esta semana voy importunando con mis preguntitas

Situación: un proceso laaaargo donde muestro un meter con el % de progreso.
Ese meter está en un formulario tipo TOPMOST (bsSPLASH) con lCentered :=
..T.. Si por cualquier motivo tengo que mostrar un MsgInfo, éste queda
debajo del formulario TOPMOST (lo cual es como debe ser).
Entonces... ahí va mi pregunta:
¿formularios semitransparentes para Windows XP?
Saludos,
José Luis Capel

Mensaje por **jfgimenez** » Dom Feb 04, 2007 11:33 am

José Luis,
> ¿formularios semitransparentes para Windows XP?
En ningún momento hemos intentado hacer nada esto, simplemente porque w98 no
lo permite, y queremos seguir soportándolo. Pero nada impide llamar
directamente al API para conseguirlo, teniendo en cuenta que sólo funcionará
a partir de w2k o xp.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Mensaje por **jfgimenez** » Dom Feb 04, 2007 1:15 pm

José Luis,
aquí tienes un ejemplo que acabo de hacer.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Attached files Layered.zip (1.8 KB)Â

Rolando · Mensaje por **Rolando** » Dom Feb 04, 2007 1:41 pm

José: Simplemente MARAVILLOSO !!!
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:45c5ce76$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> José Luis,
>
> aquí tienes un ejemplo que acabo de hacer.
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>
>
>
>
>
>

jose.luis · Mensaje por **jose.luis** » Lun Feb 05, 2007 9:30 am

José,
Es fántástico!! Justo lo que pedía!!
¡¡¡¡¡Muchísimas gracias!!!!!!!
Saludos,
José Luis Capel
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:45c5ce76$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> José Luis,
>
> aquí tienes un ejemplo que acabo de hacer.
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>
>
>
>
>
>

miguel · Mensaje por **miguel** » Lun Feb 05, 2007 10:12 am

Hola,
Esta función ¿vendrá implementada en la próxima versión de Xailer?
Saludos. Miguel A. Torrellas
Jose F. Gimenez escribió:
> José Luis,
>
> aquí tienes un ejemplo que acabo de hacer.
>

zeasoftware · Mensaje por **zeasoftware** » Lun Feb 05, 2007 1:20 pm

excelente!!
una pregunta:
Si tengo una imagend de fondo, como puedo hacer que la imagen sea
semi-transparente como la ventana?
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/

Mensaje por **jfgimenez** » Lun Feb 05, 2007 2:03 pm

Ramón,
> Si tengo una imagend de fondo, como puedo hacer que la imagen sea
> semi-transparente como la ventana?
Pruebalo

--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Mensaje por **jfgimenez** » Lun Feb 05, 2007 2:03 pm

Miguel,
> Esta función ¿vendrá implementada en la próxima versión de Xailer?
Veremos si lo ponemos como propiedad en TForm. No obstante, se puede usar
tal cual está el ejemplo.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Xevi · Mensaje por **Xevi** » Lun Feb 05, 2007 2:58 pm

Ramón,
La imagen que forma parte del Form... cPicture, la transparencia funciona
perfecto!!!
Y... en ambiente MDI... si hacemos transparencia al Padre... todos los hijos
lo son!!!
Y puestos a pedir... ¿como puedo hacer que los Forms Modales que lanzo desde
la aplicación MDI hereden la transparencia del Form de mi menu principal???
Gracias.
Un Saludo,
Xevi.
"RamónZea" <zeasoftware@hotmail.com> escribió en el mensaje
news:[email=45c720fb@news.xailer.com...]45c720fb@news.xailer.com...[/email]
> excelente!!
> una pregunta:
> Si tengo una imagend de fondo, como puedo hacer que la imagen sea
> semi-transparente como la ventana?
>
> Gracias.
> --
> Ramón Zea
> ramonzea@yahoo.com
> zeasoftware@hotmail.com
> zeasoft.movil@hotmail.com
> http://www.paginasprodigy.com/zeasoft/
>
>

zeasoftware · Mensaje por **zeasoftware** » Lun Feb 05, 2007 7:32 pm

YO HICE UNA CLASE CON LO QUE DEJARON AQUI, Y LO ASIGNO A TFORM, COMO:
TFORMLAYER, PERO, NO SE PONE TRANSPARENTE.
SALUDOS.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
visita mi "venta de garage"
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:45c737ec$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ramón,
>
> La imagen que forma parte del Form... cPicture, la transparencia funciona
> perfecto!!!
> Y... en ambiente MDI... si hacemos transparencia al Padre... todos los
> hijos lo son!!!
> Y puestos a pedir... ¿como puedo hacer que los Forms Modales que lanzo
> desde la aplicación MDI hereden la transparencia del Form de mi menu
> principal???
>
> Gracias.
>
> Un Saludo,
> Xevi.
>
>
> "RamónZea" <zeasoftware@hotmail.com> escribió en el mensaje
> news:[email=45c720fb@news.xailer.com...]45c720fb@news.xailer.com...[/email]
>> excelente!!
>> una pregunta:
>> Si tengo una imagend de fondo, como puedo hacer que la imagen sea
>> semi-transparente como la ventana?
>>
>> Gracias.
>> --
>> Ramón Zea
>> ramonzea@yahoo.com
>> zeasoftware@hotmail.com
>> zeasoft.movil@hotmail.com
>> http://www.paginasprodigy.com/zeasoft/
>>
>>
>
>

zeasoftware · Mensaje por **zeasoftware** » Lun Feb 05, 2007 7:48 pm

Hice esto, a ver si lo hice bien
CLASS TFormLayer FROM TForm
Method CreateForm()
ENDCLASS
//---------------------------------------------------------- --------------------
Method CreateForm() Class TFormLayer
Super:CreateForm()
SetWindowLong( ::Handle, GWL_EXSTYLE, nOr( GetWindowLong( ::Handle,
GWL_EXSTYLE ), WS_EX_LAYERED ) )
SetLayeredWindowAttributes( ::Handle, ::nClrPane, 110, LWA_ALPHA )
RETURN Nil
::
::
a mi ventana de incio, le heredo TFormLayer
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
visita mi "venta de garage"
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:45c737ec$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ramón,
>
> La imagen que forma parte del Form... cPicture, la transparencia funciona
> perfecto!!!
> Y... en ambiente MDI... si hacemos transparencia al Padre... todos los
> hijos lo son!!!
> Y puestos a pedir... ¿como puedo hacer que los Forms Modales que lanzo
> desde la aplicación MDI hereden la transparencia del Form de mi menu
> principal???
>
> Gracias.
>
> Un Saludo,
> Xevi.
>
>
> "RamónZea" <zeasoftware@hotmail.com> escribió en el mensaje
> news:[email=45c720fb@news.xailer.com...]45c720fb@news.xailer.com...[/email]
>> excelente!!
>> una pregunta:
>> Si tengo una imagend de fondo, como puedo hacer que la imagen sea
>> semi-transparente como la ventana?
>>
>> Gracias.
>> --
>> Ramón Zea
>> ramonzea@yahoo.com
>> zeasoftware@hotmail.com
>> zeasoft.movil@hotmail.com
>> http://www.paginasprodigy.com/zeasoft/
>>
>>
>
>

miguel · Mensaje por **miguel** » Lun Feb 05, 2007 11:32 pm

Gracias por responder.
Si es asi es 100 por 100 utilizable, perfecto y agradecido por vuestra
magistrales demostraciones, peeeeero ya que está hecho el trabajo,
¿porque no darle un valor añadido a Xailer?, cuanto mas potente y
funcional sea, mayor grandeza para el proyecto, pensemos en quien
empieza que no ha tenido acceso a este foro privado.
Saludos. Miguel A. Torrellas
Jose F. Gimenez escribió:
> Miguel,
>
>> Esta función ¿vendrá implementada en la próxima versión de Xailer?
>
> Veremos si lo ponemos como propiedad en TForm. No obstante, se puede usar
> tal cual está el ejemplo.
>

Mensaje por **jfgimenez** » Mar Feb 06, 2007 1:09 pm

Xevi,
> La imagen que forma parte del Form... cPicture, la transparencia funciona
> perfecto!!!
> Y... en ambiente MDI... si hacemos transparencia al Padre... todos los
> hijos lo son!!!
> Y puestos a pedir... ¿como puedo hacer que los Forms Modales que lanzo
> desde la aplicación MDI hereden la transparencia del Form de mi menu
> principal???
Sobrecarga la clase TForm y comprueba si oParent es de tipo TForm (
::oParent:IsKindOf( "TForm" ) ) y su estilo, y entonces aplícalo también.
Sería algo así:
IF ::oParent:IsKindOf( "TForm" ) .AND. lAnd( GetWindowLong(
::oParent:Handle, GWL_EXSTYLE ), WS_EX_LAYERED )
...
ENDIF
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Mensaje por **jfgimenez** » Mar Feb 06, 2007 1:10 pm

Ramón,
sí, parece que está bien.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

Mensaje por **jfgimenez** » Mar Feb 06, 2007 1:11 pm

Miguel,
> Si es asi es 100 por 100 utilizable, perfecto y agradecido por vuestra
> magistrales demostraciones, peeeeero ya que está hecho el trabajo, ¿porque
> no darle un valor añadido a Xailer?, cuanto mas potente y funcional sea,
> mayor grandeza para el proyecto, pensemos en quien empieza que no ha
> tenido acceso a este foro privado.
Sí, lo entiendo. Vamos a estudiar si lo ponemos como una propiedad de TForm.
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

jose.luis · Mensaje por **jose.luis** » Mar Feb 06, 2007 4:37 pm

José,
:-)
Y la propiedad del formulario lTransparentBox. Si es .T. aparece un
botoncito al lado del minimizebox y si es .F. lo quita. Y ese botón hace
que sea transparente o no ese formulario.
:-)
Saludos y gracias!
José Luis Capel
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=45c87059@news.xailer.com...]45c87059@news.xailer.com...[/email]
> Miguel,
>
>> Si es asi es 100 por 100 utilizable, perfecto y agradecido por vuestra
>> magistrales demostraciones, peeeeero ya que está hecho el trabajo,
>> ¿porque no darle un valor añadido a Xailer?, cuanto mas potente y
>> funcional sea, mayor grandeza para el proyecto, pensemos en quien empieza
>> que no ha tenido acceso a este foro privado.
>
> Sí, lo entiendo. Vamos a estudiar si lo ponemos como una propiedad de
> TForm.
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>

YouTube · Mensaje por **ignacio** » Mar Feb 06, 2007 6:27 pm

Y si además .........................
Iba a decir una burrada, pero mejor me callo

Saludos
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"José Luis Capel - Aicom" <jose.luis@iaicom.com> escribió en el mensaje
news:45c8a085$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> José,
>
>

>
> Y la propiedad del formulario lTransparentBox. Si es .T. aparece un
> botoncito al lado del minimizebox y si es .F. lo quita. Y ese botón hace
> que sea transparente o no ese formulario.
>
>

>
> Saludos y gracias!
> José Luis Capel
>
>
> "Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
> news:[email=45c87059@news.xailer.com...]45c87059@news.xailer.com...[/email]
>> Miguel,
>>
>>> Si es asi es 100 por 100 utilizable, perfecto y agradecido por vuestra
>>> magistrales demostraciones, peeeeero ya que está hecho el trabajo,
>>> ¿porque no darle un valor añadido a Xailer?, cuanto mas potente y
>>> funcional sea, mayor grandeza para el proyecto, pensemos en quien
>>> empieza que no ha tenido acceso a este foro privado.
>>
>> Sí, lo entiendo. Vamos a estudiar si lo ponemos como una propiedad de
>> TForm.
>>
>> --
>> Un saludo,
>>
>> José F. Giménez
>> http://www.xailer.com
>> http://www.xailer.info
>>
>
>

jose.luis · Mensaje por **jose.luis** » Mié Feb 07, 2007 11:40 am

Ignacio,
>
> Iba a decir una burrada, pero mejor me callo

>
:-)
Saludos,
José Luis Capel