h_contr.pas

一个Delphi解释器的例子

Unit h_contr;
Interface
Uses Delphin, CONTROLS,Classes,graphics,menus;
Implementation
type
  TConvertObj = class(TWinControl)
  published
    property Align;
    property Caption;
    property Color;
    property Ctl3D;
    property DragCursor;
    property DragMode;
    property Enabled;
    property Font;
    property ParentColor;
    property ParentCtl3D;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property ShowHint;
    property TabOrder;
    property TabStop;
    property Visible;
    property OnClick;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnStartDrag;
  end;

{--------------------}
function myTCONTROLBRINGTOFRONT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCONTROL(slf).BRINGTOFRONT;
End;
{--------------------}
(*function myTCONTROLCLIENTTOSCREEN(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TCONTROL(slf).CLIENTTOSCREEN(S[0]);
End;
{--------------------}
function myTCONTROLDRAGGING(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TCONTROL(slf).DRAGGING;
End;
{--------------------}
function myTCONTROLDRAGDROP(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCONTROL(slf).DRAGDROP(S[0],S[1],S[2]);
End;
{--------------------}
function myTCONTROLENDDRAG(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCONTROL(slf).ENDDRAG(S[0]);
End;
{--------------------}
function myTCONTROLGETTEXTBUF(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TCONTROL(slf).GETTEXTBUF(S[0],S[1]);
End;
{--------------------}
function myTCONTROLGETTEXTLEN(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TCONTROL(slf).GETTEXTLEN;
End;
*){--------------------}
function myTCONTROLHIDE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCONTROL(slf).HIDE;
End;
{--------------------}
function myTCONTROLINVALIDATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCONTROL(slf).INVALIDATE;
End;
{--------------------}
function myTCONTROLPERFORM(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TCONTROL(slf).PERFORM(S[0],S[1],S[2]);
End;
{--------------------}
function myTCONTROLREFRESH(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCONTROL(slf).REFRESH;
End;
{--------------------}
function myTCONTROLREPAINT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCONTROL(slf).REPAINT;
End;
{--------------------}
(*function myTCONTROLSCREENTOCLIENT(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TCONTROL(slf).SCREENTOCLIENT(S[0]);
End;
*){--------------------}
function myTCONTROLSENDTOBACK(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCONTROL(slf).SENDTOBACK;
End;
{--------------------}
function myTCONTROLSETBOUNDS(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCONTROL(slf).SETBOUNDS(S[0],S[1],S[2],S[3]);
End;
{--------------------}
(*function myTCONTROLSETTEXTBUF(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCONTROL(slf).SETTEXTBUF(S[0]);
End;
*){--------------------}
function myTCONTROLSHOW(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCONTROL(slf).SHOW;
End;
{--------------------}
function myTCONTROLUPDATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TCONTROL(slf).UPDATE;
End;
{--------------------}
Function TCONTROLget_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCONTROL(slf).ALIGN;
End;

Function TCONTROLset_ALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCONTROL(slf).ALIGN:=S[0];
End;
{--------------------}
(*Function TCONTROLget_BOUNDSRECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCONTROL(slf).BOUNDSRECT;
End;

Function TCONTROLset_BOUNDSRECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCONTROL(slf).BOUNDSRECT:=S[0];
End;
*){--------------------}
Function TCONTROLget_CLIENTHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCONTROL(slf).CLIENTHEIGHT;
End;

Function TCONTROLset_CLIENTHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCONTROL(slf).CLIENTHEIGHT:=S[0];
End;
{--------------------}
(*Function TCONTROLget_CLIENTORIGIN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCONTROL(slf).CLIENTORIGIN;
End;

Function TCONTROLset_CLIENTORIGIN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCONTROL(slf).CLIENTORIGIN:=S[0];
End;
{--------------------}
Function TCONTROLget_CLIENTRECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCONTROL(slf).CLIENTRECT;
End;

Function TCONTROLset_CLIENTRECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCONTROL(slf).CLIENTRECT:=S[0];
End;
*){--------------------}
Function TCONTROLget_CLIENTWIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCONTROL(slf).CLIENTWIDTH;
End;

Function TCONTROLset_CLIENTWIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCONTROL(slf).CLIENTWIDTH:=S[0];
End;
{--------------------}
Function TCONTROLget_PARENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := ObjToVar(TCONTROL(slf).PARENT);
End;

Function TCONTROLset_PARENT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCONTROL(slf).PARENT:=TWinControl(VarToObj(S[0]));
End;
{--------------------}
Function TCONTROLget_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCONTROL(slf).SHOWHINT;
End;

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

Function TCONTROLset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCONTROL(slf).VISIBLE:=S[0];
End;
{--------------------}
Function TCONTROLget_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCONTROL(slf).ENABLED;
End;

Function TCONTROLset_ENABLED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCONTROL(slf).ENABLED:=S[0];
End;
{--------------------}
Function TCONTROLget_LEFT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCONTROL(slf).LEFT;
End;

Function TCONTROLset_LEFT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCONTROL(slf).LEFT:=S[0];
End;
{--------------------}
Function TCONTROLget_TOP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCONTROL(slf).TOP;
End;

Function TCONTROLset_TOP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCONTROL(slf).TOP:=S[0];
End;
{--------------------}
Function TCONTROLget_WIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCONTROL(slf).WIDTH;
End;

Function TCONTROLset_WIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCONTROL(slf).WIDTH:=S[0];
End;
{--------------------}
Function TCONTROLget_HEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCONTROL(slf).HEIGHT;
End;

Function TCONTROLset_HEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCONTROL(slf).HEIGHT:=S[0];
End;
{--------------------}
Function TCONTROLget_CURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCONTROL(slf).CURSOR;
End;

Function TCONTROLset_CURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCONTROL(slf).CURSOR:=S[0];
End;
{--------------------}
Function TCONTROLget_HINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCONTROL(slf).HINT;
End;

Function TCONTROLset_HINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCONTROL(slf).HINT:=S[0];
End;
{--------------------}
function myTWINCONTROLCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
Result:=ObjToVar(TWINCONTROL(slf).CREATE(TComponent(VarTOObj(S[0]))));
End;
{--------------------}
function myTWINCONTROLBROADCAST(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TWINCONTROL(slf).BROADCAST(S[0]);
End;
{--------------------}
function myTWINCONTROLCANFOCUS(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TWINCONTROL(slf).CANFOCUS;
End;
{--------------------}
function myTWINCONTROLCONTAINSCONTROL(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TWINCONTROL(slf).CONTAINSCONTROL(TControl(VarToObj(S[0])));
End;
{--------------------}
function myTWINCONTROLFOCUSED(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result := TWINCONTROL(slf).FOCUSED;
End;
function myTWINCONTROLINSERTCONTROL(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TWINCONTROL(slf).INSERTCONTROL(TControl(VarToObj(S[0])));
End;
function myTWINCONTROLREMOVECONTROL(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TWINCONTROL(slf).REMOVECONTROL(TControl(VarToObj(S[0])));
End;
{--------------------}
function myTWINCONTROLREALIGN(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 TWINCONTROL(slf).REALIGN;