Вверх ↑
Разработчик
Ответов: 26300
Рейтинг: 2146
#1: 2013-06-11 01:26:08 ЛС | профиль | цитата
GetChiper писал(а):
Или есть?

Не предусмотрено, но выкрутиться можно

Add(MainForm,2557405,231,161)
{
Height=253
Point(onResize)
}
Add(ChildPanelEx,3753469,427,161)
{
Mode=1
}
BEGIN_SDK
Add(EditMultiEx,478117,21,21)
{
WorkCount=#5:##add|
Point(##add)
link(##add,4817472:doEvent1,[(57,27)(57,62)])
}
Add(Panel,7905297,42,84)
{
Left=10
Top=20
Width=365
Height=105
Layout="parent.123"
}
Add(Memo,2108271,161,56)
{
Left=200
Top=95
Align=2
Point(onResize)
Point(PHandle)
link(onResize,12068746:doText,[(207,69)(207,209)(158,209)(158,174)])
}
Add(Edit,12068746,168,168)
{
Left=2
Top=83
Width=361
Align=4
link(Str,2108271:Count,[])
}
Add(InlineCode,13682586,126,126)
{
WorkPoints=#13:taLeftJustify|14:taRightJustify|15:taCenterJustify|
DataPoints=#7:PHandle|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|24: PHandle: THI_Event;|58: procedure taLeftJustify(var _Data:TData; Index:word);|59: procedure taRightJustify(var _Data:TData; Index:word);|65: procedure taCenterJustify(var _Data:TData; Index:word); |5: end;|0:|14:implementation|0:|36:procedure THiAsmClass.taLeftJustify;|3:var|21: sControl: PControl;|5:begin|48: sControl := PControl(ToIntegerEvent(PHandle));|38: if not Assigned(sControl) then exit;|32: sControl.TextAlign := taLeft; |4:end;|0:|37:procedure THiAsmClass.taRightJustify;|3:var|21: sControl: PControl;|5:begin|48: sControl := PControl(ToIntegerEvent(PHandle));|38: if not Assigned(sControl) then exit;|33: sControl.TextAlign := taRight; |4:end;|0:|39:procedure THiAsmClass.taCenterJustify; |3:var|21: sControl: PControl;|5:begin|48: sControl := PControl(ToIntegerEvent(PHandle));|38: if not Assigned(sControl) then exit;|34: sControl.TextAlign := taCenter; |4:end;|0:|4:end.|
link(PHandle,2108271:PHandle,[(132,117)(188,117)])
}
Add(Hub,4817472,77,56)
{
link(onEvent1,2108271:doAdd,[])
link(onEvent2,13682586:taRightJustify,[(116,69)(116,139)])
}
END_SDK
Add(Button,3658433,287,161)
{
Left=15
Top=185
Width=210
Height=25
Caption="Создать поле"
link(onClick,4697669:doData,[])
}
Add(DoData,4697669,336,161)
{
Data=String(EEPROM. 0 SRAM. Размерность действий 8 бит. Аргументы (распределение EEPROM): 1 Точка доступа А 2 Точка доступа (или константа) В 3 Точка доступа С (результат) 4 Селектор константы + тип операции Возможные операции над точками: Сложение А + B ' C Вычитание А - B ' C Сложение без переполнения А + B ' [C] Вычитание без переполнения А - B ' [C] Прямая запись значения B ' C)
link(onEventData,2690762:doEvent1,[])
}
Add(VBoxLayout,7379026,427,210)
{
Name="123"
}
Add(Hub,2690762,385,161)
{
link(onEvent1,3753469:##add,[])
link(onEvent2,7379026:doResize,[(406,174)(406,216)])
}

карма: 22

0