h_exct.pas

来自「一个Delphi解释器的例子」· PAS 代码 · 共 1,497 行 · 第 1/4 页

PAS
1,497 行
字号
1234
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
1234

h_exct.pas - 源码说明

本页面展示了「一个Delphi解释器的例子」中的 h_exct.pas 源码文件，采用 PAS 编程语言编写，共 1,497 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?