Ventana MSN Messeger
Publicado por MasterBrain (29 intervenciones) el 20/01/2005 18:01:23
//Evento Open de la Aplicacion
Environment env
Open(w_msn)
GetEnvironment(env)
ii_totaly = PixelsToUnits(env.ScreenHeight,YPixelsToUnits!)
ii_y = env.ScreenHeight - UnitsToPixels(w_msn.Height,YUnitsToPixels!)
ii_x = env.ScreenWidth - UnitsToPixels(w_msn.Width,XUnitsToPixels!)
w_msn.x = PixelsToUnits(ii_x, XPixelsToUnits!)
w_msn.y = ii_totaly
w_msn.Visible = True
For i = ii_totaly to ii_y - 20 step -1
w_msn.y = PixelsToUnits(i, YPixelsToUnits!)
Next
w_msn.st_mensaje.Text = commandline
idle(5) // Tiempo de Visivilidad
//Evento Idle
Int i
For i = ii_y to ii_totaly
w_msn.y = PixelsToUnits(i, YPixelsToUnits!)
Next
Close(w_msn)
/*Se puede hacer con ventanas Main recomendable hacerlas con vantanas
PopUp para asì no permitir que la cierren y poder temporizar el tiempo de
visivilidad.
MasterBrain.
*/
Environment env
Open(w_msn)
GetEnvironment(env)
ii_totaly = PixelsToUnits(env.ScreenHeight,YPixelsToUnits!)
ii_y = env.ScreenHeight - UnitsToPixels(w_msn.Height,YUnitsToPixels!)
ii_x = env.ScreenWidth - UnitsToPixels(w_msn.Width,XUnitsToPixels!)
w_msn.x = PixelsToUnits(ii_x, XPixelsToUnits!)
w_msn.y = ii_totaly
w_msn.Visible = True
For i = ii_totaly to ii_y - 20 step -1
w_msn.y = PixelsToUnits(i, YPixelsToUnits!)
Next
w_msn.st_mensaje.Text = commandline
idle(5) // Tiempo de Visivilidad
//Evento Idle
Int i
For i = ii_y to ii_totaly
w_msn.y = PixelsToUnits(i, YPixelsToUnits!)
Next
Close(w_msn)
/*Se puede hacer con ventanas Main recomendable hacerlas con vantanas
PopUp para asì no permitir que la cierren y poder temporizar el tiempo de
visivilidad.
MasterBrain.
*/
Valora esta pregunta
0