ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как скрыть закладки в PageFrame
7 сообщений из 7, страница 1 из 1
Как скрыть закладки в PageFrame
    #34474368
Scorpio_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Scorpio_md
Участник
Добрый вечер.
Подскажите, создал PageFrame, там 18 закладок. У меня теперь такая проблема, мне необходимо спрятать некоторые закладки, по мере доступа. Т.е. пользователи должны видеть только те, которые им можно, а остальные вообще спрятать, чтобы их не дразнить.

Как мне решить эту проблему ???
...
Рейтинг: 0 / 0
19.04.2007, 22:39
| Ответить | Цитировать | Написать  
Как скрыть закладки в PageFrame
    #34474799
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex11100
Гость
авторнеобходимо спрятать

может сделать недоступными? и успокоиться?


ну если хочется, то только прибивать,
свойства визибл у странички нет
Код: 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.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


DEFINE CLASS form1 AS form


	Top =  0 
	Left =  0 
	Height =  231 
	Width =  375 
	DoCreate = .T.
	Caption = "Form1"
	*-- XML Metadata for customizable properties
	_memberdata = ""
	Name = "Form1"


	ADD OBJECT pageframe1 AS pageframe WITH ;
		ErasePage = .T., ;
		PageCount =  18 , ;
		Top =  12 , ;
		Left =  0 , ;
		Width =  372 , ;
		Height =  169 , ;
		Name = "Pageframe1", ;
		Page1.Caption = "Page1", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Page2", ;
		Page2.Name = "Page2", ;
		Page3.Caption = "Page3", ;
		Page3.Name = "Page3", ;
		Page4.Caption = "Page4", ;
		Page4.Name = "Page4", ;
		Page5.Caption = "Page5", ;
		Page5.Name = "Page5", ;
		Page6.Caption = "Page6", ;
		Page6.Name = "Page6", ;
		Page7.Caption = "Page7", ;
		Page7.Name = "Page7", ;
		Page8.Caption = "Page8", ;
		Page8.Name = "Page8", ;
		Page9.Caption = "Page9", ;
		Page9.Name = "Page9", ;
		Page10.Caption = "Page10", ;
		Page10.Name = "Page10", ;
		Page11.Caption = "Page11", ;
		Page11.Name = "Page11", ;
		Page12.Caption = "Page12", ;
		Page12.Name = "Page12", ;
		Page13.Caption = "Page13", ;
		Page13.Name = "Page13", ;
		Page14.Caption = "Page14", ;
		Page14.Name = "Page14", ;
		Page15.Caption = "Page15", ;
		Page15.Name = "Page15", ;
		Page16.Caption = "Page16", ;
		Page16.Name = "Page16", ;
		Page17.Caption = "Page17", ;
		Page17.Name = "Page17", ;
		Page18.Caption = "Page18", ;
		Page18.Name = "Page18"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top =  192 , ;
		Left =  144 , ;
		Height =  27 , ;
		Width =  84 , ;
		Caption = "Command1", ;
		Name = "Command1"


	PROCEDURE command1.Click
		for each loPage in thisform.pageframe1.Pages
			if inlist(loPage.PageOrder, 2 , 4 , 6 , 8 , 10 , 12 , 16 , 18 )
				loPage.enabled = .f.
			endif
		endfor
		for each loPage in thisform.pageframe1.Pages
			if !loPage.enabled
				thisform.pageframe1.RemoveObject(loPage.name)
			endif
		endfor
	ENDPROC


ENDDEFINE
...
Рейтинг: 0 / 0
20.04.2007, 09:05
| Ответить | Цитировать | Написать  
Как скрыть закладки в PageFrame
    #34474840
Al_fa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Al_fa
Гость
Scorpio_mdДобрый вечер.
Подскажите, создал PageFrame, там 18 закладок. У меня теперь такая проблема, мне необходимо спрятать некоторые закладки, по мере доступа. Т.е. пользователи должны видеть только те, которые им можно, а остальные вообще спрятать, чтобы их не дразнить.

Как мне решить эту проблему ???
Можно их сделать disable + очистить их caption, или полностью их удалять
...
Рейтинг: 0 / 0
20.04.2007, 09:21
| Ответить | Цитировать | Написать  
Как скрыть закладки в PageFrame
    #34474975
Ffffffffffff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ffffffffffff
Гость
Можно еще сделать два PageFrame. Один горизонтально,
один вертикально (TabOrientation). А у PageFrame уже есть
свойство Visible.
...
Рейтинг: 0 / 0
20.04.2007, 10:07
| Ответить | Цитировать | Написать  
Как скрыть закладки в PageFrame
    #34475499
Scorpio_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Scorpio_md
Участник
Спасибо. Попробуем поиграться с динамическим количеством закладок.
...
Рейтинг: 0 / 0
20.04.2007, 12:02
| Ответить | Цитировать | Написать  
Как скрыть закладки в PageFrame
    #34478194
Scorpio_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Scorpio_md
Участник
А у меня теперь возник такой вопрос. Создаю закладки динамически в зависимости от тех которые нужны. Но раньше у меня бы отработка по нажатию клавиш:
Код: 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.
LPARAMETERS nKeyCode, nShiftAltCtrl

*SET STEP ON 

DO case
   CASE thisform.ics_li_.ActivePage =  1  && Преступления
        DO CASE 
           CASE nKeyCode = - 1   
                thisform.ics_li_.prestupl_.lstLiList.When
                DO FORM ics_prestupl_edit WITH thisform.nLi,  0  
                thisform.update_form
           CASE nKeyCode = - 3   
                thisform.ics_li_.prestupl_.lstLiList.When
                DO FORM ics_prestupl_edit WITH thisform.nLi, thisform.nni 
                thisform.update_form
           CASE nKeyCode = - 5  AND thisform.nni <>  0  && Досье
                thisform.ics_li_.prestupl_.lstLiList.When
                DO FORM ics_prest WITH thisform.nLi, thisform.nni 
                thisform.update_form
        ENDCASE 
   CASE thisform.ics_li_.ActivePage =  4  && Разрешения
        DO CASE 
           CASE nKeyCode = - 1   
                thisform.ics_li_.razresh_.lstLiList.When
                DO FORM ics_dokument_edit WITH thisform.nLi,  0  
                thisform.update_form
           CASE nKeyCode = - 3   
                thisform.ics_li_.razresh_.lstLiList.When
                DO FORM ics_dokument_edit WITH thisform.nLi, thisform.nni 
                thisform.update_form
        ENDCASE

Теперь РАЗРЕШЕНИЯ у меня могут иметь
Код: plaintext
thisform.ics_li_.ActivePage
не 4 а 1, и как мне теперь правильно отработать на форме нажатие клавиш.
...
Рейтинг: 0 / 0
21.04.2007, 19:28
| Ответить | Цитировать | Написать  
Как скрыть закладки в PageFrame
    #34479392
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex11100
Гость
привязываться к номеру страницы не есть хорошо

есть 2 способа

1.сделать класс страница
класс пейджфрейм
пометить страничку значением доп.свойства
на взлете при добавлении страницы

2.делать пометку в таге страницы базового класса
при добавлении страницы

в каком-то методе формы такой код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
local loPage
loPage = thisform.pgFrame.Pages(thisform.pgFrame.ActivePage)
do case
    case loPage.tag = '....'
            ...
    case loPage.tag = '....'
            ...
endcase
...
Рейтинг: 0 / 0
23.04.2007, 09:43
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как скрыть закладки в PageFrame
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=34474840&tid=1589487]:
 0ms
get settings:
 6ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 56ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 238ms
total:  365ms
созд. / загр.: 365ms
x
x
Закрыть


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