ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment attacher un menu à un formulaire 'Top-niveau'   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

Contributions > 02 - SCX : Formulaires

Comment attacher un menu à un formulaire 'Top-niveau'
# 0000000037
ajouté le 02/11/2004 15:02:30 et modifié le 29/03/2006
consulté 5083 fois
Niveau initié

Description
Ceci est seulement un exemple. Certains items dans le menu ne fonctionne pas.
Code source :
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
    ShowWindow = 2
    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"
        AutoCenter = .t.
    ADD OBJECT commandgroup1 AS commandgroup WITH ;
        AutoSize = .F., ;
        ButtonCount = 5, ;
        BorderStyle = 0, ;
        Value = 1, ;
        Height = 37, ;
        Left = 12, ;
        Top = 192, ;
        Width = 348, ;
        Name = "Commandgroup1", ;
        Command1.AutoSize = .F., ;
        Command1.Top = 5, ;
        Command1.Left = 5, ;
        Command1.Height = 27, ;
        Command1.Width = 66, ;
        Command1.Caption = "Top", ;
        Command1.Name = "Command1", ;
        Command2.AutoSize = .F., ;
        Command2.Top = 5, ;
        Command2.Left = 73, ;
        Command2.Height = 27, ;
        Command2.Width = 66, ;
        Command2.Caption = "Previous", ;
        Command2.Name = "Command2", ;
        Command3.AutoSize = .F., ;
        Command3.Top = 5, ;
        Command3.Left = 141, ;
        Command3.Height = 27, ;
        Command3.Width = 66, ;
        Command3.Caption = "Next", ;
        Command3.Name = "Command3", ;
        Command4.AutoSize = .F., ;
        Command4.Top = 5, ;
        Command4.Left = 209, ;
        Command4.Height = 27, ;
        Command4.Width = 66, ;
        Command4.Caption = "Last", ;
        Command4.Name = "Command4", ;
        Command5.AutoSize = .F., ;
        Command5.Top = 5, ;
        Command5.Left = 277, ;
        Command5.Height = 27, ;
        Command5.Width = 66, ;
        Command5.Caption = "Exit", ;
        Command5.Name = "Command5"
    ADD OBJECT text1 AS textbox WITH ;
        Height = 25, ;
        Left = 60, ;
        Top = 48, ;
        Width = 85, ;
        Name = "Text1"
    PROCEDURE oMenu
        LPARAMETERS oFormRef, getMenuName, lUniquePopups, parm4, parm5, parm6, parm7, parm8, parm9
        LOCAL cMenuName, nTotPops, a_menupops, cTypeParm2, cSaveFormName
        IF TYPE("m.oFormRef") # "O" OR ;
          LOWER(m.oFormRef.BaseClass) # 'form' OR ;
          m.oFormRef.ShowWindow # 2
            MESSAGEBOX([This menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.])
            RETURN
        ENDIF
        m.cTypeParm2 = TYPE("m.getMenuName")
        m.cMenuName = SYS(2015)
        m.cSaveFormName = m.oFormRef.Name
        IF m.cTypeParm2 = "C" OR (m.cTypeParm2 = "L" AND m.getMenuName)
            m.oFormRef.Name = m.cMenuName
        ENDIF
        IF m.cTypeParm2 = "C" AND !EMPTY(m.getMenuName)
            m.cMenuName = m.getMenuName
        ENDIF
        DIMENSION a_menupops[3]
        IF TYPE("m.lUniquePopups")="L" AND m.lUniquePopups
            FOR nTotPops = 1 TO ALEN(a_menupops)
                a_menupops[m.nTotPops]SYS(2015)
            ENDFOR
        ELSE
            a_menupops[1]="system"
            a_menupops[2]="forms"
            a_menupops[3]="help"
        ENDIF
        DEFINE MENU (m.cMenuName) IN (m.oFormRef.NameBAR
        DEFINE PAD _0ty0h5629 OF (m.cMenuName) PROMPT "System" COLOR SCHEME 3 ;
            KEY ALT+S, ""
        DEFINE PAD _0ty0h562a OF (m.cMenuName) PROMPT "Forms" COLOR SCHEME 3 ;
            KEY ALT+F, ""
        DEFINE PAD _0ty0h562b OF (m.cMenuName) PROMPT "Help" COLOR SCHEME 3 ;
            KEY ALT+H, ""
        ON PAD _0ty0h5629 OF (m.cMenuName) ACTIVATE POPUP (a_menupops[1])
        ON PAD _0ty0h562a OF (m.cMenuName) ACTIVATE POPUP (a_menupops[2])
        ON PAD _0ty0h562b OF (m.cMenuName) ACTIVATE POPUP (a_menupops[3])
        DEFINE POPUP (a_menupops[1]MARGIN RELATIVE SHADOW COLOR SCHEME 4
        DEFINE BAR 1 OF (a_menupops[1]PROMPT "Exit"
        ON SELECTION BAR 1 OF (a_menupops[1]quit
        DEFINE POPUP (a_menupops[2]MARGIN RELATIVE SHADOW COLOR SCHEME 4
        DEFINE BAR 1 OF (a_menupops[2]PROMPT "Form #1"
        DEFINE BAR 2 OF (a_menupops[2]PROMPT "\-"
        DEFINE BAR 3 OF (a_menupops[2]PROMPT "Form #2"
        DEFINE POPUP (a_menupops[3]MARGIN RELATIVE SHADOW COLOR SCHEME 4
        DEFINE BAR 1 OF (a_menupops[3]PROMPT "About"
        ACTIVATE MENU (m.cMenuName) NOWAIT

        IF m.cTypeParm2 = "C"
            m.getMenuName = m.cMenuName
            m.oFormRef.Name = m.cSaveFormName
        ENDIF
    ENDPROC
    PROCEDURE Init
        _screen.Visible = .f.
        this.oMenu(this)
    ENDPROC
    PROCEDURE commandgroup1.Command5.Click
        thisform.Release
    ENDPROC
ENDDEFINE


Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3