Вверх ↑
Ответов: 5227
Рейтинг: 587
#1: 2023-02-12 14:24:09 ЛС | профиль | цитата
Serascer, вставляй IC в свою схему и пользуйся

Add(MainForm,2953706,77,84)
{
Width=487
}
Add(InlineCode,4069783,175,84)
{
WorkPoints=#12:doClearCheck|
Code=#26:{ Author -=andrestudio=- }|15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|54: procedure doClearCheck(var dt: TData; idx: word);|5: end;|0:|14:implementation|0:|35:procedure THiAsmClass.doClearCheck;|3:var|13: i: integer;|14: P: PControl;|5:begin|51: for i := 0 to Applet.Children[0].ChildCount -1 do|7: begin|40: P := Applet.Children[0].Children[i];|23: p.Checked := False;|7: end; |4:end;|0:|4:end.|
}
Add(CheckBox,1699363,77,28)
{
Left=140
Top=25
}
Add(CheckBox,5740907,126,28)
{
Left=140
Top=50
}
Add(CheckBox,14857526,175,28)
{
Left=140
Top=75
}
Add(Button,2859295,126,84)
{
Left=25
Top=30
link(onClick,4069783:doClearCheck,[])
}
Add(Edit,848240,245,28)
{
Left=275
Top=10
Width=125
}
Add(Label,1585428,294,28)
{
Left=275
Top=45
}

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
2
Голосовали:tig-rrr, Gunta