Редактировалось 2 раз(а), последний 2025-01-09 08:29:29

Amper, их копируют.

Ты понимаешь, чего сказал-то
Некто должен скопировать на свой комп КАРАКУЛИ (и не очень твое дело, будут ли их читать) по очень важной причине: г-ну Amper-у недосуг было обратить внимание на кодировку. Или прочитать форум. Или еще что-то не менее важное.


BTW: вот тебе еще один пример (если не лень читать), который можно было бы легко решить без корректировок через SendMessage. Если бы ты в свое время вывел на улицу Handle

Galkov, ну... чего вы разошлись... Я просто привёл пример, как можно исправить компонент, а коментарии у вас есть такие же... А в ХиАсм редакторе, кстати, что за кодировка стоит?

Вот пример:[code:1]Add(TabControl,12880483,329,175) {
Left=50
Top=75
Tabs=#1:1|1:2|
Bitmaps=[]
}
Add(Button,11062112,245,175)
{
Left=95
Top=30
Data=String(3)
link(onClick,12880483:PageInsert,[])
}
Add(ListBox,8609708,294,105)
{
Left=95
Top=120
}
[/code:1]Вопрос как сохранить созданную страницу для последующих запусков :?:

Помоему "Западноевропейская" .

[code:1]Add(MainForm,13132819,49,133) {
Left=20
Top=105
Point(Close)
link(onCreate,3597932:doEvent1,[])
link(Close,10566541:GetData,[])
}
Add(TabControl,12880483,315,175)
{
Left=50
Top=75
Width=290
Bitmaps=[]
Point(CurTabIndx)
Point(PageDelete)
Point(Index)
link(Index,5729522:Var3,[(328,167)(358,167)(358,233)])
}
Add(ListBox,8609708,315,105)
{
Left=95
Top=120
Width=195
}
Add(StrList,7184557,231,105)
{
FileName="Pages.txt"
Strings=#1:1|5:Ку-Ку|5:Гм...|
}
Add(ArrayEnum,1567100,245,175)
{
link(onItem,8806821:doWork2,[])
link(Array,7184557:Array,[])
}
Add(Hub,3597932,105,168)
{
link(onEvent1,7184557:doLoad,[(156,174)(156,139)])
link(onEvent2,1567100:doEnum,[])
}
Add(EventFromData,10566541,49,84)
{
link(onEvent,7184557:doSave,[(204,90)(204,146)])
}
Add(Button,2993017,49,252)
{
Left=250
Top=30
Width=85
Caption="Delete Current"
link(onClick,7254264:doEvent1,[])
}
Add(Edit,10668645,49,196)
{
Left=55
Top=30
Width=180
Text="Хи-Хи-Хи"
link(onEnter,6214938:doEvent1,[])
}
Add(HubEx,8806821,294,168)
{
link(onEvent,12880483:PageInsert,[])
}
Add(Hub,6214938,161,203)
{
link(onEvent1,7184557:doAdd,[(212,209)(212,111)])
link(onEvent2,8806821:doWork3,[(298,216)])
}
Add(MathParse,15269471,161,252)
{
MathStr="%1 - %2 -1"
link(onResult,7184557:doDelete,[(221,258)(221,125)])
link(X1,12880483:TabCount,[(167,227)(321,227)])
link(X2,5729522:Var1,[(174,233)])
}
Add(Hub,7254264,105,252)
{
link(onEvent1,15269471:doCalc,[])
link(onEvent2,12880483:PageDelete,[(231,265)(231,188)])
}
Add(GetDataEx,5729522,315,224)
{
link(Data,12880483:CurTabIndx,[(328,218)(328,218)])
}
[/code:1]

Вячеслав, почти тоже самое:
[code:1]Add(MainForm,5636572,147,91) {
Left=20
Top=105
link(onCreate,5779792:doString,[(222,132)(222,83)])
}
Add(TabControl,12880483,651,196)
{
Left=1
Top=1
Width=398
Height=25
Bitmaps=[]
}
Add(Button,11062112,420,77)
{
Left=15
Top=220
Width=85
Caption="Добавить лист"
Data=String(3)
link(onClick,9457684:doData,[])
}
Add(ListBox,8609708,637,84)
{
Left=-500
Top=-500
Visible=1
}
Add(Edit,16564043,483,28)
{
Left=115
Top=220
Width=135
}
Add(DoData,9457684,483,77)
{
link(onEventData,370831:doEvent1,[])
link(Data,16564043:Text,[])
}
Add(Hub,370831,532,77)
{
link(onEvent1,8609708:doAdd,[(600,83)(600,90)])
link(onEvent2,7168511:doEvent2,[(583,90)(583,209)])
}
Add(Dir,3272789,266,35)
{
}
Add(FormatStr,5779792,266,77)
{
DataCount=1
Mask="%1ListPage.ini"
link(onFString,10100044:doValue,[])
link(Str1,3272789:CurrentDir,[])
}
Add(Memory,10100044,315,77)
{
link(onData,8119084:doEvent1,[])
}
Add(DoData,3624091,315,119)
{
link(onEventData,8609708:doSave,[])
link(Data,10100044:Value,[])
}
Add(Button,698904,56,140)
{
Left=315
Top=230
Caption="Выход"
link(onClick,13664845:doEvent1,[])
}
Add(Hub,13664845,98,140)
{
link(onEvent1,5636572:doClose,[(138,146)(138,118)])
link(onEvent2,3624091:doData,[(237,153)(237,125)])
}
Add(Hub,8119084,357,77)
{
link(onEvent1,8609708:doLoad,[(404,83)(404,118)])
link(onEvent2,11586512:doEnum,[(400,90)(400,153)])
}
Add(Hub,7168511,602,196)
{
InCount=2
OutCount=1
link(onEvent1,12880483:PageInsert,[])
}
Add(ArrayEnum,11586512,651,147)
{
link(onItem,7168511:doEvent1,[(693,153)(693,187)(592,187)(592,202)])
link(Array,8609708:Array,[])
}
Add(Label,1604216,532,28)
{
Left=115
Top=195
Width=140
Caption="Имя добавляемого листа"
}
[/code:1] :D

Galkov,
Леонид, СПАСИБО Ну вы навертели Я бы неделю думал
P.S. Куда бы еще чёрный фон деть?