Вверх ↑
Ответов: 263
Рейтинг: 18
#1: 2021-06-09 05:42:01 ЛС | профиль | цитата
sla8a, выглядит просто отлично! Однако после установки компонента, согласно инструкции, перестали компилироваться проекты.

HiAsm 186 рабочая копия 2317 Win10 x64. На обоих компиляторах такое.

--- Добавлено в 2021-06-09 06:00:57

Откатил Win.pas теперь работает.

--- Добавлено в 2021-06-09 06:11:24

egorhay, рекомендую присмотреться к компоненту AdjustControls. Твоя схема станет такой

Add(MainForm,4897455,119,63)
{
Height=151
}
Add(Edit,819451,406,140)
{
Width=384
Align=2
Name="okno"
Text="Окно"
}
Add(Edit,918884,406,196)
{
Top=20
Width=384
Align=2
Name="dver"
Text="Дверь"
}
Add(Button,5360813,119,140)
{
Left=5
Top=79
Width=54
Caption="Clear"
link(onClick,16624947:doWork1,[])
}
Add(ChildPanel,6861929,406,252)
{
}
BEGIN_SDK
Add(EditMulti,14385867,21,21)
{
WorkCount=1
link(doWork1,9151973:doText,[(115,27)(115,62)])
}
Add(Panel,6230879,35,105)
{
Top=40
Width=337
Height=28
Align=2
}
Add(Edit,9151973,161,56)
{
Left=2
Top=2
Width=333
Align=2
Name="shkaf"
Text="Шкаф"
}
END_SDK
Add(Button,7691199,119,175)
{
Left=65
Top=80
Caption="Default"
link(onClick,16624947:doWork2,[(167,181)(167,153)])
}
Add(AdjustControls,1891344,280,140)
{
link(Parameters,15644363:Var,[(286,126)(273,126)(273,184)(244,184)])
}
Add(StrList,13215217,238,84)
{
Strings=#10:okno=Text=|10:dver=Text=|11:shkaf=Text=|
}
Add(StrList,15782353,245,84)
{
Strings=#14:okno=Text=Окно|15:dver=Text=Дверь|15:shkaf=Text=Шкаф|
}
Add(ChanelToIndex,16624947,182,140)
{
link(onIndex,15644363:doIndex,[])
}
Add(GetIndexData,15644363,238,140)
{
link(onIndex,1891344:doSet,[])
link(Data1,13215217:Text,[])
link(Data2,15782353:Text,[])
}

карма: 3

0
Редактировалось 2 раз(а), последний 2021-06-09 06:11:24