Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как скрыть закладки в PageFrame / 7 сообщений из 7, страница 1 из 1
19.04.2007, 22:39
    #34474368
Scorpio_md
Scorpio_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как скрыть закладки в PageFrame
Добрый вечер.
Подскажите, создал PageFrame, там 18 закладок. У меня теперь такая проблема, мне необходимо спрятать некоторые закладки, по мере доступа. Т.е. пользователи должны видеть только те, которые им можно, а остальные вообще спрятать, чтобы их не дразнить.

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

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


ну если хочется, то только прибивать,
свойства визибл у странички нет
Код: 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:21
    #34474840
Al_fa
Al_fa
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как скрыть закладки в PageFrame
Scorpio_mdДобрый вечер.
Подскажите, создал PageFrame, там 18 закладок. У меня теперь такая проблема, мне необходимо спрятать некоторые закладки, по мере доступа. Т.е. пользователи должны видеть только те, которые им можно, а остальные вообще спрятать, чтобы их не дразнить.

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

есть 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
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как скрыть закладки в PageFrame / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 442ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1589487]:
 0ms
get settings:
 9ms
get forum list:
 22ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 93ms
get topic data:
 11ms
get forum data:
 5ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 236ms
total:  442ms
x
x
Закрыть


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