powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Изменение свойств Height, Width обьекта Form
2 сообщений из 2, страница 1 из 1
Изменение свойств Height, Width обьекта Form
    #34468778
shanton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Создаю обьект:
goFrm=NEWOBJECT('MyClassForm','MyClasses')
В событии Init приктучиваю следующий обьект, с помощью которого перерисовываю базовые размеры формы (Height=342; Width=543) на размеры Height=675; Width=1016 последнего запуска формы:
WITH This
.AddObject('frmSetting','frmSetting')
.frmSetting.SetPosition(.Name)
ENDWITH
По идее свойства Height, Width должны поменятся, но если на этом месте их проверить, то они остались старые. После выполнения метода goFrm.Show форма принимает вид соответственно новых размеров. Пробовал .Refresh, не помагает. Что нужно прописать, чтобы свойства Height, Width возвращали новые значения?

Метод SetPosition:
LPARAMETERS cWinName

IF EMPTY(cWinName)
cWinName = UPPER(This.Parent.Name)
ELSE
cWinName = UPPER(cWinName)
ENDIF
This.cWname = cWinName
IF !USED(JUSTSTEM(This.cTable))
IF FILE(UPPER(This.cTable) + '.DBF')
SELECT 0
USE (This.cTable) ORDER wname1 ALIAS winsize
ELSE
RETURN
ENDIF
ENDIF
IF !INDEXSEEK(cWinName,.T.,'winsize','wname1')
RETURN
ENDIF
IF winsize.iswmax .And. !This.Parent.lReturn
This.Parent.WindowState = 2
RETURN
ENDIF
IF !EMPTY(winsize.wtop)
This.Parent.Top = winsize.wtop
ENDIF
IF !EMPTY(winsize.wleft)
This.Parent.Left = winsize.wleft
ENDIF
IF !EMPTY(winsize.wwidth)
This.Parent.Width = winsize.wwidth
ENDIF
IF !EMPTY(winsize.wheight)
This.Parent.Height = winsize.wheight
ENDIF
...
Рейтинг: 0 / 0
Изменение свойств Height, Width обьекта Form
    #34469171
shanton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я заметил, что проблема именно при изменении свойства WindowState обькта фома. Изначально WindowState = 0. При загрузке формы это значение может поменятся на WindowState = 2. После изменения значения свойства WindowState я смотрю значения Height, Width, но они остаются старые 342 и 543, а при WindowState = 2 они уже 675 и 1016. Значения фактически то поменялось, но я их сразу невижу. Как тут быть? Чтобы значения Height, Width возвращали новые значения?
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Изменение свойств Height, Width обьекта Form
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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