Вверх ↑
Разработчик
Ответов: 4698
Рейтинг: 426
#1: 2009-12-17 14:08:57 ЛС | профиль | цитата
Dilma писал(а):
это можно сделать, например, заменив строку 50 в WinTools следующим образом:

А можно и не играть с исходниками(если обновляешься с SVN):
Add(MainForm,2953706,308,189)
{
}
Add(Button,14384285,252,238)
{
Left=210
Top=85
link(onClick,5190814:doWork1,[])
}
Add(ChildForm,5190814,308,238)
{
}
BEGIN_SDK
Add(EditMulti,2282539,21,21)
{
WorkCount=1
link(doWork1,13992861:doShow,[(67,27)(67,167)])
}
Add(MainForm,15046358,112,112)
{
Left=35
Top=105
Visible=1
Point(Handle)
}
Add(InlineCode,13992861,112,161)
{
WorkPoints=#6:doShow|
EventPoints=#6:onShow|
DataPoints=#6:Handle|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|22: handle:THI_Event;|22: onShow:THI_Event;|5: |51: procedure doShow(var _Data:TData; Index:word);|0:|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doShow;|5:begin|60: ShowWindow(ReadInteger(_Data,Handle,0),SW_SHOWNOACTIVATE);|33: _hi_CreateEvent(_Data,@onShow);|4:end;|0:|4:end.|
link(Handle,15046358:Handle,[])
}
END_SDK
карма: 10
0