FoxPro/Visual FoxPro - COMO PUEDO PONERLE FONDO A MI SISTEMA

 
Vista:

COMO PUEDO PONERLE FONDO A MI SISTEMA

Publicado por ERICK (31 intervenciones) el 03/06/2002 01:13:20
como puedo hacer ke tenga fondo mi sistema, ke va despues de _SCREEN.PICTURE de ahi no se ke mas va, por favor ke mas codigo sigue
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:COMO PUEDO PONERLE FONDO A MI SISTEMA

Publicado por edd (5 intervenciones) el 03/06/2002 16:06:32
pues como picture es una propiedad.....
ejemplo:
_SCREEN.PICTURE="\SISTEMA\FIGURA.JPG"

ok!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:COMO PUEDO PONERLE FONDO A MI SISTEMA

Publicado por devilzito (24 intervenciones) el 10/06/2002 19:23:59
Prueba esto:

_Screen.WindowState = 2 && Maximizada
WITH _Screen
.Caption = "Mi Aplicación"
.AddObject ( "Title1", "Title" )
.AddObject ( "Title2", "Title" )
.Title2.Top = .Title2.Top - 3
.Title2.Left = .Title2.Left - 3
.Title2.ForeColor = RGB ( 255, 0, 0 )
.AddObject ( "Exit1", "ExitButton" )
.showtips=.T.
ENDWITH

DEFINE CLASS Title AS Label
Visible = .T.
Height = 96
Width = 640
Top = _Screen.Height / 2
Left = 25
Caption = "Aplicación"
ForeColor = RGB ( 192,192,192 )
BackStyle = 0 && Transparent
FontName = "Tahoma"
FontSize = 60
ENDDEFINE

DEFINE Class ExitButton AS CommandButton
Visible = .T.
Height = 60
Width = 60
Caption = "Salir"
Top = _Screen.Height - 90
Left = _Screen.Width - 90
tooltiptext="Cierra la aplicación"
PROCEDURE Click
CLEAR EVENTS
ENDPROC
ENDDEFINE

pon esto en un prg, y ponlo como principal....en tu proyecto.

--devilzito--
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar