h_exct.pas

一个Delphi解释器的例子

Unit h_exct;
Interface
Uses Delphin, EXTCTRLS,CLASSES, Forms,ComCtrls,Graphics,menus;

Implementation
{

To Convert Variant to object use VarToObj()
To Convert Object to variant use ObjToVar()

}

{--------------------}
function myTSHAPECREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=OV(TSHAPE(slf).CREATE(TComponent(VO(S[0]))));
End;
{--------------------}
function myTSHAPESTYLECHANGED(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TSHAPE(slf).STYLECHANGED(VO(S[0]));
End;
{--------------------}
Function TSHAPEget_BRUSH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TSHAPE(slf).BRUSH);
End;

Function TSHAPEset_BRUSH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSHAPE(slf).BRUSH:=TBrush(VO(S[0]));
End;
{--------------------}
Function TSHAPEget_DRAGCURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSHAPE(slf).DRAGCURSOR;
End;

Function TSHAPEset_DRAGCURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSHAPE(slf).DRAGCURSOR:=S[0];
End;
{--------------------}
Function TSHAPEget_DRAGMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSHAPE(slf).DRAGMODE;
End;

Function TSHAPEset_DRAGMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSHAPE(slf).DRAGMODE:=S[0];
End;
{--------------------}
Function TSHAPEget_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSHAPE(slf).ENABLED;
End;

Function TSHAPEset_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSHAPE(slf).ENABLED:=S[0];
End;
{--------------------}
Function TSHAPEget_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSHAPE(slf).PARENTSHOWHINT;
End;

Function TSHAPEset_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSHAPE(slf).PARENTSHOWHINT:=S[0];
End;
{--------------------}
Function TSHAPEget_PEN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TSHAPE(slf).PEN);
End;

Function TSHAPEset_PEN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSHAPE(slf).PEN:=TPen(VO(S[0]));
End;
{--------------------}
Function TSHAPEget_SHAPE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSHAPE(slf).SHAPE;
End;

Function TSHAPEset_SHAPE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSHAPE(slf).SHAPE:=S[0];
End;
{--------------------}
Function TSHAPEget_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSHAPE(slf).SHOWHINT;
End;

Function TSHAPEset_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSHAPE(slf).SHOWHINT:=S[0];
End;
{--------------------}
Function TSHAPEget_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSHAPE(slf).VISIBLE;
End;

Function TSHAPEset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSHAPE(slf).VISIBLE:=S[0];
End;
{--------------------}
function myTPAINTBOXCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=OV(TPAINTBOX(slf).CREATE(TComponent(VO(S[0]))));
End;
{--------------------}
Function TPAINTBOXget_CANVAS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TPAINTBOX(slf).CANVAS);
End;
{--------------------}
Function TPAINTBOXget_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPAINTBOX(slf).ALIGN;
End;

Function TPAINTBOXset_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAINTBOX(slf).ALIGN:=S[0];
End;
{--------------------}
Function TPAINTBOXget_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPAINTBOX(slf).COLOR;
End;

Function TPAINTBOXset_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAINTBOX(slf).COLOR:=S[0];
End;
{--------------------}
Function TPAINTBOXget_DRAGCURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPAINTBOX(slf).DRAGCURSOR;
End;

Function TPAINTBOXset_DRAGCURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAINTBOX(slf).DRAGCURSOR:=S[0];
End;
{--------------------}
Function TPAINTBOXget_DRAGMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPAINTBOX(slf).DRAGMODE;
End;

Function TPAINTBOXset_DRAGMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAINTBOX(slf).DRAGMODE:=S[0];
End;
{--------------------}
Function TPAINTBOXget_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPAINTBOX(slf).ENABLED;
End;

Function TPAINTBOXset_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAINTBOX(slf).ENABLED:=S[0];
End;
{--------------------}
Function TPAINTBOXget_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TPAINTBOX(slf).FONT);
End;

Function TPAINTBOXset_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAINTBOX(slf).FONT:=TFont(VO(S[0]));
End;
{--------------------}
Function TPAINTBOXget_PARENTCOLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPAINTBOX(slf).PARENTCOLOR;
End;

Function TPAINTBOXset_PARENTCOLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAINTBOX(slf).PARENTCOLOR:=S[0];
End;
{--------------------}
Function TPAINTBOXget_PARENTFONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPAINTBOX(slf).PARENTFONT;
End;

Function TPAINTBOXset_PARENTFONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAINTBOX(slf).PARENTFONT:=S[0];
End;
{--------------------}
Function TPAINTBOXget_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPAINTBOX(slf).PARENTSHOWHINT;
End;

Function TPAINTBOXset_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAINTBOX(slf).PARENTSHOWHINT:=S[0];
End;
{--------------------}
Function TPAINTBOXget_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TPAINTBOX(slf).POPUPMENU);
End;

Function TPAINTBOXset_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAINTBOX(slf).POPUPMENU:=TPopupMenu(VO(S[0]));
End;
{--------------------}
Function TPAINTBOXget_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPAINTBOX(slf).SHOWHINT;
End;

Function TPAINTBOXset_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAINTBOX(slf).SHOWHINT:=S[0];
End;
{--------------------}
Function TPAINTBOXget_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TPAINTBOX(slf).VISIBLE;
End;

Function TPAINTBOXset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TPAINTBOX(slf).VISIBLE:=S[0];
End;
{--------------------}
function myTIMAGECREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=OV(TIMAGE(slf).CREATE(TComponent(Vo(S[0]))));
End;
{--------------------}
Function TIMAGEget_CANVAS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TIMAGE(slf).CANVAS);
End;
{--------------------}
Function TIMAGEget_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TIMAGE(slf).ALIGN;
End;

Function TIMAGEset_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TIMAGE(slf).ALIGN:=S[0];
End;
{--------------------}
Function TIMAGEget_AUTOSIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TIMAGE(slf).AUTOSIZE;
End;

Function TIMAGEset_AUTOSIZE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TIMAGE(slf).AUTOSIZE:=S[0];
End;
{--------------------}
Function TIMAGEget_CENTER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TIMAGE(slf).CENTER;
End;

Function TIMAGEset_CENTER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TIMAGE(slf).CENTER:=S[0];
End;
{--------------------}
Function TIMAGEget_DRAGCURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TIMAGE(slf).DRAGCURSOR;
End;

Function TIMAGEset_DRAGCURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TIMAGE(slf).DRAGCURSOR:=S[0];
End;
{--------------------}
Function TIMAGEget_DRAGMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TIMAGE(slf).DRAGMODE;
End;

Function TIMAGEset_DRAGMODE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TIMAGE(slf).DRAGMODE:=S[0];
End;
{--------------------}
Function TIMAGEget_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TIMAGE(slf).ENABLED;
End;

Function TIMAGEset_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TIMAGE(slf).ENABLED:=S[0];
End;
{--------------------}
Function TIMAGEget_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TIMAGE(slf).PARENTSHOWHINT;
End;

Function TIMAGEset_PARENTSHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TIMAGE(slf).PARENTSHOWHINT:=S[0];
End;
{--------------------}
Function TIMAGEget_PICTURE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TIMAGE(slf).PICTURE);
End;

Function TIMAGEset_PICTURE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TIMAGE(slf).PICTURE:=TPicture(VO(S[0]));
End;
{--------------------}
Function TIMAGEget_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TIMAGE(slf).POPUPMENU);
End;

Function TIMAGEset_POPUPMENU(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TIMAGE(slf).POPUPMENU:=TPopupMenu(VO(S[0]));
End;
{--------------------}
Function TIMAGEget_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TIMAGE(slf).SHOWHINT;
End;

Function TIMAGEset_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TIMAGE(slf).SHOWHINT:=S[0];
End;
{--------------------}
Function TIMAGEget_STRETCH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TIMAGE(slf).STRETCH;
End;

Function TIMAGEset_STRETCH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TIMAGE(slf).STRETCH:=S[0];
End;
{--------------------}
Function TIMAGEget_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TIMAGE(slf).VISIBLE;
End;

Function TIMAGEset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TIMAGE(slf).VISIBLE:=S[0];
End;
{--------------------}
function myTBEVELCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin