h_dlg.pas

一个Delphi解释器的例子

unit h_dlg;

interface
uses classes,delphin,dialogs,graphics{,asystem};
implementation

{------------------------------}
function myshowmessage(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 ShowMessage(S[0]);
end;
{--------------------}
function myTCOMMONDIALOGCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TCOMMONDIALOG(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
Function TCOMMONDIALOGget_CTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCOMMONDIALOG(slf).CTL3D;
End;

Function TCOMMONDIALOGset_CTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCOMMONDIALOG(slf).CTL3D:=S[0];
End;
{--------------------}
Function TCOMMONDIALOGget_HELPCONTEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCOMMONDIALOG(slf).HELPCONTEXT;
End;

Function TCOMMONDIALOGset_HELPCONTEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCOMMONDIALOG(slf).HELPCONTEXT:=S[0];
End;
{--------------------}
function myTOPENDIALOGCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TOPENDIALOG(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
function myTOPENDIALOGEXECUTE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TOPENDIALOG(slf).EXECUTE;
End;
{--------------------}
Function TOPENDIALOGget_FILES(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TOPENDIALOG(slf).FILES);
End;
{--------------------}
Function TOPENDIALOGget_DEFAULTEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TOPENDIALOG(slf).DEFAULTEXT;
End;

Function TOPENDIALOGset_DEFAULTEXT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TOPENDIALOG(slf).DEFAULTEXT:=S[0];
End;
{--------------------}
Function TOPENDIALOGget_FILEEDITSTYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TOPENDIALOG(slf).FILEEDITSTYLE;
End;

Function TOPENDIALOGset_FILEEDITSTYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TOPENDIALOG(slf).FILEEDITSTYLE:=S[0];
End;
{--------------------}
Function TOPENDIALOGget_FILENAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TOPENDIALOG(slf).FILENAME;
End;

Function TOPENDIALOGset_FILENAME(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TOPENDIALOG(slf).FILENAME:=S[0];
End;
{--------------------}
Function TOPENDIALOGget_FILTER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TOPENDIALOG(slf).FILTER;
End;

Function TOPENDIALOGset_FILTER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TOPENDIALOG(slf).FILTER:=S[0];
End;
{--------------------}
Function TOPENDIALOGget_FILTERINDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TOPENDIALOG(slf).FILTERINDEX;
End;

Function TOPENDIALOGset_FILTERINDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TOPENDIALOG(slf).FILTERINDEX:=S[0];
End;
{--------------------}
Function TOPENDIALOGget_HISTORYLIST(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TOPENDIALOG(slf).HISTORYLIST);
End;

Function TOPENDIALOGset_HISTORYLIST(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TOPENDIALOG(slf).HISTORYLIST:=TStrings(VO(S[0]));
End;
{--------------------}
Function TOPENDIALOGget_INITIALDIR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TOPENDIALOG(slf).INITIALDIR;
End;

Function TOPENDIALOGset_INITIALDIR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TOPENDIALOG(slf).INITIALDIR:=S[0];
End;
{--------------------}
{Function TOPENDIALOGget_OPTIONS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TOPENDIALOG(slf).OPTIONS;
End;

Function TOPENDIALOGset_OPTIONS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TOPENDIALOG(slf).OPTIONS:=S[0];
End;}
{--------------------}
Function TOPENDIALOGget_TITLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TOPENDIALOG(slf).TITLE;
End;

Function TOPENDIALOGset_TITLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TOPENDIALOG(slf).TITLE:=S[0];
End;
{--------------------}
function myTSAVEDIALOGEXECUTE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TSAVEDIALOG(slf).EXECUTE;
End;
{--------------------}
function myTCOLORDIALOGCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=OV(TCOLORDIALOG(slf).CREATE(TComponent(VO(S[0]))));
End;
{--------------------}
function myTCOLORDIALOGEXECUTE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TCOLORDIALOG(slf).EXECUTE;
End;
{--------------------}
Function TCOLORDIALOGget_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCOLORDIALOG(slf).COLOR;
End;

Function TCOLORDIALOGset_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCOLORDIALOG(slf).COLOR:=S[0];
End;
{--------------------}
Function TCOLORDIALOGget_CTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCOLORDIALOG(slf).CTL3D;
End;

Function TCOLORDIALOGset_CTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCOLORDIALOG(slf).CTL3D:=S[0];
End;
{--------------------}
Function TCOLORDIALOGget_CUSTOMCOLORS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TCOLORDIALOG(slf).CUSTOMCOLORS);
End;

Function TCOLORDIALOGset_CUSTOMCOLORS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCOLORDIALOG(slf).CUSTOMCOLORS:=TStrings(VO(S[0]));
End;
{--------------------}
{Function TCOLORDIALOGget_OPTIONS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCOLORDIALOG(slf).OPTIONS;
End;

Function TCOLORDIALOGset_OPTIONS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCOLORDIALOG(slf).OPTIONS:=S[0];
End;}
{--------------------}
function myTFONTDIALOGCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=OV(TFONTDIALOG(slf).CREATE(TComponent(VO(S[0]))));
End;
{--------------------}
function myTFONTDIALOGEXECUTE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TFONTDIALOG(slf).EXECUTE;
End;
{--------------------}
Function TFONTDIALOGget_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TFONTDIALOG(slf).FONT);
End;

Function TFONTDIALOGset_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFONTDIALOG(slf).FONT:=TFont(VO(S[0]));
End;
{--------------------}
Function TFONTDIALOGget_DEVICE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFONTDIALOG(slf).DEVICE;
End;

Function TFONTDIALOGset_DEVICE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFONTDIALOG(slf).DEVICE:=S[0];
End;
{--------------------}
Function TFONTDIALOGget_MINFONTSIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFONTDIALOG(slf).MINFONTSIZE;
End;

Function TFONTDIALOGset_MINFONTSIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFONTDIALOG(slf).MINFONTSIZE:=S[0];
End;
{--------------------}
Function TFONTDIALOGget_MAXFONTSIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFONTDIALOG(slf).MAXFONTSIZE;
End;

Function TFONTDIALOGset_MAXFONTSIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFONTDIALOG(slf).MAXFONTSIZE:=S[0];
End;
{--------------------}
{Function TFONTDIALOGget_OPTIONS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TFONTDIALOG(slf).OPTIONS;
End;

Function TFONTDIALOGset_OPTIONS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TFONTDIALOG(slf).OPTIONS:=S[0];
End;}
{--------------------}
function myTPRINTERSETUPDIALOGEXECUTE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TPRINTERSETUPDIALOG(slf).EXECUTE;
End;
{--------------------}
function myTPRINTDIALOGEXECUTE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TPRINTDIALOG(slf).EXECUTE;
End;
{--------------------}
Function TPRINTDIALOGget_COLLATE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPRINTDIALOG(slf).COLLATE;
End;

Function TPRINTDIALOGset_COLLATE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPRINTDIALOG(slf).COLLATE:=S[0];
End;
{--------------------}
Function TPRINTDIALOGget_COPIES(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPRINTDIALOG(slf).COPIES;
End;

Function TPRINTDIALOGset_COPIES(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPRINTDIALOG(slf).COPIES:=S[0];
End;
{--------------------}
Function TPRINTDIALOGget_FROMPAGE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPRINTDIALOG(slf).FROMPAGE;
End;

Function TPRINTDIALOGset_FROMPAGE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPRINTDIALOG(slf).FROMPAGE:=S[0];
End;
{--------------------}
Function TPRINTDIALOGget_MINPAGE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPRINTDIALOG(slf).MINPAGE;
End;

Function TPRINTDIALOGset_MINPAGE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPRINTDIALOG(slf).MINPAGE:=S[0];
End;
{--------------------}
Function TPRINTDIALOGget_MAXPAGE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin