> SET SYSMENU AUTOMATIC
DEFINE PAD _3tg14hdbk OF _MSYSMENU PROMPT «Мультимедіа» COLOR SCHEME 3
DEFINE PAD _3tg14hdbl OF _MSYSMENU PROMPT «Сервіс» COLOR SCHEME 3PAD _3tg14hdbm OF _MSYSMENU PROMPT «Вихід» COLOR SCHEME 3
ON PAD _3tg14hdbk OF _MSYSMENU ACTIVATE POPUP мультимедіа
ON PAD _3tg14hdbl OF _MSYSMENU ACTIVATE POPUP сервісSELECTION PAD _3tg14hdbm OF _MSYSMENU Quit
DEFINE POPUP мультимедіа MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF мультимедіа PROMPT «Аудіо програвач» BAR 2 OF мультимедіа PROMPT «Відео програвач» SELECTION BAR 1 OF мультимедіа Do form sys (5) + « Kursovaya Programm demoaudio. scx »SELECTION BAR 2 OF мультимедіа Do form sys (5) +« Kursovaya Programm demovideo.scx »
DEFINE POPUP сервіс MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF сервіс PROMPT «Довідка» BAR 2 OF сервіс PROMPT «Про програму» SELECTION BAR 1 OF сервіс do form sys (5) + « Kursovaya Programm spravka.scx» ; SELECTION BAR 2 OF сервіс do form sys (5) + « Kursovaya Programm o_programme.scx»
2.2 Меню для адміністраторів
У меню адміністраторів з'являється додатковий пункт «ADMIN», в якому адміністратори можуть реєструвати, змінювати і видаляти пользователей.SYSMENU TOSYSMENU AUTOMATIC
DEFINE PAD _3tg14g2at OF _MSYSMENU PROMPT «Мультимедіа» COLOR SCHEME 3
DEFINE PAD _3tg14g2au OF _MSYSMENU PROMPT «Сервіс» COLOR SCHEME 3PAD _3tg14g2av OF _MSYSMENU PROMPT «Admin» COLOR SCHEME 3PAD _3tg14g2aw OF _MSYSMENU PROMPT «Вихід» COLOR SCHEME 3
ON PAD _3tg14g2at OF _MSYSMENU ACTIVATE POPUP мультимедіа
ON PAD _3tg14g2au OF _MSYSMENU ACTIVATE POPUP сервісPAD _3tg14g2av OF _MSYSMENU ACTIVATE POPUP adminSELECTION PAD _3tg14g2aw OF _MSYSMENU Quit
DEFINE POPUP мультимедіа MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF мультимедіа PROMPT «Аудіо програвач» BAR 2 OF мультимедіа PROMPT «Відео програвач» SELECTION BAR 1 OF мультимедіа Do form Sys (5) + « Kursovaya Programm demoaudio. scx »SELECTION BAR 2 OF мультимедіа Do form Sys (5) +« Kursovaya Programm demovideo.scx »
DEFINE POPUP сервіс MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF сервіс PROMPT «Довідка» BAR 2 OF сервіс PROMPT «Про програму» SELECTION BAR 1 OF сервіс do form sys (5) + « Kursovaya Programm spravka.scx» ; SELECTION BAR 2 OF сервіс do form sys (5) + « Kursovaya Programm o_programme.scx»
DEFINE POPUP admin MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF admin PROMPT «Користувачі» SELECTION BAR 1 OF admin Do form sys (5) + « Kursovaya Programm registr.scx»
3. Опис форм
3.1 Форма DemoAudio.scx
Форма DemoAudio.scx (див. рис.1) програє музику, яку Ви обрали у себе на комп'ютері.
Рис.1
CLASS vfpplayer AS container
...
