Вверх ↑
Ответов: 67
Рейтинг: 0
#1: 2004-09-30 10:00:24 ЛС | профиль | цитата
"HukHak" писал(а):
Товарищи ещё может кто подскажет как можно организовать таку фишку раз уж нет TabPage.

Обращение обязывает ответить (шутка)
"HukHak" писал(а):
Что на форме с лева допустип расположен компонет панель на ней кнопки . А чтоб с права открывались другие панели по умолчанию первая всегда открыта но чтоб при нажатии на 2 кнопку 1 панель скрылась на месте неё открылась другая.

Вот что получилось (Galkov научил)

Add(ChildGroupBox,29353,371,308)
{
}
BEGIN_SDK
Pos(0,0)
Add(EditMulti,65763,3,3)
{
WorkCount=1
link(doWork1,7185:doVisible,[(16,9)(16,106)])
}
Add(GroupBox,7185,0,0)
{
Left=192
Width=200
Height=273
Font=[Arial,8,0,0]
Visible=1
Caption="3"
}
Add(Label,90513,105,77)
{
Left=2
Top=15
Width=196
Align=2
Font=[Arial,8,0,0]
Caption="Это третья панель"
}
END_SDK
Add(Array,74453,280,259)
{
link(onItem,85704:doBits,[])
link(Array,46436:Array,[])
}
Add(Button,62004,189,266)
{
Left=10
Top=35
Width=85
Height=15
Font=[Arial,8,0,0]
Caption="2"
Point(doVisible)
link(onClick,94870:doWork2,[])
}
Add(Button,75217,189,224)
{
Left=10
Top=15
Width=85
Height=15
Font=[Arial,8,0,0]
Caption="1"
Point(doVisible)
link(onClick,94870:doWork1,[(226,230)(226,265)])
}
Add(ChildGroupBox,93017,371,217)
{
}
BEGIN_SDK
Pos(0,0)
Add(EditMulti,65763,3,3)
{
WorkCount=1
link(doWork1,7185:doVisible,[(16,9)(16,29)])
}
Add(GroupBox,7185,0,0)
{
Left=192
Width=200
Height=273
Font=[Arial,8,0,0]
Caption="1"
}
Add(Label,90513,98,70)
{
Left=2
Top=15
Width=196
Align=2
Font=[Arial,8,0,0]
Caption="Это первая панель"
}
END_SDK
Add(IntegerArray,46436,280,203)
{
IntArray=[S0.1=1,S0.2=2,S0.3=4]
}
Add(ChildGroupBox,40112,371,266)
{
}
BEGIN_SDK
Pos(0,0)
Add(EditMulti,65763,3,3)
{
WorkCount=1
link(doWork1,7185:doVisible,[(16,9)(16,106)])
}
Add(GroupBox,7185,0,0)
{
Left=192
Width=200
Height=273
Font=[Arial,8,0,0]
Visible=1
Caption="2"
}
Add(Label,90513,105,77)
{
Left=2
Top=15
Width=196
Align=2
Font=[Arial,8,0,0]
Caption="Это вторая панель"
}
END_SDK
Add(IntToBits,85704,322,259)
{
Count=3
Data_0=Integer(0)
Data_1=Integer(1)
link(onBit1,93017:doWork1,[(362,265)(362,223)])
link(onBit2,40112:doWork1,[])
link(onBit3,29353:doWork1,[(362,279)(362,314)])
}
Add(ChanelToIndex,94870,238,259)
{
Count=3
link(onIndex,74453:doArrayItem,[])
}
Add(Button,96359,189,308)
{
Left=10
Top=55
Width=85
Height=15
Font=[Arial,8,0,0]
Caption="3"
Point(doVisible)
link(onClick,94870:doWork3,[(226,314)(226,279)])
}
"HukHak" писал(а):
Надеюсь понятно объяснил

аналогично
"HukHak" писал(а):
Вот ещё идейка насчёт компонентов,может зделаете компонент для потдержки плагинов к приложениям.Тоесть зделал ты программку захотел расширить её возможности написал плагин подключил к проге и всё ништяк.

А вот это никак не понял.
Кстати, хочу заметить большинство сообщений автора HiAsm'а приблизительно следующего содержания:
Сэры и Пэры! Высылайте примеры!
карма: 0
Говорящий не знает, знающий не говорит. Лао Цзы
0