Вверх ↑
Ответов: 1925
Рейтинг: 172
#1: 2023-02-22 21:27:32 ЛС | профиль | цитата
andrestudio, убирает только на главной форме
Вот для всяких вложенных:

Add(MainForm,1301091,343,287)
{
Width=487
Point(PHandle)
}
Add(InlineCode,4069783,343,343)
{
WorkPoints=#12:doClearCheck|
DataPoints=#9:dtPHandle|
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|25: dtPHandle:THI_Event;|54: procedure doClearCheck(var dt: TData; idx: word);|5: end;|0:|14:implementation|0:|35:procedure THiAsmClass.doClearCheck;|14:var i:integer;|5:begin|113: for i := 0 to ReadControl(dtPHandle,'').ChildCount-1 do ReadControl(dtPHandle,'').Children[i].Checked := False;|4:end;|0:|4:end.|
link(dtPHandle,1301091:PHandle,[])
}
Add(CheckBox,1699363,343,231)
{
Left=140
Top=25
Checked=0
}
Add(CheckBox,5740907,392,231)
{
Left=140
Top=50
Checked=0
}
Add(CheckBox,14857526,441,231)
{
Left=140
Top=75
Checked=0
}
Add(Button,2859295,294,343)
{
Left=25
Top=30
link(onClick,4069783:doClearCheck,[])
}
Add(Edit,848240,511,231)
{
Left=275
Top=10
Width=125
}
Add(Label,1585428,560,231)
{
Left=275
Top=45
}
Add(ChildPanel,13770192,420,371)
{
}
BEGIN_SDK
Add(EditMulti,4311986,21,21)
{
}
Add(Panel,5970169,469,266)
{
Left=35
Top=105
Width=265
Height=150
Point(PHandle)
}
Add(Button,14914119,413,315)
{
Left=25
Top=30
link(onClick,3538354:doClearCheck,[])
}
Add(CheckBox,4590284,364,210)
{
Left=140
Top=25
Checked=0
}
Add(CheckBox,9465950,413,210)
{
Left=140
Top=50
Checked=0
}
Add(CheckBox,16707134,462,210)
{
Left=140
Top=75
Checked=0
}
Add(InlineCode,3538354,469,315)
{
WorkPoints=#12:doClearCheck|
DataPoints=#9:dtPHandle|
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|25: dtPHandle:THI_Event;|54: procedure doClearCheck(var dt: TData; idx: word);|5: end;|0:|14:implementation|0:|35:procedure THiAsmClass.doClearCheck;|14:var i:integer;|5:begin|113: for i := 0 to ReadControl(dtPHandle,'').ChildCount-1 do ReadControl(dtPHandle,'').Children[i].Checked := False;|4:end;|0:|4:end.|
link(dtPHandle,5970169:PHandle,[])
}
END_SDK
карма: 9
1
Голосовали:tig-rrr