PScript or MagicScript add component

Forum > Packages and Libraries

(1/1)

eldonfsr:
Hi i tried PascalScript i see a tutorial on youtube and that component for delphi script show a event..

Script1.addComponent(Button);

what i need is send to script a component and vars this way i can values and do action on script...

--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---procedure TFAmps.BtnSaveClick(Sender: TObject);Var StrVals,RegName,StrPre,StrPos,MMacro,NMacro :String; myrEG:Array of String; PosR,PosI,PosF,IC,PosAl:Integer;begin if( CbControl.ItemIndex >-1) then begin MYrEG :=['WW610','WB620','Wl612','AR30']; MMacro:=BDControls.FieldByName('MMacro').AsString; for ic:=0 to Length(MyReg)-1 do begin RegName:=MyReg[ic]; posR:= Rpos(RegName, MMacro); STrpre:=Copy(MMacro,0, PosR); PosAL:=Rpos('AL',StrPre)-1; NMacro:= Copy(StrPre,0,PosAL); if( Ic=0) then begin NMacro:=NMacro+'AL'+FloatToStr(Round(JFESTVal.Value))+','+Regname+','; end; if( Ic=1) then begin NMacro:=NMacro+'AL'+Copy(FloatToStr(Round(JIEI2pC2.Value)),0,9)+','+Regname+','; end; if( Ic=2) then begin NMacro:=NMacro+'AL'+InttoStr(Round(JIEOILPeak.Value))+','+Regname+','; end; if( (Ic=3) and (JFlETemp2.Value>0) ) then begin NMacro:=NMacro+'AL'+FloatToStr(Round(JFlETemp2.Value))+','+Regname+','; end; end; posR:= Rpos(MyReg[Length(MyReg)-1], MMacro)+1 ; NMacro:=NMacro+Copy(MMacro,Posr+length(Regname),Length(MMacro)-Posr+length(Regname)); Case FormMain.JvPageCtrl.ActivePageIndex of 0: begin FormMain.LSP1.WriteData(NMacro+LineEnding); end; 1: Begin FormMain.LSP2.WriteData(NMacro+LineEnding); end; 2: begin FormMain.LSP3.WriteData(NMacro+LineEnding); end; 3: Begin FormMain.LSP4.WriteData(NMacro+LineEnding); end; 4: begin FormMain.LSP5.WriteData(NMacro+LineEnding); end; end; end; Self.close;end;

Navigation

[0] Message Index