AddObject / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / AddObject

6 сообщений из 6, страница 1 из 1

AddObject

#35254163

Valerii

Участник

Сообщения: 754

Рейтинг: 0 / 0

НАрод,
Есть проблема, при добавлении на форму кнопок в N-рядов, и используя ADDOBJECT и скроллинг на форме, при прокрутке скролинга кнопки не прорисовываются, но есди кликнуть в предполагаемое место мышью, она (кнопка) рисуется.. Как сделать так чтобы неизвестное количество кнопок четкопрорисовывались на форме, когда прокручиваем обьекты на форме при помощи скролинга?
Все спасибою

...

Рейтинг:

0 / 0

14.04.2008, 17:13

| Ответить | Цитировать | Написать

AddObject

#35254270

12345вышелзайчикпогулять

Гость

нужно ScrollBars на форме установить в 3

...

Рейтинг:

0 / 0

14.04.2008, 17:43

| Ответить | Цитировать | Написать

AddObject

#35254293

12345вышелзайчикпогулять

Гость

Код: 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.
26.
27.
28.
29.
30.
31.
32.
33.

PUBLIC ofrm11

ofrm11=NEWOBJECT("frm11")
ofrm11.Show()
RETURN


DEFINE CLASS frm11 AS form


	ScrollBars =  3 
	Name = "Frm11"


	PROCEDURE Init
		lnCntrl =  1 
		for j= 0  to  5 
			for i= 1  to  10 
				lnCntrl = lnCntrl +  1 
				this.AddObject('CommandButton' + ltrim(str(lnCntrl)), 'CommandButton')
				loButton = getpem(this, 'CommandButton' + ltrim(str(lnCntrl)))
				with loButton
					.top = i* 40 
					.left = j *  100 
					.height=  20 
					.visible = .t.
				endwith 
			endfor 
		endfor
	ENDPROC


ENDDEFINE

...

Рейтинг:

0 / 0

14.04.2008, 17:52

| Ответить | Цитировать | Написать

AddObject

#35254488

Valerii

Участник

Сообщения: 754

Рейтинг: 0 / 0

12345вышелзайчикпогулять

Код: 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.
26.
27.
28.
29.
30.
31.
32.
33.

PUBLIC ofrm11

ofrm11=NEWOBJECT("frm11")
ofrm11.Show()
RETURN


DEFINE CLASS frm11 AS form


	ScrollBars =  3 
	Name = "Frm11"


	PROCEDURE Init
		lnCntrl =  1 
		for j= 0  to  5 
			for i= 1  to  10 
				lnCntrl = lnCntrl +  1 
				this.AddObject('CommandButton' + ltrim(str(lnCntrl)), 'CommandButton')
				loButton = getpem(this, 'CommandButton' + ltrim(str(lnCntrl)))
				with loButton
					.top = i* 40 
					.left = j *  100 
					.height=  20 
					.visible = .t.
				endwith 
			endfor 
		endfor
	ENDPROC


ENDDEFINE

Я скорее всего не совсем так сформулировал свой вопрос. У меня кнопки появляются все - с этим изначально нормально. Я их выкладываю из древидной структуры, и конечно там есть кнопка Back , которая вырисовывает кнопки структурой выше и вот если в этот момент предыдущая структура имеет больше кнопок чем те которые умещаются на видимой части формы, и когда прокручиваю скроллинг вниз, показывается кусок чернонорго экрана, см. картинку:
Как от этого избавиться?
Кнопки я закидываю при помощи:

Код: 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.
26.
27.
28.

PARAMETERS xParentKey
SELECT * FROM Menu_list ;
	WHERE ALLTRIM(parent) == xParentKey ;
	ORDER BY TEXT ;
INTO CURSOR (ThisForm.MenuCursor)

	j = 0
	yOffSet = 300
	xOffset = 0
	i = 0

DO WHILE !EOF()
	i = i + 1
	j = j + 1
	xOffset = xOffset + 108

	IF j > 3
		J = 0
		yOffSet = yOffSet + 74
		xOffset = 0
	ENDIF	

	ThisForm.AddObject('cmdCmndBtn'+Alltrim(STR(i)),'CommandMenu',ALLTRIM(Text),Key, parent, xOffset, yOffSet, if_Child)
	ExecString = 'ThisForm.cmdCmndBtn'+Alltrim(STR(i))+'.Visible = .T.'
	&ExecString
	SELECT (ThisForm.MenuCursor)
	SKIP
ENDDO
This.Resize

Код: plaintext

...

Рейтинг:

0 / 0

14.04.2008, 19:35

| Ответить | Цитировать | Написать

AddObject

#35254492

Valerii

Участник

Сообщения: 754

Рейтинг: 0 / 0

Valerii 12345вышелзайчикпогулять

Код: 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.
26.
27.
28.
29.
30.
31.
32.
33.

PUBLIC ofrm11

ofrm11=NEWOBJECT("frm11")
ofrm11.Show()
RETURN


DEFINE CLASS frm11 AS form


	ScrollBars =  3 
	Name = "Frm11"


	PROCEDURE Init
		lnCntrl =  1 
		for j= 0  to  5 
			for i= 1  to  10 
				lnCntrl = lnCntrl +  1 
				this.AddObject('CommandButton' + ltrim(str(lnCntrl)), 'CommandButton')
				loButton = getpem(this, 'CommandButton' + ltrim(str(lnCntrl)))
				with loButton
					.top = i* 40 
					.left = j *  100 
					.height=  20 
					.visible = .t.
				endwith 
			endfor 
		endfor
	ENDPROC


ENDDEFINE

Код: 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.
26.
27.
28.

PARAMETERS xParentKey
SELECT * FROM Menu_list ;
	WHERE ALLTRIM(parent) == xParentKey ;
	ORDER BY TEXT ;
INTO CURSOR (ThisForm.MenuCursor)

	j = 0
	yOffSet = 300
	xOffset = 0
	i = 0

DO WHILE !EOF()
	i = i + 1
	j = j + 1
	xOffset = xOffset + 108

	IF j > 3
		J = 0
		yOffSet = yOffSet + 74
		xOffset = 0
	ENDIF	

	ThisForm.AddObject('cmdCmndBtn'+Alltrim(STR(i)),'CommandMenu',ALLTRIM(Text),Key, parent, xOffset, yOffSet, if_Child)
	ExecString = 'ThisForm.cmdCmndBtn'+Alltrim(STR(i))+'.Visible = .T.'
	&ExecString
	SELECT (ThisForm.MenuCursor)
	SKIP
ENDDO
This.Resize

Код: plaintext

Забыл, у меня кнопка - визуальный класс - с своими методами и свойствами - они в параметрах и передаются...

...

Рейтинг:

0 / 0

14.04.2008, 19:38

| Ответить | Цитировать | Написать

AddObject

#35254509

ВладимирМ

Участник

Откуда: г. Москва

Сообщения: 7 937

Рейтинг: 0 / 0

Попробуй оценить максимально возможный размер формы и положи на форму прозрачный Shape нужных (максимальных) размеров. А потом уже накидывай кнопки. Кнопки можешь добавлять/удалять, но граничный Shape должен всегда оставаться на форме.

Смысл в том, чтобы у формы не возникало необходимости динамически увеличивать свой размер. Не знаю, как в VFP9, но в старых версиях FoxPro с этим были похожие глюки.

...

Рейтинг:

0 / 0

14.04.2008, 19:47

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / AddObject

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?desktop=1&fid=41&tid=1587888]:	0ms
get settings:	8ms
get forum list:	11ms
check forum access:	2ms
check topic access:	2ms
track hit:	52ms
get topic data:	8ms
get forum data:	2ms
get page messages:	29ms
get tp. blocked users:	1ms
others:	215ms

total:	330ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы