h_exct.pas

一个Delphi解释器的例子

  Result := TRADIOGROUP(slf).COLOR;
End;

Function TRADIOGROUPset_COLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOGROUP(slf).COLOR:=S[0];
End;
{--------------------}
Function TRADIOGROUPget_COLUMNS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TRADIOGROUP(slf).COLUMNS;
End;

Function TRADIOGROUPset_COLUMNS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOGROUP(slf).COLUMNS:=S[0];
End;
{--------------------}
Function TRADIOGROUPget_CTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TRADIOGROUP(slf).CTL3D;
End;

Function TRADIOGROUPset_CTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOGROUP(slf).CTL3D:=S[0];
End;
{--------------------}
Function TRADIOGROUPget_DRAGCURSOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TRADIOGROUP(slf).DRAGCURSOR;
End;

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

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

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

Function TRADIOGROUPset_FONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOGROUP(slf).FONT:=TFont(VO(S[0]));
End;
{--------------------}
Function TRADIOGROUPget_ITEMINDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TRADIOGROUP(slf).ITEMINDEX;
End;

Function TRADIOGROUPset_ITEMINDEX(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOGROUP(slf).ITEMINDEX:=S[0];
End;
{--------------------}
Function TRADIOGROUPget_ITEMS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := OV(TRADIOGROUP(slf).ITEMS);
End;

Function TRADIOGROUPset_ITEMS(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOGROUP(slf).ITEMS:=TStrings(VO(S[0]));
End;
{--------------------}
Function TRADIOGROUPget_PARENTCOLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TRADIOGROUP(slf).PARENTCOLOR;
End;

Function TRADIOGROUPset_PARENTCOLOR(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOGROUP(slf).PARENTCOLOR:=S[0];
End;
{--------------------}
Function TRADIOGROUPget_PARENTCTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TRADIOGROUP(slf).PARENTCTL3D;
End;

Function TRADIOGROUPset_PARENTCTL3D(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOGROUP(slf).PARENTCTL3D:=S[0];
End;
{--------------------}
Function TRADIOGROUPget_PARENTFONT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TRADIOGROUP(slf).PARENTFONT;
End;

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

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

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

Function TRADIOGROUPset_SHOWHINT(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOGROUP(slf).SHOWHINT:=S[0];
End;
{--------------------}
Function TRADIOGROUPget_TABORDER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TRADIOGROUP(slf).TABORDER;
End;

Function TRADIOGROUPset_TABORDER(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOGROUP(slf).TABORDER:=S[0];
End;
{--------------------}
Function TRADIOGROUPget_TABSTOP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TRADIOGROUP(slf).TABSTOP;
End;

Function TRADIOGROUPset_TABSTOP(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOGROUP(slf).TABSTOP:=S[0];
End;
{--------------------}
Function TRADIOGROUPget_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
  Result := TRADIOGROUP(slf).VISIBLE;
End;

Function TRADIOGROUPset_VISIBLE(slf:TObject;var APropName:String;var s:array of variant):variant;
Begin
TRADIOGROUP(slf).VISIBLE:=S[0];
End;
{--------------------}
{function myFRAME3D(slf:TObject;var APropName:String;var s:array of variant):variant;
begin
 FRAME3D(TCanvas(VO(S[0])),TRect S[1],S[2],S[3],S[4]);
End;}

procedure extinit;
begin
{   AddObjectType('TSHAPE','TGRAPHICCONTROL');
   AddObjectType('TPAINTBOX','TGRAPHICCONTROL');
   AddObjectType('TIMAGE','TGRAPHICCONTROL');
   AddObjectType('TBEVEL','TGRAPHICCONTROL');
   AddObjectType('TTIMER','TCOMPONENT');
   AddObjectType('TCUSTOMPANEL','TCUSTOMCONTROL');
   AddObjectType('TPANEL','TCUSTOMPANEL');
   AddObjectType('TPAGE','TCUSTOMCONTROL');
   AddObjectType('TNOTEBOOK','TCUSTOMCONTROL');
   AddObjectType('THEADER','TCUSTOMCONTROL');
   AddObjectType('TCUSTOMRADIOGROUP','TCUSTOMGROUPBOX');
   AddObjectType('TRADIOGROUP','TCUSTOMRADIOGROUP');}

   AddFun('TSHAPE.CREATE',myTSHAPECREATE,[0]);
   AddProc('TSHAPE.STYLECHANGED',myTSHAPESTYLECHANGED,[0]);
   AddProp('TSHAPE.BRUSH',TSHAPEget_BRUSH,TSHAPEset_BRUSH);
   AddProp('TSHAPE.DRAGCURSOR',TSHAPEget_DRAGCURSOR,TSHAPEset_DRAGCURSOR);
   AddProp('TSHAPE.DRAGMODE',TSHAPEget_DRAGMODE,TSHAPEset_DRAGMODE);
   AddProp('TSHAPE.ENABLED',TSHAPEget_ENABLED,TSHAPEset_ENABLED);
   AddProp('TSHAPE.PARENTSHOWHINT',TSHAPEget_PARENTSHOWHINT,TSHAPEset_PARENTSHOWHINT);
   AddProp('TSHAPE.PEN',TSHAPEget_PEN,TSHAPEset_PEN);
   AddProp('TSHAPE.SHAPE',TSHAPEget_SHAPE,TSHAPEset_SHAPE);
   AddProp('TSHAPE.SHOWHINT',TSHAPEget_SHOWHINT,TSHAPEset_SHOWHINT);
   AddProp('TSHAPE.VISIBLE',TSHAPEget_VISIBLE,TSHAPEset_VISIBLE);
   AddFun('TPAINTBOX.CREATE',myTPAINTBOXCREATE,[0]);
   AddProp('TPAINTBOX.CANVAS',TPAINTBOXget_CANVAS,nil);
   AddProp('TPAINTBOX.ALIGN',TPAINTBOXget_ALIGN,TPAINTBOXset_ALIGN);
   AddProp('TPAINTBOX.COLOR',TPAINTBOXget_COLOR,TPAINTBOXset_COLOR);
   AddProp('TPAINTBOX.DRAGCURSOR',TPAINTBOXget_DRAGCURSOR,TPAINTBOXset_DRAGCURSOR);
   AddProp('TPAINTBOX.DRAGMODE',TPAINTBOXget_DRAGMODE,TPAINTBOXset_DRAGMODE);
   AddProp('TPAINTBOX.ENABLED',TPAINTBOXget_ENABLED,TPAINTBOXset_ENABLED);
   AddProp('TPAINTBOX.FONT',TPAINTBOXget_FONT,TPAINTBOXset_FONT);
   AddProp('TPAINTBOX.PARENTCOLOR',TPAINTBOXget_PARENTCOLOR,TPAINTBOXset_PARENTCOLOR);
   AddProp('TPAINTBOX.PARENTFONT',TPAINTBOXget_PARENTFONT,TPAINTBOXset_PARENTFONT);
   AddProp('TPAINTBOX.PARENTSHOWHINT',TPAINTBOXget_PARENTSHOWHINT,TPAINTBOXset_PARENTSHOWHINT);
   AddProp('TPAINTBOX.POPUPMENU',TPAINTBOXget_POPUPMENU,TPAINTBOXset_POPUPMENU);
   AddProp('TPAINTBOX.SHOWHINT',TPAINTBOXget_SHOWHINT,TPAINTBOXset_SHOWHINT);
   AddProp('TPAINTBOX.VISIBLE',TPAINTBOXget_VISIBLE,TPAINTBOXset_VISIBLE);
   AddFun('TIMAGE.CREATE',myTIMAGECREATE,[0]);
   AddProp('TIMAGE.CANVAS',TIMAGEget_CANVAS,nil);
   AddProp('TIMAGE.ALIGN',TIMAGEget_ALIGN,TIMAGEset_ALIGN);
   AddProp('TIMAGE.AUTOSIZE',TIMAGEget_AUTOSIZE,TIMAGEset_AUTOSIZE);
   AddProp('TIMAGE.CENTER',TIMAGEget_CENTER,TIMAGEset_CENTER);
   AddProp('TIMAGE.DRAGCURSOR',TIMAGEget_DRAGCURSOR,TIMAGEset_DRAGCURSOR);
   AddProp('TIMAGE.DRAGMODE',TIMAGEget_DRAGMODE,TIMAGEset_DRAGMODE);
   AddProp('TIMAGE.ENABLED',TIMAGEget_ENABLED,TIMAGEset_ENABLED);
   AddProp('TIMAGE.PARENTSHOWHINT',TIMAGEget_PARENTSHOWHINT,TIMAGEset_PARENTSHOWHINT);
   AddProp('TIMAGE.PICTURE',TIMAGEget_PICTURE,TIMAGEset_PICTURE);
   AddProp('TIMAGE.POPUPMENU',TIMAGEget_POPUPMENU,TIMAGEset_POPUPMENU);
   AddProp('TIMAGE.SHOWHINT',TIMAGEget_SHOWHINT,TIMAGEset_SHOWHINT);
   AddProp('TIMAGE.STRETCH',TIMAGEget_STRETCH,TIMAGEset_STRETCH);
   AddProp('TIMAGE.VISIBLE',TIMAGEget_VISIBLE,TIMAGEset_VISIBLE);
   AddFun('TBEVEL.CREATE',myTBEVELCREATE,[0]);
   AddProp('TBEVEL.ALIGN',TBEVELget_ALIGN,TBEVELset_ALIGN);
   AddProp('TBEVEL.PARENTSHOWHINT',TBEVELget_PARENTSHOWHINT,TBEVELset_PARENTSHOWHINT);
   AddProp('TBEVEL.SHAPE',TBEVELget_SHAPE,TBEVELset_SHAPE);
   AddProp('TBEVEL.SHOWHINT',TBEVELget_SHOWHINT,TBEVELset_SHOWHINT);
   AddProp('TBEVEL.STYLE',TBEVELget_STYLE,TBEVELset_STYLE);
   AddProp('TBEVEL.VISIBLE',TBEVELget_VISIBLE,TBEVELset_VISIBLE);
   AddFun('TTIMER.CREATE',myTTIMERCREATE,[0]);
   AddProp('TTIMER.ENABLED',TTIMERget_ENABLED,TTIMERset_ENABLED);
   AddProp('TTIMER.INTERVAL',TTIMERget_INTERVAL,TTIMERset_INTERVAL);
   AddFun('TCUSTOMPANEL.CREATE',myTCUSTOMPANELCREATE,[0]);
   AddProp('TPANEL.ALIGN',TPANELget_ALIGN,TPANELset_ALIGN);
   AddProp('TPANEL.ALIGNMENT',TPANELget_ALIGNMENT,TPANELset_ALIGNMENT);
   AddProp('TPANEL.BEVELINNER',TPANELget_BEVELINNER,TPANELset_BEVELINNER);
   AddProp('TPANEL.BEVELOUTER',TPANELget_BEVELOUTER,TPANELset_BEVELOUTER);
   AddProp('TPANEL.BEVELWIDTH',TPANELget_BEVELWIDTH,TPANELset_BEVELWIDTH);
   AddProp('TPANEL.BORDERWIDTH',TPANELget_BORDERWIDTH,TPANELset_BORDERWIDTH);
   AddProp('TPANEL.BORDERSTYLE',TPANELget_BORDERSTYLE,TPANELset_BORDERSTYLE);
   AddProp('TPANEL.DRAGCURSOR',TPANELget_DRAGCURSOR,TPANELset_DRAGCURSOR);
   AddProp('TPANEL.DRAGMODE',TPANELget_DRAGMODE,TPANELset_DRAGMODE);
   AddProp('TPANEL.ENABLED',TPANELget_ENABLED,TPANELset_ENABLED);
   AddProp('TPANEL.CAPTION',TPANELget_CAPTION,TPANELset_CAPTION);
   AddProp('TPANEL.COLOR',TPANELget_COLOR,TPANELset_COLOR);
   AddProp('TPANEL.CTL3D',TPANELget_CTL3D,TPANELset_CTL3D);
   AddProp('TPANEL.FONT',TPANELget_FONT,TPANELset_FONT);
   AddProp('TPANEL.LOCKED',TPANELget_LOCKED,TPANELset_LOCKED);
   AddProp('TPANEL.PARENTCOLOR',TPANELget_PARENTCOLOR,TPANELset_PARENTCOLOR);
   AddProp('TPANEL.PARENTCTL3D',TPANELget_PARENTCTL3D,TPANELset_PARENTCTL3D);
   AddProp('TPANEL.PARENTFONT',TPANELget_PARENTFONT,TPANELset_PARENTFONT);
   AddProp('TPANEL.PARENTSHOWHINT',TPANELget_PARENTSHOWHINT,TPANELset_PARENTSHOWHINT);
   AddProp('TPANEL.POPUPMENU',TPANELget_POPUPMENU,TPANELset_POPUPMENU);
   AddProp('TPANEL.SHOWHINT',TPANELget_SHOWHINT,TPANELset_SHOWHINT);
   AddProp('TPANEL.TABORDER',TPANELget_TABORDER,TPANELset_TABORDER);
   AddProp('TPANEL.TABSTOP',TPANELget_TABSTOP,TPANELset_TABSTOP);
   AddProp('TPANEL.VISIBLE',TPANELget_VISIBLE,TPANELset_VISIBLE);
   AddFun('TPAGE.CREATE',myTPAGECREATE,[0]);
   AddProp('TPAGE.CAPTION',TPAGEget_CAPTION,TPAGEset_CAPTION);
   AddProp('TPAGE.HEIGHT',TPAGEget_HEIGHT,TPAGEset_HEIGHT);
   AddProp('TPAGE.TABORDER',TPAGEget_TABORDER,TPAGEset_TABORDER);
   AddProp('TPAGE.VISIBLE',TPAGEget_VISIBLE,TPAGEset_VISIBLE);
   AddProp('TPAGE.WIDTH',TPAGEget_WIDTH,TPAGEset_WIDTH);
   AddFun('TNOTEBOOK.CREATE',myTNOTEBOOKCREATE,[0]);
   AddProp('TNOTEBOOK.ACTIVEPAGE',TNOTEBOOKget_ACTIVEPAGE,TNOTEBOOKset_ACTIVEPAGE);
   AddProp('TNOTEBOOK.ALIGN',TNOTEBOOKget_ALIGN,TNOTEBOOKset_ALIGN);
   AddProp('TNOTEBOOK.COLOR',TNOTEBOOKget_COLOR,TNOTEBOOKset_COLOR);
   AddProp('TNOTEBOOK.CTL3D',TNOTEBOOKget_CTL3D,TNOTEBOOKset_CTL3D);
   AddProp('TNOTEBOOK.DRAGCURSOR',TNOTEBOOKget_DRAGCURSOR,TNOTEBOOKset_DRAGCURSOR);
   AddProp('TNOTEBOOK.DRAGMODE',TNOTEBOOKget_DRAGMODE,TNOTEBOOKset_DRAGMODE);
   AddProp('TNOTEBOOK.FONT',TNOTEBOOKget_FONT,TNOTEBOOKset_FONT);
   AddProp('TNOTEBOOK.ENABLED',TNOTEBOOKget_ENABLED,TNOTEBOOKset_ENABLED);
   AddProp('TNOTEBOOK.PAGEINDEX',TNOTEBOOKget_PAGEINDEX,TNOTEBOOKset_PAGEINDEX);
   AddProp('TNOTEBOOK.PAGES',TNOTEBOOKget_PAGES,TNOTEBOOKset_PAGES);
   AddProp('TNOTEBOOK.PARENTCOLOR',TNOTEBOOKget_PARENTCOLOR,TNOTEBOOKset_PARENTCOLOR);
   AddProp('TNOTEBOOK.PARENTCTL3D',TNOTEBOOKget_PARENTCTL3D,TNOTEBOOKset_PARENTCTL3D);
   AddProp('TNOTEBOOK.PARENTFONT',TNOTEBOOKget_PARENTFONT,TNOTEBOOKset_PARENTFONT);
   AddProp('TNOTEBOOK.PARENTSHOWHINT',TNOTEBOOKget_PARENTSHOWHINT,TNOTEBOOKset_PARENTSHOWHINT);
   AddProp('TNOTEBOOK.POPUPMENU',TNOTEBOOKget_POPUPMENU,TNOTEBOOKset_POPUPMENU);
   AddProp('TNOTEBOOK.SHOWHINT',TNOTEBOOKget_SHOWHINT,TNOTEBOOKset_SHOWHINT);
   AddProp('TNOTEBOOK.TABORDER',TNOTEBOOKget_TABORDER,TNOTEBOOKset_TABORDER);
   AddProp('TNOTEBOOK.TABSTOP',TNOTEBOOKget_TABSTOP,TNOTEBOOKset_TABSTOP);
   AddProp('TNOTEBOOK.VISIBLE',TNOTEBOOKget_VISIBLE,TNOTEBOOKset_VISIBLE);
   AddFun('THEADER.CREATE',myTHEADERCREATE,[0]);
   AddProp('THEADER.ALIGN',THEADERget_ALIGN,THEADERset_ALIGN);
   AddProp('THEADER.ALLOWRESIZE',THEADERget_ALLOWRESIZE,THEADERset_ALLOWRESIZE);
   AddProp('THEADER.BORDERSTYLE',THEADERget_BORDERSTYLE,THEADERset_BORDERSTYLE);
   AddProp('THEADER.ENABLED',THEADERget_ENABLED,THEADERset_ENABLED);
   AddProp('THEADER.FONT',THEADERget_FONT,THEADERset_FONT);
   AddProp('THEADER.PARENTFONT',THEADERget_PARENTFONT,THEADERset_PARENTFONT);
   AddProp('THEADER.PARENTSHOWHINT',THEADERget_PARENTSHOWHINT,THEADERset_PARENTSHOWHINT);
   AddProp('THEADER.POPUPMENU',THEADERget_POPUPMENU,THEADERset_POPUPMENU);
   AddProp('THEADER.SECTIONS',THEADERget_SECTIONS,THEADERset_SECTIONS);
   AddProp('THEADER.SHOWHINT',THEADERget_SHOWHINT,THEADERset_SHOWHINT);
   AddProp('THEADER.TABORDER',THEADERget_TABORDER,THEADERset_TABORDER);
   AddProp('THEADER.TABSTOP',THEADERget_TABSTOP,THEADERset_TABSTOP);
   AddProp('THEADER.VISIBLE',THEADERget_VISIBLE,THEADERset_VISIBLE);

   AddFun('TCUSTOMRADIOGROUP.CREATE',myTCUSTOMRADIOGROUPCREATE,[0]);
   AddProp('TRADIOGROUP.ALIGN',TRADIOGROUPget_ALIGN,TRADIOGROUPset_ALIGN);
   AddProp('TRADIOGROUP.CAPTION',TRADIOGROUPget_CAPTION,TRADIOGROUPset_CAPTION);
   AddProp('TRADIOGROUP.COLOR',TRADIOGROUPget_COLOR,TRADIOGROUPset_COLOR);
   AddProp('TRADIOGROUP.COLUMNS',TRADIOGROUPget_COLUMNS,TRADIOGROUPset_COLUMNS);
   AddProp('TRADIOGROUP.CTL3D',TRADIOGROUPget_CTL3D,TRADIOGROUPset_CTL3D);
   AddProp('TRADIOGROUP.DRAGCURSOR',TRADIOGROUPget_DRAGCURSOR,TRADIOGROUPset_DRAGCURSOR);
   AddProp('TRADIOGROUP.DRAGMODE',TRADIOGROUPget_DRAGMODE,TRADIOGROUPset_DRAGMODE);
   AddProp('TRADIOGROUP.ENABLED',TRADIOGROUPget_ENABLED,TRADIOGROUPset_ENABLED);
   AddProp('TRADIOGROUP.FONT',TRADIOGROUPget_FONT,TRADIOGROUPset_FONT);
   AddProp('TRADIOGROUP.ITEMINDEX',TRADIOGROUPget_ITEMINDEX,TRADIOGROUPset_ITEMINDEX);
   AddProp('TRADIOGROUP.ITEMS',TRADIOGROUPget_ITEMS,TRADIOGROUPset_ITEMS);
   AddProp('TRADIOGROUP.PARENTCOLOR',TRADIOGROUPget_PARENTCOLOR,TRADIOGROUPset_PARENTCOLOR);
   AddProp('TRADIOGROUP.PARENTCTL3D',TRADIOGROUPget_PARENTCTL3D,TRADIOGROUPset_PARENTCTL3D);
   AddProp('TRADIOGROUP.PARENTFONT',TRADIOGROUPget_PARENTFONT,TRADIOGROUPset_PARENTFONT);
   AddProp('TRADIOGROUP.PARENTSHOWHINT',TRADIOGROUPget_PARENTSHOWHINT,TRADIOGROUPset_PARENTSHOWHINT);
   AddProp('TRADIOGROUP.POPUPMENU',TRADIOGROUPget_POPUPMENU,TRADIOGROUPset_POPUPMENU);
   AddProp('TRADIOGROUP.SHOWHINT',TRADIOGROUPget_SHOWHINT,TRADIOGROUPset_SHOWHINT);
   AddProp('TRADIOGROUP.TABORDER',TRADIOGROUPget_TABORDER,TRADIOGROUPset_TABORDER);
   AddProp('TRADIOGROUP.TABSTOP',TRADIOGROUPget_TABSTOP,TRADIOGROUPset_TABSTOP);
   AddProp('TRADIOGROUP.VISIBLE',TRADIOGROUPget_VISIBLE,TRADIOGROUPset_VISIBLE);
{   AddProc('FRAME3D',myFRAME3D,[0,1,0,0,0]);}

   AddConst('stEllipse',stEllipse);
   AddConst('stRectangle',stRectangle);
   AddConst('stRoundRect',stRoundRect);
   AddConst('stRoundSquare',stRoundSquare);
   AddConst('stSquare',stSquare);
   AddConst('stCircle',stCircle);
   AddConst('bsBox',bsBox);
   AddConst('bsFrame',bsFrame);
   AddConst('bsTopLine',bsTopLine);
   AddConst('bsBottomLine',bsBottomLine);
   AddConst('bsLeftLine',bsLeftLine);
   AddConst('bsRightLine',bsRightLine);
   AddConst('bsLowered',bsLowered);
   AddConst('bsRaised',bsRaised);
   AddConst('bvNone',bvNone);
   AddConst('bvLowered',bvLowered);
   AddConst('bvRaised',bvRaised);
   AddConst('bsNone',bsNone);
   AddConst('bsSingle',bsSingle);

end;

procedure ComInit;
begin
{   AddObjectType('TPageControl','TWinControl');
   AddObjectType('TTabSheet','TWinControl');}
end;

Initialization
ExtInit;
ComInit;
  RegisterClasses([TBevel,TPanel,TPageControl,TTabSheet,
   TSHAPE,TPAINTBOX,TIMAGE,TTIMER,TCUSTOMPANEL,
   TPAGE,TNOTEBOOK,THEADER,TCUSTOMRADIOGROUP,TRADIOGROUP]);
End.