h_stdct.pas

一个Delphi解释器的例子

  Result := TCUSTOMLISTBOX(slf).ITEMINDEX;
End;

Function TCUSTOMLISTBOXset_ITEMINDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCUSTOMLISTBOX(slf).ITEMINDEX:=S[0];
End;
{--------------------}
Function TCUSTOMLISTBOXget_SELCOUNT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCUSTOMLISTBOX(slf).SELCOUNT;
End;

{--------------------}
Function TCUSTOMLISTBOXget_TOPINDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TCUSTOMLISTBOX(slf).TOPINDEX;
End;

Function TCUSTOMLISTBOXset_TOPINDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TCUSTOMLISTBOX(slf).TOPINDEX:=S[0];
End;
{--------------------}
Function TLISTBOXget_COLUMNS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TLISTBOX(slf).COLUMNS;
End;

Function TLISTBOXset_COLUMNS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLISTBOX(slf).COLUMNS:=S[0];
End;


Function TLISTBOXget_EXTENDEDSELECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TLISTBOX(slf).EXTENDEDSELECT;
End;

Function TLISTBOXset_EXTENDEDSELECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLISTBOX(slf).EXTENDEDSELECT:=S[0];
End;

Function TLISTBOXget_INTEGRALHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TLISTBOX(slf).INTEGRALHEIGHT;
End;

Function TLISTBOXset_INTEGRALHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLISTBOX(slf).INTEGRALHEIGHT:=S[0];
End;
{--------------------}
Function TLISTBOXget_ITEMHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TLISTBOX(slf).ITEMHEIGHT;
End;

Function TLISTBOXset_ITEMHEIGHT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLISTBOX(slf).ITEMHEIGHT:=S[0];
End;
{--------------------}
Function TLISTBOXget_MULTISELECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TLISTBOX(slf).MULTISELECT;
End;

Function TLISTBOXset_MULTISELECT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLISTBOX(slf).MULTISELECT:=S[0];
End;
{--------------------}
Function TLISTBOXget_SORTED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TLISTBOX(slf).SORTED;
End;

Function TLISTBOXset_SORTED(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLISTBOX(slf).SORTED:=S[0];
End;
{--------------------}
Function TLISTBOXget_STYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TLISTBOX(slf).STYLE;
End;

Function TLISTBOXset_STYLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLISTBOX(slf).STYLE:=S[0];
End;
{--------------------}
Function TLISTBOXget_TABWIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TLISTBOX(slf).TABWIDTH;
End;

Function TLISTBOXset_TABWIDTH(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TLISTBOX(slf).TABWIDTH:=S[0];
End;
{--------------------}
function myTSCROLLBARCREATE(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 Result:=ObjToVar(TSCROLLBAR(slf).CREATE(TComponent(VarToObj(S[0]))));
End;
{--------------------}
Function TSCROLLBARget_KIND(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSCROLLBAR(slf).KIND;
End;

Function TSCROLLBARset_KIND(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSCROLLBAR(slf).KIND:=S[0];
End;
{--------------------}
Function TSCROLLBARget_LARGECHANGE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSCROLLBAR(slf).LARGECHANGE;
End;

Function TSCROLLBARset_LARGECHANGE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSCROLLBAR(slf).LARGECHANGE:=S[0];
End;
{--------------------}
Function TSCROLLBARget_MAX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSCROLLBAR(slf).MAX;
End;

Function TSCROLLBARset_MAX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSCROLLBAR(slf).MAX:=S[0];
End;
{--------------------}
Function TSCROLLBARget_MIN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSCROLLBAR(slf).MIN;
End;

Function TSCROLLBARset_MIN(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSCROLLBAR(slf).MIN:=S[0];
End;
{--------------------}
Function TSCROLLBARget_POSITION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSCROLLBAR(slf).POSITION;
End;

Function TSCROLLBARset_POSITION(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSCROLLBAR(slf).POSITION:=S[0];
End;
{--------------------}
Function TSCROLLBARget_SMALLCHANGE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TSCROLLBAR(slf).SMALLCHANGE;
End;

Function TSCROLLBARset_SMALLCHANGE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TSCROLLBAR(slf).SMALLCHANGE:=S[0];
End;
{--------------------}

procedure StdCtrlsHalInit;
begin
{   AddObjectType('TCUSTOMGROUPBOX','TCUSTOMCONTROL');
   AddObjectType('TGROUPBOX','TCUSTOMGROUPBOX');
   AddObjectType('TCUSTOMLABEL','TWinControl');
   AddObjectType('TLABEL','TCUSTOMLABEL');
   AddObjectType('TCUSTOMEDIT','TWINCONTROL');
   AddObjectType('TEDIT','TCUSTOMEDIT');
   AddObjectType('TCUSTOMMEMO','TCUSTOMEDIT');
   AddObjectType('TMEMO','TCUSTOMMEMO');
   AddObjectType('TCUSTOMCOMBOBOX','TWINCONTROL');
   AddObjectType('TCOMBOBOX','TCUSTOMCOMBOBOX');
   AddObjectType('TBUTTONCONTROL','TWINCONTROL');
   AddObjectType('TBUTTON','TBUTTONCONTROL');
   AddObjectType('TCUSTOMCHECKBOX','TBUTTONCONTROL');
   AddObjectType('TCHECKBOX','TCUSTOMCHECKBOX');
   AddObjectType('TRADIOBUTTON','TBUTTONCONTROL');
   AddObjectType('TCUSTOMLISTBOX','TWINCONTROL');
   AddObjectType('TLISTBOX','TCUSTOMLISTBOX');
   AddObjectType('TSCROLLBAR','TWINCONTROL');}

   AddFun('TGROUPBOX.CREATE',myTGROUPBOXCREATE,[0]);
   AddFun('TCUSTOMLABEL.CREATE',myTCUSTOMLABELCREATE,[0]);
   AddProp('TLABEL.ALIGNMENT',TLABELget_ALIGNMENT,TLABELset_ALIGNMENT);
   AddProp('TLABEL.AUTOSIZE',TLABELget_AUTOSIZE,TLABELset_AUTOSIZE);
   AddProp('TLABEL.FOCUSCONTROL',TLABELget_FOCUSCONTROL,TLABELset_FOCUSCONTROL);
   AddProp('TLABEL.SHOWACCELCHAR',TLABELget_SHOWACCELCHAR,TLABELset_SHOWACCELCHAR);
   AddProp('TLABEL.TRANSPARENT',TLABELget_TRANSPARENT,TLABELset_TRANSPARENT);
   AddProp('TLABEL.WORDWRAP',TLABELget_WORDWRAP,TLABELset_WORDWRAP);
   AddFun('TCUSTOMEDIT.CREATE',myTCUSTOMEDITCREATE,[0]);
   AddProc('TCUSTOMEDIT.CLEAR',myTCUSTOMEDITCLEAR,[2]);
   AddProc('TCUSTOMEDIT.CLEARSELECTION',myTCUSTOMEDITCLEARSELECTION,[2]);
   AddProc('TCUSTOMEDIT.COPYTOCLIPBOARD',myTCUSTOMEDITCOPYTOCLIPBOARD,[2]);
   AddProc('TCUSTOMEDIT.CUTTOCLIPBOARD',myTCUSTOMEDITCUTTOCLIPBOARD,[2]);
   AddProc('TCUSTOMEDIT.PASTEFROMCLIPBOARD',myTCUSTOMEDITPASTEFROMCLIPBOARD,[2]);
{   AddFun('TCUSTOMEDIT.GETSELTEXTBUF',myTCUSTOMEDITGETSELTEXTBUF,[0,0]);}
   AddProc('TCUSTOMEDIT.SELECTALL',myTCUSTOMEDITSELECTALL,[2]);
{   AddProc('TCUSTOMEDIT.SETSELTEXTBUF',myTCUSTOMEDITSETSELTEXTBUF,[0]);}
   AddProp('TCUSTOMEDIT.MODIFIED',TCUSTOMEDITget_MODIFIED,TCUSTOMEDITset_MODIFIED);
   AddProp('TCUSTOMEDIT.SELLENGTH',TCUSTOMEDITget_SELLENGTH,TCUSTOMEDITset_SELLENGTH);
   AddProp('TCUSTOMEDIT.SELSTART',TCUSTOMEDITget_SELSTART,TCUSTOMEDITset_SELSTART);
   AddProp('TCUSTOMEDIT.SELTEXT',TCUSTOMEDITget_SELTEXT,TCUSTOMEDITset_SELTEXT);
   AddProp('TEDIT.AUTOSELECT',TEDITget_AUTOSELECT,TEDITset_AUTOSELECT);
   AddProp('TEDIT.AUTOSIZE',TEDITget_AUTOSIZE,TEDITset_AUTOSIZE);
   AddProp('TEDIT.BORDERSTYLE',TEDITget_BORDERSTYLE,TEDITset_BORDERSTYLE);
   AddProp('TEDIT.CHARCASE',TEDITget_CHARCASE,TEDITset_CHARCASE);
   AddProp('TEDIT.MAXLENGTH',TEDITget_MAXLENGTH,TEDITset_MAXLENGTH);
   AddProp('TEDIT.OEMCONVERT',TEDITget_OEMCONVERT,TEDITset_OEMCONVERT);
   AddProp('TEDIT.PASSWORDCHAR',TEDITget_PASSWORDCHAR,TEDITset_PASSWORDCHAR);
   AddProp('TEDIT.READONLY',TEDITget_READONLY,TEDITset_READONLY);
   AddFun('TCUSTOMMEMO.CREATE',myTCUSTOMMEMOCREATE,[0]);
   AddProp('TCUSTOMMEMO.LINES',TCUSTOMMEMOget_LINES,TCUSTOMMEMOset_LINES);
   AddProp('TMEMO.ALIGNMENT',TMEMOget_ALIGNMENT,TMEMOset_ALIGNMENT);
   AddProp('TMEMO.SCROLLBARS',TMEMOget_SCROLLBARS,TMEMOset_SCROLLBARS);
   AddProp('TMEMO.WANTRETURNS',TMEMOget_WANTRETURNS,TMEMOset_WANTRETURNS);
   AddProp('TMEMO.WANTTABS',TMEMOget_WANTTABS,TMEMOset_WANTTABS);
   AddProp('TMEMO.WORDWRAP',TMEMOget_WORDWRAP,TMEMOset_WORDWRAP);
{   AddProc('TCUSTOMCOMBOBOX.CREATE',myTCUSTOMCOMBOBOXCREATE,[0]);}
   AddProc('TCUSTOMCOMBOBOX.SELECTALL',myTCUSTOMCOMBOBOXSELECTALL,[2]);
   AddProp('TCUSTOMCOMBOBOX.DROPPEDDOWN',TCUSTOMCOMBOBOXget_DROPPEDDOWN,TCUSTOMCOMBOBOXset_DROPPEDDOWN);
   AddProp('TCUSTOMCOMBOBOX.ITEMS',TCUSTOMCOMBOBOXget_ITEMS,TCUSTOMCOMBOBOXset_ITEMS);
   AddProp('TCUSTOMCOMBOBOX.ITEMINDEX',TCUSTOMCOMBOBOXget_ITEMINDEX,TCUSTOMCOMBOBOXset_ITEMINDEX);
   AddProp('TCUSTOMCOMBOBOX.SELLENGTH',TCUSTOMCOMBOBOXget_SELLENGTH,TCUSTOMCOMBOBOXset_SELLENGTH);
   AddProp('TCUSTOMCOMBOBOX.SELSTART',TCUSTOMCOMBOBOXget_SELSTART,TCUSTOMCOMBOBOXset_SELSTART);
   AddProp('TCUSTOMCOMBOBOX.SELTEXT',TCUSTOMCOMBOBOXget_SELTEXT,TCUSTOMCOMBOBOXset_SELTEXT);
   AddProp('TCOMBOBOX.STYLE',TCOMBOBOXget_STYLE,TCOMBOBOXset_STYLE);
   AddProp('TCOMBOBOX.ITEMHEIGHT',TCOMBOBOXget_ITEMHEIGHT,TCOMBOBOXset_ITEMHEIGHT);
   AddProp('TCOMBOBOX.MAXLENGTH',TCOMBOBOXget_MAXLENGTH,TCOMBOBOXset_MAXLENGTH);
   AddProp('TCOMBOBOX.SORTED',TCOMBOBOXget_SORTED,TCOMBOBOXset_SORTED);
   AddFun('TBUTTON.CREATE',myTBUTTONCREATE,[0]);
   AddProc('TBUTTON.CLICK',myTBUTTONCLICK,[2]);
   AddProp('TBUTTON.CANCEL',TBUTTONget_CANCEL,TBUTTONset_CANCEL);
   AddProp('TBUTTON.DEFAULT',TBUTTONget_DEFAULT,TBUTTONset_DEFAULT);
   AddProp('TBUTTON.MODALRESULT',TBUTTONget_MODALRESULT,TBUTTONset_MODALRESULT);
{   AddProc('TCUSTOMCHECKBOX.CREATE',myTCUSTOMCHECKBOXCREATE,[0]);}
   AddProp('TCHECKBOX.ALIGNMENT',TCHECKBOXget_ALIGNMENT,TCHECKBOXset_ALIGNMENT);
   AddProp('TCHECKBOX.ALLOWGRAYED',TCHECKBOXget_ALLOWGRAYED,TCHECKBOXset_ALLOWGRAYED);
   AddProp('TCHECKBOX.CHECKED',TCHECKBOXget_CHECKED,TCHECKBOXset_CHECKED);
   AddProp('TCHECKBOX.STATE',TCHECKBOXget_STATE,TCHECKBOXset_STATE);
   AddFun('TRADIOBUTTON.CREATE',myTRADIOBUTTONCREATE,[0]);
   AddProp('TRADIOBUTTON.ALIGNMENT',TRADIOBUTTONget_ALIGNMENT,TRADIOBUTTONset_ALIGNMENT);
   AddFun('TCUSTOMLISTBOX.CREATE',myTCUSTOMLISTBOXCREATE,[0]);
   AddProc('TCUSTOMLISTBOX.CLEAR',myTCUSTOMLISTBOXCLEAR,[2]);
{   AddFun('TCUSTOMLISTBOX.ITEMATPOS',myTCUSTOMLISTBOXITEMATPOS,[0,0]);}
{   AddFun('TCUSTOMLISTBOX.ITEMRECT',myTCUSTOMLISTBOXITEMRECT,[0]);}
   AddProp('TCUSTOMLISTBOX.ITEMS',TCUSTOMLISTBOXget_ITEMS,TCUSTOMLISTBOXset_ITEMS);
   AddProp('TCUSTOMLISTBOX.ITEMINDEX',TCUSTOMLISTBOXget_ITEMINDEX,TCUSTOMLISTBOXset_ITEMINDEX);
   AddProp('TCUSTOMLISTBOX.TOPINDEX',TCUSTOMLISTBOXget_TOPINDEX,TCUSTOMLISTBOXset_TOPINDEX);
   AddProp('TLISTBOX.COLUMNS',TLISTBOXget_COLUMNS,TLISTBOXset_COLUMNS);
   AddProp('TLISTBOX.EXTENDEDSELECT',TLISTBOXget_EXTENDEDSELECT,TLISTBOXset_EXTENDEDSELECT);
   AddProp('TLISTBOX.INTEGRALHEIGHT',TLISTBOXget_INTEGRALHEIGHT,TLISTBOXset_INTEGRALHEIGHT);
   AddProp('TLISTBOX.ITEMHEIGHT',TLISTBOXget_ITEMHEIGHT,TLISTBOXset_ITEMHEIGHT);
   AddProp('TLISTBOX.MULTISELECT',TLISTBOXget_MULTISELECT,TLISTBOXset_MULTISELECT);
   AddProp('TLISTBOX.SORTED',TLISTBOXget_SORTED,TLISTBOXset_SORTED);
   AddProp('TLISTBOX.STYLE',TLISTBOXget_STYLE,TLISTBOXset_STYLE);
   AddProp('TLISTBOX.TABWIDTH',TLISTBOXget_TABWIDTH,TLISTBOXset_TABWIDTH);
   AddFun('TSCROLLBAR.CREATE',myTSCROLLBARCREATE,[0]);
   AddProp('TSCROLLBAR.KIND',TSCROLLBARget_KIND,TSCROLLBARset_KIND);
   AddProp('TSCROLLBAR.LARGECHANGE',TSCROLLBARget_LARGECHANGE,TSCROLLBARset_LARGECHANGE);
   AddProp('TSCROLLBAR.MAX',TSCROLLBARget_MAX,TSCROLLBARset_MAX);
   AddProp('TSCROLLBAR.MIN',TSCROLLBARget_MIN,TSCROLLBARset_MIN);
   AddProp('TSCROLLBAR.POSITION',TSCROLLBARget_POSITION,TSCROLLBARset_POSITION);
   AddProp('TSCROLLBAR.SMALLCHANGE',TSCROLLBARget_SMALLCHANGE,TSCROLLBARset_SMALLCHANGE);

   AddConst('taLeftJustify',taLeftJustify);
   AddConst('taCenter',taCenter);
   AddConst('taRightJustify',taRightJustify);
   AddConst('ecUpperCase',ecUpperCase);
   AddConst('ecLowerCase',ecLowerCase);
   AddConst('ecNormal',ecNormal);
   AddConst('ssNone',ssNone);
   AddConst('ssHorizontal',ssHorizontal);
   AddConst('ssVertical',ssVertical);
   AddConst('ssBoth',ssBoth);
   AddConst('csDropDown',csDropDown);
   AddConst('csSimple',csSimple);
   AddConst('csDropDownList',csDropDownList);
   AddConst('csOwnerDrawFixed',csOwnerDrawFixed);
   AddConst('csOwnerDrawVariable',csOwnerDrawVariable);
   AddConst('cbUnchecked',cbUnchecked);
   AddConst('cbChecked',cbChecked);
   AddConst('cbGrayed',cbGrayed);
   AddConst('lbStandard',lbStandard);
   AddConst('lbOwnerDrawFixed',lbOwnerDrawFixed);
   AddConst('lbOwnerDrawVariable',lbOwnerDrawVariable); 
end;

initialization StdCtrlsHalInit;
 RegisterClasses([
 TMEmo,TEdit,Tlabel,TButton,TComboBox,TScrollBar,TListBox,TCustomListBox,
 TRadioButton,TCheckBox,TCUSTOMCOMBOBOX,TButton,TCUSTOMEDIT,TGROUPBOX,
 TCUSTOMLABEL
 ]);
End.