** WINDOW XP, VF9
** Объявляю окно
define window tekpan0 at 0,0 size 25,81 ;
SYSTEM FONT "Courier New",15 style "NB"
ACTIVATE WINDOW tekpan0
** оформляю окно необходимыми записями по SAY
** формирую в окне меню
Do while .t.
C01=0
C02=0
C03=0
@ 10,3 get c01 pict'@* \<Меню 1' FONT "Courier New",15 style "NB"
@ 11,3 get c02 pict'@* \<Меню 2' FONT "Courier New",15 style "NB"
@ 12,3 get c03 pict'@* \<Выход ' FONT "Courier New",15 style "NB"
read cycle object 3
if c01=1
do pp01
endif
if c02=1
do pp02
endif
if c03=1
exit
endif
enddo

При запуске программы как только подвожу курсор мыши к меню -
все окно стирается, оставляя только название того меню,
где находится курсор мыши. Как только выберу меню и проработает
одна из подпрограмм, идет возврат на основное меню и первоначальное
окно восстанавливается и меню работает нормально!
Причем на некоторых компьютерах такого затирания окна вначале
не происходит. Почему так?

Help - read

Included for backward compatibility. Use the Form Designer instead.

vfvoproleg
VF9

Если это означает, VFP-9, то сам подход не верен.

Ха!

Оказывается есть тут люди и дремучее меня!

Студент

to vfvoproleg
@ 10,3 get использовался в досовском варианте Фокса.
Он сохраняется для совместимости, но он очень не вписывается под Windows,
он просто должен быть давно забыт.
Но я не думаю, что новичка нужно гнобить за то, что, скажем, прочитал он это в Хелпе и при этом Дос просто не застал.
Просто создай окно и в нем Textbox.
А в нем можно использовать его свойство ControlSource, методы, например Valid.
Немного сложнее, чем @ 10,3 get, а может проще, но это легко.
По-любому, Вы на верном пути, а на старте мы все были чудаками, просто в этом не признаемся...



Исправлено 1 раз(а). Последнее : Ydin, 21.09.15 08:29

vfvoproleg
Почему так?

Сервис-пак установлен? Были какие-то исправления GDI+, если правильно помню.


В конце отсутствует RELEASE WINDOW tekpan0.