, (E, Stoimost5), (F, Stoimost6), (G, Stoimost7), (H, Stoimost8),=Stoimost1+Stoimost2+Stoimost3+Stoimost4+Stoimost5+Stoimost6+Stoimost7+Stoimost8,=toString(Stoimost),_ctl:setText(Summa),!.(_Source) =Button: defaultAction ().
% This code is maintained automatically, do not update it manually. 14: 00: 47-16.6.2014_ctl: listEdit._ctl: listEdit._ctl: listEdit._ctl: listEdit._ctl: listEdit._ctl: listEdit._ctl: listEdit._ctl: listEdit._ctl: button._ctl: editControl.
: (). () :-( vpi: fontCreateByName («Tahoma», 8)), («sostavPC»), (rct (50,40,394,243)), (titlebar ([closebutton ( ), maximizebutton (), minimizebutton ()])), (sizeBorder ()), ([wsf_ClipSiblings, wsf_ClipChildren]), (noMenu), (onShow), _ ctl=textControl: new (This), _ ctl: setText («Дисковод:»), _ ctl: setPosition (16, 113), _ ctl: setSize (80, 10), _ ctl=textControl: new (This), _ ctl: setText (« Монітор: »), _ ctl: setPosition (16, 131), _ctl: setSize (80, 10), _ ctl=textControl: new (This), _ ctl: setText («Материнська плата:»), _ ctl: setPosition (16, 15), _ ctl: setSize (80, 10), _ ctl=textControl:new (This), _ ctl: setText («Процесор:»), _ ctl: setPosition (16, 31), _ ctl: setSize (80, 10), _ ctl=textControl: new (This), _ ctl: setText («Оперативна пам'ять:»), _ ctl: setPosition (16, 47), _ ctl: setSize (80, 10), _ ctl=textControl: new (This), _ ctl: setText (« Блок живлення: »), _ ctl: setPosition (16, 63) , _ctl: setSize (80, 10), _ ctl=textControl: new (This), _ ctl: setText («Відеокарта:»), _ ctl: setPosition (16, 80), _ ctl: setSize (80, 10), _ ctl=textControl:new (This), _ ctl: setText («Жорсткий диск:»), _ ctl: setPosition (16, 96), _ ctl: setSize (80, 10), _ ctl:=listEdit: new (This), _ ctl: setText (« »), _ ctl: setPosition (122, 14), _ ctl: setWidth (176), _ ctl:=listEdit: new (This), _ ctl: setText (« »), _ ctl: setPosition (122, 30), _ ctl: setWidth ( 176), _ ctl:=listEdit: new (This), _ ctl: setText («»), _ ctl: setPosition (122, 46), _ ctl: setWidth (176), _ ctl:=listEdit: new (This), _ ctl: setText («»), _ ctl: setPosition (122, 62), _ ctl: setWidth (176), _ ctl:=listEdit: new (This), _ ctl: setText («»), _ ctl: setPosition (122, 78), _ ctl: setWidth (176), _ ctl:=listEdit: new (This), _ ctl: setText («»), _ ctl: setPosition (122, 94), _ ctl: setWidth (176), _ ctl:=listEdit: new (This), _ ctl:setText («»), _ ctl: setPosition (122, 112), _ ctl: setWidth (176), _ ctl:=listEdit: new (This), _ ctl: setText («»), _ ctl: setPosition (122, 130), _ctl: setWidth (176), _ ctl:=button: new (This), _ ctl: setText («Вивести вартість»), _ ctl: setPosition (16, 170), _ ctl: setWidth (72), _ ctl: defaultHeight:=true ( ), _ ctl: setClickResponder (onPushButtonClick), _ ctl:=editControl: new (This), _ ctl: setText («»), _ ctl: setPosition (124, 172).
% end of automatic codeimplement sostavPC
