Use of TMS Scripter Importtool

Uses ap_dateutils; ShowMessage (dayof (now));

Register Delphi Object or variable: IDEScripter1 idescripter1.addconstant (' Appath ', appath);   Idescripter1.addobject (' Memo1 ', memo1);   Idescripter1.addobject (' Dbqry ', DBISAMQuery1);   Idescripter1.addobject (' prnt ', PrintDBGridEh1);   Idescripter1.addobject (' DBGridEh1 ', DBGridEh1);   Idescripter1.addobject (' Rmreport ', RMFormReport1); Idescripter1.addcomponent (DBISAMQuery1);

Sysutils, Classes, Controls, Graphics, Stdctrls, Uniguiinterfaces, uniguiclasses, uniguitypes;

Unimemo

Objecttovar

Procedure Tatuniguiabstractclasseslibrary.__gettunitreenodefont (Amachine:tatvirtualmachine); var aresult:variant; Begin with Amachine do begin Aresult:=string (Tunitreenode (currentobject).     Font);   Returnoutputarg (Aresult); End End

Procedure Tatuniguiabstractclasseslibrary.__settunitreenodefont (Amachine:tatvirtualmachine); Begin with Amachine do begin Tunitreenode (Currentobject).   Font:=tunifont (Vartoobject (getinputarg (0))); End End

Use of TMS Scripter Importtool