powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Пауза в VFP9
3 сообщений из 3, страница 1 из 1
Пауза в VFP9
    #35081820
AndrewT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
С недавних пор работаю на VFP9 SP2. Не знаю как у кого, но я заметил странную паузу в прорисовке Label на форме.
Т.е. при исполненнии нижеприведенного примера слово Тест появляется на форме через заметную на глаз паузу.
В то же время в VFP7 все работает так как и должно. Почему?


*********
loForm = CREATEOBJECT('form1')

loForm.Show(0)
susp

DEFINE CLASS form1 AS form

Top = 0
Left = 0
Height = 111
Width = 311
DoCreate = .T.
Caption = "Form1"
Name = "Form1"

ADD OBJECT label1 AS label WITH ;
Caption = "Тест", ;
Height = 12, ;
Left = 144, ;
Top = 48, ;
Width = 36, ;
Name = "Label1"

ENDDEFINE
*********
...
Рейтинг: 0 / 0
Пауза в VFP9
    #35081989
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Потому, что форма не модальная и после создния оьекта код продолжает выполняться

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
PUBLIC loForm

loForm = CREATEOBJECT('form1')

loForm.Show( 0 )


DEFINE CLASS form1 AS form

Top =  0 
Left =  0 
Height =  111 
Width =  311 
DoCreate = .T.
Caption = "Form1"
Name = "Form1"

ADD OBJECT label1 AS label WITH ;
Caption = "Òåñò", ;
Height =  12 , ;
Left =  144 , ;
Top =  48 , ;
Width =  36 , ;
Name = "Label1"

ENDDEFINE
...
Рейтинг: 0 / 0
Пауза в VFP9
    #35082530
AndrewT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да, да. Конечно. Нужно loForm.Show(1).
Но почему же в VFP7 работает?
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Пауза в VFP9
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]