Вверх ↑
Этот топик читают: Гость
Ответов: 184
Рейтинг: 0
#1: 2008-09-26 16:21:48 ЛС | профиль | цитата
Подскажите как в элементе TabControl удалить все имеющиеся страницы одним нажатием
карма: 0

0
Ответов: 3851
Рейтинг: 159
#2: 2008-09-26 16:43:05 ЛС | профиль | цитата
например code_10085.txt так
карма: 0
начавший
1
файлы: 1code_10085.txt [386B] [188]
Голосовали:A_S_X
Ответов: 184
Рейтинг: 0
#3: 2008-09-26 17:27:12 ЛС | профиль | цитата
Спасибо Андрей
------------ Дoбавленo:

Андрей, а не подскажешь как заменить страницу или поменять её надпись
карма: 0

0
Ответов: 3851
Рейтинг: 159
#4: 2008-09-26 22:12:56 ЛС | профиль | цитата
непосредственно поменять надпись текущей страницы не позволяет элемент, но можно например так http://www.hiasm.com/sha/shatools.php?q=5&id=30 (ссылка из публикатора, поэтому первую строку со звёздочкой в начале, копировать не надо)

Dilma, нужна ли эта строчка при публикции ссылки на схему в публикаторе? может добавить соответствующий тэг (с кнопочкой)?
карма: 0
начавший
0
Ответов: 184
Рейтинг: 0
#5: 2008-09-27 12:29:10 ЛС | профиль | цитата
Андрей вот схема code_10090.txt подскажи как сделать так, чтоб при добавлении страницы она становилась текущей
------------ Дoбавленo:

БИТИЕВГАЙОЗГАЙОЗОВИЧ5 04435811.07.2005ЗАРУБИНСКИМ ОМ ХАСАНСКОГО РАЙОНА ПРИМОРСКОГО КРАЯПРИМОРСКИЙ КРАЙ, П. ЗАРУБИНО, УЛ. СТРОИТЕЛЬНАЯ, Д. 28, КВ. 2125310260434020BMITSUBISHI РРР420053543212341NZ-12345672100066апрапы7122517002НИКОЛАЙ КОЛОМЕЙЦЕВ225AA1000021111733166.554059421=
КВИТКИНВИКТОРЮРЬЕВИЧ5 0376500027.01.2004АНУЧИНСКИМ РОВД, ПРИМОРСКОГО КРАЯПРИМОРСКИЙ КРАЙ, С. АНУЧИНО, УЛ. ЛЕНИНСКАЯ, Д.36, КВ. 125130113342020BMITSUBISHI РРР420053543212341NZ-12345672100066апрапы7122517002НИКОЛАЙ КОЛОМЕЙЦЕВ225AA1000021111733166.554059421=
ИВАНОВИГОРЬСТАНИСЛАВОВИЧ8 013848349.01.2002ВЯЗЕМСКИМ РОВД ХАБАРОВСКОГО КРАЯХАБАРОВСКИЙ КРАЙ, Г. ВЯЗЕМСКИЙ, УЛ. КАЛИНИНА, Д. 3127110199345220BMITSUBISHI РРР420053543212341NZ-12345672100066апрапы7122517002НИКОЛАЙ КОЛОМЕЙЦЕВ225AA1000021111733166.554059421=

------------ Дoбавленo:

Скопируй это в текстовый документ и открой с помощью схемы поймешь что я хочу
карма: 0

0
файлы: 1code_10090.txt [4.9KB] [173]
Разработчик
Ответов: 26305
Рейтинг: 2146
#6: 2008-09-27 13:00:11 ЛС | профиль | цитата
A_S_X, может вот так надо



Add(MainForm,7069800,196,105)
{
Left=20
Top=105
Width=621
Height=518
link(onCreate,1255660:doData,[(254,146)(254,153)])
}
Add(Hub,4278199,294,315)
{
InCount=2
OutCount=3
link(onEvent1,2296840:doWork2,[(468,321)(468,405)])
link(onEvent2,2246806:doLoad,[(376,328)(376,342)])
link(onEvent3,4377839:doData,[(373,335)(373,475)])
}
Add(TabControl,9696561,637,203)
{
Left=10
Top=135
Width=590
Height=315
Bitmaps=[]
HotTrack=0
FocusTabs=0
Point(CurTabIndx)
Point(Index)
Point(PageDelete)
Point(PageTab)
link(onChange,13838613:doEvent1,[(688,209)(688,216)])
link(NewPageText,13904883:Text,[])
}
Add(Hub,8598337,686,287)
{
link(onEvent1,6875814:doWork1,[(723,293)(723,370)])
link(onEvent2,13866317:doWork1,[(723,300)(723,322)(445,322)])
}
Add(HubEx,13866317,441,371)
{
link(onEvent,2824814:doWork2,[])
}
Add(GetData,14224272,644,245)
{
Count=3
link(Data,9696561:CurTabIndx,[])
}
Add(StrPart,3709843,511,378)
{
Char=""
link(onPart,15903657:doWork3,[(501,391)])
}
Add(ODialog,13885144,252,315)
{
link(onExecute,4278199:doEvent1,[])
}
Add(Button,9372380,203,315)
{
Left=5
Top=5
Caption="Открыть"
link(onClick,13885144:doExecute,[])
}
Add(DoData,4377839,420,469)
{
link(onEventData,6500408:doFor,[(506,475)(506,513)(415,513)(415,538)])
link(Data,10640159:Data2,[(426,457)(412,457)])
}
Add(SDialog,15891268,252,357)
{
link(onExecute,2246806:doSave,[(356,363)(356,349)])
}
Add(For,6500408,427,532)
{
Start=1
Point(doStep)
link(onEvent,6579763:doOperation,[])
link(End,10640159:Data1,[(440,482)(405,482)])
}
Add(Button,13177038,203,357)
{
Left=75
Top=5
Caption="Сохранить"
link(onClick,15891268:doExecute,[])
}
Add(ListBox,2246806,427,308)
{
Left=405
Top=10
Width=200
Height=55
AddType=1
SelectAdd=0
Point(doSelect)
Point(String)
Point(Index)
}
Add(Edit,4871324,469,378)
{
Left=15
Top=100
Width=315
link(onChange,3709843:doSplit,[])
link(Str,2246806:String,[(475,369)(454,369)])
}
Add(Math,6579763,469,532)
{
OpType=1
Op2=1
link(onResult,4714607:doEvent1,[])
}
Add(Hub,4714607,511,532)
{
OutCount=3
link(onEvent1,6875814:doWork3,[(555,538)(555,456)(410,456)])
link(onEvent2,13866317:doWork2,[(555,545)(555,465)(429,465)(429,384)])
link(onEvent3,5778242:doWork3,[(555,552)(555,383)(480,383)])
}
Add(Edit,13904883,637,154)
{
Left=5
Top=55
Width=150
}
Add(GetData,10640159,399,399)
{
link(Data,2246806:Count,[(405,379)(440,379)])
}
Add(DoData,1471423,644,287)
{
link(onEventData,8598337:doEvent1,[])
link(Data,14224272:Data1,[])
}
Add(HubEx,6875814,406,357)
{
Angle=3
link(onEvent,2246806:doSelect,[(410,356)])
}
Add(Button,12564744,196,161)
{
Left=180
Top=5
Caption="+"
Data=String(?)
link(onClick,14236902:doEvent1,[])
}
Add(Button,15067817,196,210)
{
Left=245
Top=5
Caption="-"
link(onClick,9656266:doData,[])
}
Add(HubEx,5778242,476,196)
{
link(onEvent,870342:doWork2,[])
}
Add(DoData,9656266,266,210)
{
link(onEventData,12671046:doEvent1,[])
link(Data,14224272:Data2,[(272,198)(524,198)(524,289)(657,289)])
}
Add(Hub,14236902,371,161)
{
InCount=2
OutCount=3
link(onEvent1,15903657:doWork2,[(450,167)(450,188)])
link(onEvent2,5778242:doWork1,[(480,174)])
link(onEvent3,2246806:doAdd,[(415,181)(415,314)])
}
Add(HubEx,15903657,497,175)
{
Angle=3
link(onEvent,13904883:doText,[(501,160)])
}
Add(HubEx,2824814,455,371)
{
link(onEvent,4871324:doText,[])
}
Add(For,15067242,714,399)
{
Step=-1
link(onEvent,5269909:doWork3,[(751,405)(751,313)(459,313)])
link(Start,6218813:Var2,[(720,329)(643,329)])
}
Add(Button,599302,196,441)
{
Left=255
Top=55
Caption="Очистить"
link(onClick,14151745:doEvent1,[])
}
Add(HubEx,5269909,455,203)
{
link(onEvent,6710538:doWork2,[])
}
Add(Hub,14151745,714,441)
{
OutCount=3
link(onEvent1,2296840:doWork3,[(758,447)(758,429)(690,429)])
link(onEvent2,2246806:doClear,[(751,454)(751,388)(415,388)(415,321)])
link(onEvent3,2824814:doWork3,[(751,461)(751,425)(459,425)])
}
Add(HubEx,2296840,686,392)
{
link(onEvent,15067242:doFor,[])
}
Add(Button,2979496,196,259)
{
Left=35
Top=185
Caption="Заменить"
link(onClick,12651969:doData,[])
}
Add(DoData,12651969,252,259)
{
link(onEventData,2091941:doEvent1,[])
link(Data,14224272:Data3,[(258,247)(422,247)(422,289)(664,289)])
}
Add(Hub,2091941,315,259)
{
OutCount=3
link(onEvent1,6710538:doWork3,[(473,265)])
link(onEvent2,870342:doWork3,[(529,272)])
}
Add(HubEx,6710538,469,203)
{
link(onEvent,9696561:PageDelete,[])
}
Add(HubEx,870342,525,196)
{
link(onEvent,12717431:doEvent1,[])
}
Add(Hub,12671046,329,210)
{
link(onEvent1,5269909:doWork2,[])
link(onEvent2,2246806:doDelete,[(394,223)(394,328)])
}
Add(DoData,1255660,280,147)
{
Data=String(?)
link(onEventData,14236902:doEvent2,[(342,153)(342,174)])
}
Add(Edit,3444409,777,217)
{
Left=500
Top=75
}
Add(Hub,13838613,707,210)
{
link(onEvent1,1471423:doData,[(751,216)(751,254)(632,254)(632,293)])
link(onEvent2,3444409:doText,[])
}
Add(Hub,12717431,539,203)
{
link(onEvent1,9696561:PageInsert,[])
link(onEvent2,13441709:doOperation,[(576,216)(576,223)])
}
Add(Math,13441709,588,217)
{
OpType=1
Op2=1
ResultType=0
link(onResult,9696561:PageTab,[])
link(Op1,6218813:Var1,[(594,205)(616,205)(616,254)])
}
Add(GetDataEx,6218813,630,245)
{
link(Data,9696561:TabCount,[])
}

карма: 22

0
Ответов: 184
Рейтинг: 0
#7: 2008-09-27 13:13:39 ЛС | профиль | цитата
Ставлю точку в элементе TabControl и вот куда меня наш любимый Хиасм посылает C:\Program Files\HiAsm\Elements\delphi\code\Project4.dpr(582) Error: Undeclared identifier: '_work_PageTab'

карма: 0

0
Ответов: 3851
Рейтинг: 159
#8: 2008-09-27 13:16:32 ЛС | профиль | цитата
A_S_X писал(а):
подскажи как сделать так, чтоб при добавлении страницы она становилась текущей
используй точку PageTab
------------ Дoбавленo:

какая версия hiasm?
карма: 0
начавший
1
Голосовали:A_S_X
Ответов: 184
Рейтинг: 0
#9: 2008-09-27 13:19:12 ЛС | профиль | цитата
build 167 ставил 170 она у меня глючит
карма: 0

0
Разработчик
Ответов: 26305
Рейтинг: 2146
#10: 2008-09-27 13:19:28 ЛС | профиль | цитата
A_S_X, нужна версия не ниже b169
карма: 22

1
Голосовали:A_S_X
Ответов: 184
Рейтинг: 0
#11: 2008-09-27 13:27:52 ЛС | профиль | цитата
Сейчас попробую установить
------------ Дoбавленo:

Установил 169 все работает. Спасибо
карма: 0

0
11
Сообщение
...
Прикрепленные файлы
(файлы не залиты)