Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Optionsgroup / 10 сообщений из 10, страница 1 из 1
04.04.2005, 10:00
    #32995658
@Ken
@Ken
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Optionsgroup
Есть табличка, в которой будет до 10 записей - сорта, необходимо программно на форме чтобы эти значения отображались в объекте Optionsgroup. Подскажите пожалуйста
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.04.2005, 10:11
    #32995698
Hel!Riser
Hel!Riser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Optionsgroup
нужно програмно добавлять, устанавливать координаты и типа того.. Вопщем может лутше порекомендовать тебе комбовокс?! никаких замарочек и выбор как в opg - только одной позиции
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.04.2005, 10:16
    #32995714
Диченка
Диченка
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Optionsgroup
@KenЕсть табличка, в которой будет до 10 записей - сорта, необходимо программно на форме чтобы эти значения отображались в объекте Optionsgroup. Подскажите пожалуйста

ну а что тут сложного ? у опшнгруп есть свойство - buttoncount, которое определяет число кнопок-переключателей и будет равно кол-ву записей в твоей табличке. Что-то типа этого:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Local lnCnt,lnCntAll
Select tblSort && Таблица сортов
Go Top
IF !EOF()
 lnCntAll = RECCOUNT()
 lnCnt =  0 
 THISFORM.myOptionGroup.ButtonCount = lnCntAll
 SCAN
   lnCnt = lnCnt +  1 
  THISFORM.myOptionGroup.Buttons[lnCnt].Caption = tblSort.Nam
 ENDSCAN
ENDIF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2005, 01:15
    #32999238
Igor Korolyov
Igor Korolyov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Optionsgroup
Hi Диченко!

> ну а что тут сложного

Позиция - как "внутренних частей", так и всей группы, размеры кнопок и группы...

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2005, 10:58
    #32999734
@Ken
@Ken
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Optionsgroup
И как же быть с этими позициями
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2005, 11:20
    #32999824
kms_
kms_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Optionsgroup
Привет, @ken!

Попробуй нечто подобное:
в форме сделай новый метод, например AddOptionGroup:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
LParameter nLeft,nTop,nWidth,nHeight,nCount
*Например
*nLeft= 5 
*nTop= 5 
*nWidth= 100 
*nHeight= 100 
*nCount= 5 
ThisForm.AddObject('OpGr','OPTIONGROUP')
With ThisForm.OpGr
     .Left=nLeft
     .Top=nTop
     .Width=nWidth
     .Height=nHeight
     .ButtonCount=nCount
     nButtonHeight=(nHeight- 3 )/nCount
     For mi= 1  To nCount
         .Buttons[mi].Style= 1 
         .Buttons[mi].Height=nButtonHeight- 3 
         .Buttons[mi].Width=nWidth- 10 
         .Buttons[mi].Top= 3 +nButtonHeight*(mi- 1 )
     EndFor
     .Visible=.t.
EndWith
И вызывай его когда тебе нужно.
Вроде работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2005, 11:39
    #32999888
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Optionsgroup
2 _kms
нехило бы было в этом методе проверить на существование такого объекта на форме а то опаньки получаться
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2005, 12:27
    #33000130
kms_
kms_
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Optionsgroup
Leaf, соглассен, но это уже так сказать мелочи жизни, просто я решаю тут свою проблемку с кодовой страницей и все мысли, естественно, там, а этот код написал так сказать в фоновом режиме, так что извиняйте... вот с проверкой:

вместо этого:
Код: plaintext
ThisForm.AddObject('OpGr','OPTIONGROUP')
вписать это:
Код: plaintext
1.
2.
If Type('ThisForm.OpGr')<>'O'
   ThisForm.AddObject('OpGr','OPTIONGROUP')
EndIF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2005, 16:06
    #33000926
@Ken
@Ken
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Optionsgroup
По коду Диченко закинул Optionsgroup.

Local lnCnt,lnCntAll
Select tblSort && Таблица сортов
Go Top
IF !EOF()
lnCntAll = RECCOUNT()
lnCnt = 0
THISFORM.myOptionGroup.ButtonCount = lnCntAll
SCAN
lnCnt = lnCnt + 1
THISFORM.myOptionGroup.Buttons[lnCnt].Caption = tblSort.Nam
ENDSCAN
ENDIF
табличка сортов:
Kod Nam
1 1 сорт
2 2 сорт
и т.д.
При выборе 1 сорта необходимо чтобы происходило како-то событие, в каком методе и как лучше это сделать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.04.2005, 14:46
    #33002806
HelenSh
HelenSh
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Optionsgroup
Hi @Ken!
Можно создать на форме новый метод (tCange) , к кот. можно обратиться например в событии Click Event объекта myOptionGroup:

***Код метода tCange()
_p=Thisform.myOptionGroup.Value
_p1=Thisform.myOptionGroup[_p].Caption
If Lower('1 сорт') $Lower(_p1)
*происходит какое-то событие
endif
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Optionsgroup / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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