Base de coneixement
ADS Anŕlisi/Disseny de Soft, S.L.U.
ADS / Base de coneixement / Software ADS / AdsGest / Parxes /
Enviar a un amigo
* Su nombre:
* Su email:
* Email de su amigo:
Comentario:


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í


RSS
Powered by KBPublisher (Knowledge base software)