Добрый день. Сестра попросила чтоб я ей помог с лаб. раб . на fox pro. Сам до этого момента на fox pro не работал. Нужно что при выборе пункта меня "Destination Memory" его имя менялось на "Destination Disk" при повторном нажатии обратно на "Destination Memory" . вот мое меню. заранее спасибо
define menu _Menu
define pad _File of _Menu prompt "File"
define pad _Edit of _Menu prompt "Edit"
define pad _Search of _Menu prompt "Search"
define pad _Compile of _Menu prompt "Compile"
define pad _Run of _Menu prompt "Run"
ON pad _File OF _Menu ACTIVATE POPUP _File_f
ON pad _Edit OF _Menu ACTIVATE POPUP _Edit_e
ON pad _Search OF _Menu ACTIVATE POPUP _Search_s
ON pad _Compile OF _Menu ACTIVATE POPUP _Compile_c
ON pad _Run OF _Menu ACTIVATE POPUP _Run_r
define popup _File_f
define bar 1 of _File_f prompt "New" MESSAGE "New"
define bar 2 of _File_f prompt "Open" MESSAGE "Open" KEY F3, " F3"
define bar 3 of _File_f prompt "Save" MESSAGE "Save" KEY F2, " F2"
define bar 4 of _File_f prompt "Save as" MESSAGE "Save as"
ON SELECTION PAD _File OF _Menu activate popup _File_f
define popup _Edit_e
define bar 1 of _Edit_e prompt "Cut" MESSAGE "Cut"
define bar 2 of _Edit_e prompt "Copy" MESSAGE "Copy"
define bar 3 of _Edit_e prompt "Paste" MESSAGE "Paste"
ON SELECTION PAD _Edit OF _Menu activate popup _Edit_e
define popup _Search_s
define bar 1 of _Search_s prompt "Find" MESSAGE "Find"
define bar 2 of _Search_s prompt "Replace" MESSAGE "Replace"
ON SELECTION PAD _Search OF _Menu activate popup _Search_s
define popup _Compile_c
define bar 1 of _Compile_c prompt "Compile" MESSAGE "Compile" KEY ALT+F9, " ALT+F9"
define bar 2 of _Compile_c prompt "Make" MESSAGE "Make" KEY F9, " F9"
define bar 3 of _Compile_c prompt "Build" MESSAGE "Build"
define bar 4 of _Compile_c prompt "Destination Memory" MESSAGE "Destination Memory/Disk"
DO punkt
ON SELECTION PAD _Compile OF _Menu activate popup _Compile_c
define popup _Run_r
define bar 1 of _Run_r prompt "Run" MESSAGE "Run" KEY CTRL+F9, " CTRL+F9"
define bar 2 of _Run_r prompt "Step over" MESSAGE "Step over" KEY F8, " F8"
define bar 3 of _Run_r prompt "Trace into" MESSAGE "Trace into" KEY F7, " F7"
ON SELECTION PAD _Run OF _Menu activate popup _Run_r
activate menu _Menu
PROCEDURE punkt
RETURN
Здравствуйте, ny4ulo, Вы писали:
N>Добрый день. Сестра попросила чтоб я ей помог с лаб. раб . на fox pro. Сам до этого момента на fox pro не работал. Нужно что при выборе пункта меня "Destination Memory" его имя менялось на "Destination Disk" при повторном нажатии обратно на "Destination Memory" . вот мое меню. заранее спасибо
Ежели надобен черт-то ступай к
черту
Здравствуйте, ny4ulo, Вы писали:
N>Добрый день. Сестра попросила чтоб я ей помог с лаб. раб . на fox pro. Сам до этого момента на fox pro не работал. Нужно что при выборе пункта меня "Destination Memory" его имя менялось на "Destination Disk" при повторном нажатии обратно на "Destination Memory" . вот мое меню. заранее спасибо
N>N>define menu _Menu
N>define pad _File of _Menu prompt "File"
N>define pad _Edit of _Menu prompt "Edit"
N>define pad _Search of _Menu prompt "Search"
N>define pad _Compile of _Menu prompt "Compile"
N>define pad _Run of _Menu prompt "Run"
N>ON pad _File OF _Menu ACTIVATE POPUP _File_f
N>ON pad _Edit OF _Menu ACTIVATE POPUP _Edit_e
N>ON pad _Search OF _Menu ACTIVATE POPUP _Search_s
N>ON pad _Compile OF _Menu ACTIVATE POPUP _Compile_c
N>ON pad _Run OF _Menu ACTIVATE POPUP _Run_r
N>define popup _File_f
N>define bar 1 of _File_f prompt "New" MESSAGE "New"
N>define bar 2 of _File_f prompt "Open" MESSAGE "Open" KEY F3, " F3"
N>define bar 3 of _File_f prompt "Save" MESSAGE "Save" KEY F2, " F2"
N>define bar 4 of _File_f prompt "Save as" MESSAGE "Save as"
N>ON SELECTION PAD _File OF _Menu activate popup _File_f
N>define popup _Edit_e
N>define bar 1 of _Edit_e prompt "Cut" MESSAGE "Cut"
N>define bar 2 of _Edit_e prompt "Copy" MESSAGE "Copy"
N>define bar 3 of _Edit_e prompt "Paste" MESSAGE "Paste"
N>ON SELECTION PAD _Edit OF _Menu activate popup _Edit_e
N>define popup _Search_s
N>define bar 1 of _Search_s prompt "Find" MESSAGE "Find"
N>define bar 2 of _Search_s prompt "Replace" MESSAGE "Replace"
N>ON SELECTION PAD _Search OF _Menu activate popup _Search_s
N>define popup _Compile_c
N>define bar 1 of _Compile_c prompt "Compile" MESSAGE "Compile" KEY ALT+F9, " ALT+F9"
N>define bar 2 of _Compile_c prompt "Make" MESSAGE "Make" KEY F9, " F9"
N>define bar 3 of _Compile_c prompt "Build" MESSAGE "Build"
N>define bar 4 of _Compile_c prompt "Destination Memory" MESSAGE "Destination Memory/Disk"
N>DO punkt
N>ON SELECTION PAD _Compile OF _Menu activate popup _Compile_c
N>define popup _Run_r
N>define bar 1 of _Run_r prompt "Run" MESSAGE "Run" KEY CTRL+F9, " CTRL+F9"
N>define bar 2 of _Run_r prompt "Step over" MESSAGE "Step over" KEY F8, " F8"
N>define bar 3 of _Run_r prompt "Trace into" MESSAGE "Trace into" KEY F7, " F7"
N>ON SELECTION PAD _Run OF _Menu activate popup _Run_r
N>activate menu _Menu
N>PROCEDURE punkt
N>RETURN
N>
Пожалуйста.
