Titolo: Come simulare l'apertura a tendina di una finestra in stile OS X
Categoria: Tecniche |
|
Ultimo Aggiornamento: 24/04/04 |
E' possibile con 4D simulare l'apertura e la chiusura a tendina in stile OS X con dei semplici cicli di For ...
End for, al cui interno viene incrementata o diminuita la lunghezza del 'bottom' della finestra mediante il comando SET WINDOW RECT.
La finestra da aprire dovra' avere una altezza di partenza uguale a 0 e dovra' essere ridimensionabile ad un'altezza massima desiderata nota.
A questo punto sara sufficiente inserire nel form event=On Load della finestra a tendina:
Case of : (Form event=On Load )
C_LONGINT($i)
For ($i;0;250;25)
SET WINDOW RECT((vright-300)-300;vtop;(vright-300)+300;vtop+$i;WPU)
End forEnd case e nel pulsante di chiusura della finestra o nel form event=On Close Box:
Case of : (Form event=On Close Box )
For ($i;0;250;25)
SET WINDOW RECT((vright-300)-300;vtop;(vright-300)+300;vtop+250-$i;WPU)
End for CANCEL
End case I parametri (vright; vtop; etc.) di posizionamento della finestra a tendina all'interno di un'altra finestra sono stati precedentemente acquisiti con il comando GET WINDOW RECT riferito alla finestra esterna.
La velocità di apertura e chiusura della finestra a tendina potrà essere modificata variando lo 'step' del ciclo di for.
Non e' OS X ma cerca di avvicinarsi.
| Inviato da: Raffaele Furlotti |
|
Visite: 14530 |
Se accedi con utente e password, puoi aggiungere dei commenti.
