Xailer & OZ Software

Hola,
Estoy probando un Form tipo bsSPLASH y lo uso modal. Lo llamo desde otro
form de la siguiente manera:
TFormSelec():New(Self):ShowModal()
En principio es modal y no puedo tocar nada de la pantalla, pero, si conmuto
a otra aplicación con Alt + Tab, mi aplicación se minimiza correctamente
pero este form SPLASH sigue en 1º plano, incluso encima del outlook, ahora
por ejemplo.
Necesito este estilo para que no tenga título ni borde.
Lo que necesito es: modal en mi aplicación, pero que se minimice con ella.
¿Es posible?
Un Saludo,
Joaquín

Joaquín,
> Estoy probando un Form tipo bsSPLASH y lo uso modal. Lo llamo desde otro
> form de la siguiente manera:
>
> TFormSelec():New(Self):ShowModal()
>
> En principio es modal y no puedo tocar nada de la pantalla, pero, si
> conmuto a otra aplicación con Alt + Tab, mi aplicación se minimiza
> correctamente pero este form SPLASH sigue en 1º plano, incluso encima del
> outlook, ahora por ejemplo.
>
> Necesito este estilo para que no tenga título ni borde.
>
> Lo que necesito es: modal en mi aplicación, pero que se minimice con
> ella. ¿Es posible?
Puedes usar el estilo bsNONE; es prácticamente igual que bsSPLASH, salvo que
no es 'topmost' ni muestra la sombra en XP.
--
Un saludo,
José F. Giménez
http://www.xailer.com

Gracias Jose,
Pero pierde todo su encanto, unos pequeños bordes en 3D y una pequeña
sombra.
Un Saludo,
Joaquín
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:458991d6$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Joaquín,
>
>> Estoy probando un Form tipo bsSPLASH y lo uso modal. Lo llamo desde otro
>> form de la siguiente manera:
>>
>> TFormSelec():New(Self):ShowModal()
>>
>> En principio es modal y no puedo tocar nada de la pantalla, pero, si
>> conmuto a otra aplicación con Alt + Tab, mi aplicación se minimiza
>> correctamente pero este form SPLASH sigue en 1º plano, incluso encima del
>> outlook, ahora por ejemplo.
>>
>> Necesito este estilo para que no tenga título ni borde.
>>
>> Lo que necesito es: modal en mi aplicación, pero que se minimice con
>> ella. ¿Es posible?
>
> Puedes usar el estilo bsNONE; es prácticamente igual que bsSPLASH, salvo
> que no es 'topmost' ni muestra la sombra en XP.
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>

Joaquín,
prueba a poner lo siguiente en el formulario (ojo, yo no lo he probado):
CLASS TForm1 FROM TForm
PROPERTY nBorderStyle WRITE METHOD SetBorderStyle
METHOD SetBorderStyle()
ENDCLASS
METHOD SetBorderStyle( nBorderStyle ) CLASS TForm1
UPDATE ::FnBorderStyle TO nBorderStyle
::nCtlStyle := nOr( WS_POPUP, WS_CLIPCHILDREN, WS_DLGFRAME )
::nExStyle := 0
IF Application:nWinVer > 5 // WinXP & >
#define CS_DROPSHADOW 0x00020000
::nClassStyle := CS_DROPSHADOW
ENDIF
RETURN ::FnBorderStyle
--
Un saludo,
José F. Giménez
http://www.xailer.com

Jose,
Me quito el sombrero
No dejas de sorprenderme!, funciona perfecto y se minimiza con la
aplicación.
Un Saludo,
Joaquín
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=4589a459@news.xailer.com...]4589a459@news.xailer.com...[/email]
> Joaquín,
>
> prueba a poner lo siguiente en el formulario (ojo, yo no lo he probado):
>
> CLASS TForm1 FROM TForm
> PROPERTY nBorderStyle WRITE METHOD SetBorderStyle
> METHOD SetBorderStyle()
> ENDCLASS
>
> METHOD SetBorderStyle( nBorderStyle ) CLASS TForm1
> UPDATE ::FnBorderStyle TO nBorderStyle
> ::nCtlStyle := nOr( WS_POPUP, WS_CLIPCHILDREN, WS_DLGFRAME )
> ::nExStyle := 0
> IF Application:nWinVer > 5 // WinXP & >
> #define CS_DROPSHADOW 0x00020000
> ::nClassStyle := CS_DROPSHADOW
> ENDIF
> RETURN ::FnBorderStyle
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>

Jose,
Un pequeño problema me he encontrado.
Efectivamente pone la sombra en el form, pero, si pinchas en cualquier lugar
fuera desaparece. Seguramente habrá que refrescarlo en algún evento, pero no
sé donde.
Un Saludo,
Joaquín
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=4589a459@news.xailer.com...]4589a459@news.xailer.com...[/email]
> Joaquín,
>
> prueba a poner lo siguiente en el formulario (ojo, yo no lo he probado):
>
> CLASS TForm1 FROM TForm
> PROPERTY nBorderStyle WRITE METHOD SetBorderStyle
> METHOD SetBorderStyle()
> ENDCLASS
>
> METHOD SetBorderStyle( nBorderStyle ) CLASS TForm1
> UPDATE ::FnBorderStyle TO nBorderStyle
> ::nCtlStyle := nOr( WS_POPUP, WS_CLIPCHILDREN, WS_DLGFRAME )
> ::nExStyle := 0
> IF Application:nWinVer > 5 // WinXP & >
> #define CS_DROPSHADOW 0x00020000
> ::nClassStyle := CS_DROPSHADOW
> ENDIF
> RETURN ::FnBorderStyle
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>

Joaquín,
> Un pequeño problema me he encontrado.
>
> Efectivamente pone la sombra en el form, pero, si pinchas en cualquier
> lugar fuera desaparece. Seguramente habrá que refrescarlo en algún evento,
> pero no sé donde.
¿qué desaparece, la ventana o la sombra?
Si es la ventana, hazla modal, pero si es la sombra, entonces con "windows"
hemos topado
--
Un saludo,
José F. Giménez
http://www.xailer.com

Jose,
Desaparece sólo la sombra.
Es al clickear fuera, quizás haya un evento NCC... me parece recordar, que
salta cuando haces click fuera del área cliente.
¿Pueden ir por ahí los tiros?
Un Saludo,
Joaquín
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=458fd12d@news.xailer.com...]458fd12d@news.xailer.com...[/email]
> Joaquín,
>
>> Un pequeño problema me he encontrado.
>>
>> Efectivamente pone la sombra en el form, pero, si pinchas en cualquier
>> lugar fuera desaparece. Seguramente habrá que refrescarlo en algún
>> evento, pero no sé donde.
>
> ¿qué desaparece, la ventana o la sombra?
>
> Si es la ventana, hazla modal, pero si es la sombra, entonces con
> "windows" hemos topado
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>

Joaquín,
> Desaparece sólo la sombra.
>
> Es al clickear fuera, quizás haya un evento NCC... me parece recordar, que
> salta cuando haces click fuera del área cliente.
>
> ¿Pueden ir por ahí los tiros?
No creo. Es más, la sombra está fuera del área no cliente (y por supuesto
también del área cliente). Si encuentro un hueco le echaré un vistazo, pero
no tiene buena pinta.
--
Un saludo,
José F. Giménez
http://www.xailer.com