#sha Add(MainForm,11052510,91,140) { Left=20 Top=105 Width=178 Height=169 Caption="ActiveX" BorderStyle=3 Position=1 } Add(UseActiveX,1246616,231,147) { Left=10 Top=10 Width=35 Height=50 CLSID="AUDIOCONTROLS2.KnobCtrl.1" link(onEvent,11969282:doWork2,[]) } Add(Edit,15340234,364,147) { Left=10 Top=70 Width=145 Text="" } Add(Button,6794097,91,77) { Left=10 Top=100 Width=150 Caption="PositionChanged" Data=String(PositionChanged) link(onClick,3446551:doAdd,[(145,83)(145,153)]) } Add(MT_Add,3446551,168,147) { Data=Integer(10) link(onAdd,1246616:doExecute,[]) } Add(UseActiveX,14851496,231,231) { Left=50 Top=10 Width=35 Height=40 CLSID="AUDIOCONTROLS2.KnobCtrl.1" link(onEvent,14557156:doWork3,[(284,237)]) } Add(UseActiveX,10702432,231,189) { Left=90 Top=10 Width=35 Height=40 CLSID="AUDIOCONTROLS2.KnobCtrl.1" link(onEvent,14557156:doWork2,[]) } Add(StrList,2739455,91,210) { Strings=#31:Class Knob; // Knob Control 2.0|44:GUID={8352EDFE-28C3-4012-90BC-43B0AF7B7E57};|10: Min: I2;|10: Max: I2;|15: Position: I2;|17: UnitName: BSTR;|12: Scale: R4;|23: BackColor: OLE_COLOR;|40: function KeyUp(KeyCode:^I2; Shift:I2);|41: function PositionChanged(nPosition:I2);| } Add(MT_Get,8418495,308,147) { link(onData,15340234:doText,[]) } Add(HubEx,11969282,287,140) { link(onEvent,8418495:doGet,[]) } Add(HubEx,14557156,280,182) { link(onEvent,11969282:doWork3,[(291,195)]) } Add(InfoTip,779559,77,280) { Info=#65:У кого установлен Nero Wave Editor пример должен работать, иначе |56:искать и устанавлтвать самостоятельно AudioControls2.ocx|86:по умолчанию он находится в C:\Program Files\Ahead\Nero Wave Editor\AudioControls2.ocx| Font=[MS Sans Serif,8,1,16711680,1] Width=491 Height=60 } Add(InfoTip,595949,77,70) { Info=#24:почему то не работает :(| Font=[MS Sans Serif,8,1,255,1] Width=316 Height=53 }