|
Buscar:
Búsqueda avanzada
|
Navegar por categorías:
|
Revisió 86 - Canvi Bitmaps, pantalles inici adsgest |
||||
Resum modificacions fetes a l’aplicació (Totes les modificacions son a nivell de FOX)
1. Canvi image ADSGEST. En Pere a canviat els Bitmaps de l’aplicació i tambe les pantalles d’inici, splash i about.
Modificacions que s’han de fer als projectes dels clients.
A tots els projectes, copiar i sobreescriure la carpeta BITMAPS.
Les modificacions dels formularis nomes les farem en els Clients que tinguin MANTENIMENT.
Forms modificats (INICI.SCX, SPLASH.SCX,ABOUT.SCX)
Els formularis SPLASH.SCX,ABOUT.SCX ja es poden copiar directament a l’aplicació
Modificacions form INICI.SCX:
Propietats formulari : backcolor = 255,255,255 i borrar picure = ..\
Borrar imatge (name=“Titol”,; picture = ..\bitmaps\fonsads_cat.bmp, ;)
Insertar imatge nova ( name = "Image2", ; picture = .. \bitmaps\fons_adsgest.jpg, ;)
PROCEDURE INIT
*!* IF goApp.Es_TerminalServer = .T.
*!* Thisform.image1.Visible = .f.
*!* this.BackColor= RGB(255,255,255)
*!* ENDIF
Thisform.image2.Top = _SCREEN.Height - Thisform.image2.Height
Thisform.image2.Left = _SCREEN.Width - Thisform.image2.Width
Thisform.image2.Stretch = 0
Thisform.image2.Visible = .T.
Thisform.image2.ZOrder(1)
ENDPROC
PROCEDURE ENUMOBJS
** Enumeració de Objectes del Form (Metode de Crida Recursiva)
LPARAMETERS lObjCont
LOCAL lObj
FOR EACH lObj IN lObjCont.Objects
DO CASE
CASE lower(lObj.BaseClass) = "pageframe"
ThisForm.EnumObjs(lObj)
CASE lower(lObj.BaseClass) = "page"
ThisForm.PosaINTL(lObj)
ThisForm.EnumObjs(lObj)
CASE lower(lObj.BaseClass) = "grid"
ThisForm.EnumObjs(lObj)
CASE lower(lObj.BaseClass) = "column"
ThisForm.EnumObjs(lObj)
CASE lower(lObj.BaseClass) = "container"
IF ATC("_nav",lObj.Class) = 0 AND ATC("Lst_",lObj.Class) = 0
ThisForm.EnumObjs(lObj)
ENDIF
OTHERWISE
ThisForm.PosaINTL(lObj)
ENDCASE
ENDFOR
S’ha de borrar el codi de sota:
IF GpIntl <> "CAT"
ThisForm.Titol.Picture = "FonsAds_Esp.bmp"
ENDIF
ENDPROC
PROCEDURE SHOW
LPARAMETERS nStyle
IF VERSION(2) = 0
ThisForm.cmd2.Visible = .F.
ThisForm.cmd1.Visible = .F.
ENDIF
ThisForm.Frame.left = _screen.width - ThisForm.Frame.width - 2
ThisForm.cnt.Left = 2
ThisForm.cnt.Top = 2
*!* IF GpIntl <> "CAT"
*!* ThisForm.Titol.Picture = "FonsAds_Esp.jpg"
*!* ENDIF
*!* thisform.Titol.top = _screen.height - ThisForm.Titol.Height - 30
*!* thisform.Titol.left = _screen.width - (thisform.Titol.width+20)
ENDPROC
Tocat a BBDD:
Passar parxe : ADSGEST_0086.SQL per deixar registre al sys_revisions conforme s'ha fet aquesta Revisió.
Tocat a l'Aplicació:
Forms:
INICI .SCX (Modificat)(1)
SPLASH.SCX (Modificat)(1)
ABBOUT.SCX (Modificat)(1)
Copiar carptea \BITMAPS
Meta Keywords: parxes adsgest varis
Documents adjunts: ADSGEST_0086.SQL
---------------------------------------------------------------------------------------- Judit Camprubí |
||||
| Archivos adjuntos | |
 |
ADSGEST_0086.sql (575 b) |
| Otras preguntas en esta categoría | |
| » Más preguntas | |
Powered by
KBPublisher (Knowledge base software)