костыли спасут мир 
Add(MainForm,10377423,413,77)
{
Width=369
Height=295
Point(onMouseEnter)
Point(SizeHeader)
Point(Left)
Point(Top)
}
Add(ComboBox,7723821,504,63)
{
Left=85
Top=50
Width=200
Height=21
Strings=#5:12321|5:11113|5:11111|5:11122|5:45464|5:67867|5:87867|5:34535|5:56546|5:46464|5:46546|
ReadOnly=0
Point(PHandle)
Point(onMouseLeave)
Point(onMouseEnter)
Point(Left)
Point(Top)
Point(Width)
Point(Height)
Point(onSelect)
Point(onKeyDown)
}
Add(InlineCode,3059356,518,252)
{
WorkPoints=#14:doShowDropDown|
DataPoints=#7:PHandle|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,Windows,Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|24: PHandle: THI_Event;|59: procedure doShowDropDown(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|66:procedure THiAsmClass.doShowDropDown(var _Data:TData; Index:word);|3:var|21: sControl: PControl;|25: Info: TComboBoxInfo; |5:begin|48: sControl := PControl(ToIntegerEvent(PHandle));|38: if not Assigned(sControl) then exit;|34: ZeroMemory(@Info, SizeOf(Info));|30: Info.cbSize := SizeOf(Info);|41: GetComboBoxInfo(sControl.Handle, Info);|69: SendMessage(sControl.Handle, CB_SHOWDROPDOWN, ToInteger(_Data), 0);|47: ShowScrollBar(Info.hwndList, SB_VERT, false);|4:end;|0:|4:end.|
link(PHandle,7723821:PHandle,[])
}
Add(ChanelToIndex,995737,672,294)
{
link(onIndex,1648065:doData,[])
}
Add(PointInRect,12893594,616,301)
{
Point2AsOffset=0
link(onTrue,995737:doWork2,[])
link(onFalse,995737:doWork1,[(660,314)(660,300)])
link(Point,15729776:Point,[(622,285)(706,285)])
link(RPoint1,13635318:Point,[])
link(RPoint2,921591:Point,[(636,285)(664,285)])
}
Add(PointXY,13635318,623,238)
{
link(X,7638766:Result,[(629,222)(580,222)])
link(Y,2712349:Result,[(636,222)(517,222)])
}
Add(Timer,8911384,420,175)
{
Interval=10
link(onTimer,2712349:doCalc,[])
}
Add(MouseEvent,6661673,700,56)
{
}
Add(PointXY,921591,658,238)
{
link(X,7723821:Width,[(664,212)(545,212)])
link(Y,10317435:Result,[])
}
Add(PointXY,15729776,700,238)
{
link(X,6661673:MouseX,[])
link(Y,6661673:MouseY,[])
}
Add(ChangeMon,1648065,721,294)
{
link(onData,4054098:doEvent1,[])
}
Add(MathParse,2712349,511,175)
{
DataCount=3
MathStr="%1 + %2 + %3"
link(onResult,7638766:doOperation,[])
link(X1,10377423:SizeHeader,[(517,142)(419,142)])
link(X2,10377423:Top,[(524,142)(433,142)])
link(X3,7723821:Top,[(531,141)(538,141)])
}
Add(Math,7638766,574,175)
{
link(onResult,10317435:doOperation,[])
link(Op1,10377423:Left,[(580,142)(426,142)])
link(Op2,7723821:Left,[(587,141)(531,141)])
}
Add(Hub,4054098,784,294)
{
link(onEvent1,12403760:doCase,[])
link(onEvent2,12522858:In,[])
}
Add(Math,10317435,665,175)
{
link(onResult,12893594:doCheck,[(709,181)(709,240)(604,240)(604,307)])
link(Op1,7723821:Height,[(671,138)(552,138)])
link(Op2,2581835:Value,[])
}
Add(Memory,2581835,672,105)
{
Default=Integer(0)
}
Add(Case,12403760,875,294)
{
Value=Integer(1)
DataOnTrue=Integer(105)
link(onNextCase,2581835:doClear,[(912,300)(912,202)(653,202)(653,118)])
link(onTrue,2581835:doValue,[(912,307)(912,202)(653,202)(653,111)])
}
Add(LineBreak,691918,462,252)
{
link(Out,3059356:doShowDropDown,[])
Primary=[12522858,357,49]
}
кому надо присобачит
пусть не намного но все же 
Поиск
Друзья
Администрация