imp_controls.pas

Delphi脚本控件

       @TControl.DragDrop);
  RegisterMethod(TControl,
       'function DrawTextBiDiModeFlags(Flags: Longint): Longint;',
       @TControl.DrawTextBiDiModeFlags);
  RegisterMethod(TControl,
       'function DrawTextBiDiModeFlagsReadingOnly: Longint;',
       @TControl.DrawTextBiDiModeFlagsReadingOnly);
  RegisterMethod(TControl,
       'function TControl_GetEnabled:Boolean;',
       @TControl_GetEnabled, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutEnabled(const Value: Boolean);',
       @TControl_PutEnabled, Fake);
  RegisterProperty(TControl,
       'property Enabled:Boolean read TControl_GetEnabled write TControl_PutEnabled;');
  RegisterMethod(TControl,
       'procedure EndDrag(Drop: Boolean);',
       @TControl.EndDrag);
  RegisterMethod(TControl,
       'function GetControlsAlignment: TAlignment; dynamic;',
       @TControl.GetControlsAlignment);
  RegisterMethod(TControl,
       'function GetParentComponent: TComponent; override;',
       @TControl.GetParentComponent);
  RegisterMethod(TControl,
       'function GetTextBuf(Buffer: PChar; BufSize: Integer): Integer;',
       @TControl.GetTextBuf);
  RegisterMethod(TControl,
       'function GetTextLen: Integer;',
       @TControl.GetTextLen);
  RegisterMethod(TControl,
       'function HasParent: Boolean; override;',
       @TControl.HasParent);
  RegisterMethod(TControl,
       'procedure Hide;',
       @TControl.Hide);
  RegisterMethod(TControl,
       'procedure InitiateAction; virtual;',
       @TControl.InitiateAction);
  RegisterMethod(TControl,
       'procedure Invalidate; virtual;',
       @TControl.Invalidate);
  RegisterMethod(TControl,
       'function IsRightToLeft: Boolean;',
       @TControl.IsRightToLeft);
  RegisterMethod(TControl,
       'function ManualFloat(ScreenPos: TRect): Boolean;',
       @TControl.ManualFloat);
  RegisterMethod(TControl,
       'function Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;',
       @TControl.Perform);
  RegisterMethod(TControl,
       'procedure Refresh;',
       @TControl.Refresh);
  RegisterMethod(TControl,
       'procedure Repaint; virtual;',
       @TControl.Repaint);
  RegisterMethod(TControl,
       'function ReplaceDockedControl(Control: TControl; NewDockSite: TWinControl;      DropControl: TControl; ControlSide: TAlign): Boolean;',
       @TControl.ReplaceDockedControl);
  RegisterMethod(TControl,
       'function ScreenToClient(const Point: TPoint): TPoint;',
       @TControl.ScreenToClient);
  RegisterMethod(TControl,
       'procedure SendToBack;',
       @TControl.SendToBack);
  RegisterMethod(TControl,
       'procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); virtual;',
       @TControl.SetBounds);
  RegisterMethod(TControl,
       'procedure SetTextBuf(Buffer: PChar);',
       @TControl.SetTextBuf);
  RegisterMethod(TControl,
       'procedure Show;',
       @TControl.Show);
  RegisterMethod(TControl,
       'procedure Update; virtual;',
       @TControl.Update);
  RegisterMethod(TControl,
       'function UseRightToLeftAlignment: Boolean; dynamic;',
       @TControl.UseRightToLeftAlignment);
  RegisterMethod(TControl,
       'function UseRightToLeftReading: Boolean;',
       @TControl.UseRightToLeftReading);
  RegisterMethod(TControl,
       'function UseRightToLeftScrollBar: Boolean;',
       @TControl.UseRightToLeftScrollBar);
  RegisterMethod(TControl,
       'function TControl_GetAction:TBasicAction;',
       @TControl_GetAction, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutAction(const Value: TBasicAction);',
       @TControl_PutAction, Fake);
  RegisterProperty(TControl,
       'property Action:TBasicAction read TControl_GetAction write TControl_PutAction;');
  RegisterMethod(TControl,
       'function TControl_GetAlign:TAlign;',
       @TControl_GetAlign, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutAlign(const Value: TAlign);',
       @TControl_PutAlign, Fake);
  RegisterProperty(TControl,
       'property Align:TAlign read TControl_GetAlign write TControl_PutAlign;');
  RegisterMethod(TControl,
       'function TControl_GetBiDiMode:TBiDiMode;',
       @TControl_GetBiDiMode, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutBiDiMode(const Value: TBiDiMode);',
       @TControl_PutBiDiMode, Fake);
  RegisterProperty(TControl,
       'property BiDiMode:TBiDiMode read TControl_GetBiDiMode write TControl_PutBiDiMode;');
  RegisterMethod(TControl,
       'function TControl_GetBoundsRect:TRect;',
       @TControl_GetBoundsRect, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutBoundsRect(const Value: TRect);',
       @TControl_PutBoundsRect, Fake);
  RegisterProperty(TControl,
       'property BoundsRect:TRect read TControl_GetBoundsRect write TControl_PutBoundsRect;');
  RegisterMethod(TControl,
       'function TControl_GetClientHeight:Integer;',
       @TControl_GetClientHeight, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutClientHeight(const Value: Integer);',
       @TControl_PutClientHeight, Fake);
  RegisterProperty(TControl,
       'property ClientHeight:Integer read TControl_GetClientHeight write TControl_PutClientHeight;');
  RegisterMethod(TControl,
       'function TControl_GetClientOrigin:TPoint;',
       @TControl_GetClientOrigin, Fake);
  RegisterProperty(TControl,
       'property ClientOrigin:TPoint read TControl_GetClientOrigin;');
  RegisterMethod(TControl,
       'function TControl_GetClientRect:TRect;',
       @TControl_GetClientRect, Fake);
  RegisterProperty(TControl,
       'property ClientRect:TRect read TControl_GetClientRect;');
  RegisterMethod(TControl,
       'function TControl_GetClientWidth:Integer;',
       @TControl_GetClientWidth, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutClientWidth(const Value: Integer);',
       @TControl_PutClientWidth, Fake);
  RegisterProperty(TControl,
       'property ClientWidth:Integer read TControl_GetClientWidth write TControl_PutClientWidth;');
  RegisterMethod(TControl,
       'function TControl_GetConstraints:TSizeConstraints;',
       @TControl_GetConstraints, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutConstraints(const Value: TSizeConstraints);',
       @TControl_PutConstraints, Fake);
  RegisterProperty(TControl,
       'property Constraints:TSizeConstraints read TControl_GetConstraints write TControl_PutConstraints;');
  RegisterMethod(TControl,
       'function TControl_GetControlState:TControlState;',
       @TControl_GetControlState, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutControlState(const Value: TControlState);',
       @TControl_PutControlState, Fake);
  RegisterProperty(TControl,
       'property ControlState:TControlState read TControl_GetControlState write TControl_PutControlState;');
  RegisterMethod(TControl,
       'function TControl_GetControlStyle:TControlStyle;',
       @TControl_GetControlStyle, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutControlStyle(const Value: TControlStyle);',
       @TControl_PutControlStyle, Fake);
  RegisterProperty(TControl,
       'property ControlStyle:TControlStyle read TControl_GetControlStyle write TControl_PutControlStyle;');
  RegisterMethod(TControl,
       'function TControl_GetDockOrientation:TDockOrientation;',
       @TControl_GetDockOrientation, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutDockOrientation(const Value: TDockOrientation);',
       @TControl_PutDockOrientation, Fake);
  RegisterProperty(TControl,
       'property DockOrientation:TDockOrientation read TControl_GetDockOrientation write TControl_PutDockOrientation;');
  RegisterMethod(TControl,
       'function TControl_GetFloating:Boolean;',
       @TControl_GetFloating, Fake);
  RegisterProperty(TControl,
       'property Floating:Boolean read TControl_GetFloating;');
  RegisterMethod(TControl,
       'function TControl_GetFloatingDockSiteClass:TWinControlClass;',
       @TControl_GetFloatingDockSiteClass, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutFloatingDockSiteClass(const Value: TWinControlClass);',
       @TControl_PutFloatingDockSiteClass, Fake);
  RegisterProperty(TControl,
       'property FloatingDockSiteClass:TWinControlClass read TControl_GetFloatingDockSiteClass write TControl_PutFloatingDockSiteClass;');
  RegisterMethod(TControl,
       'function TControl_GetHostDockSite:TWinControl;',
       @TControl_GetHostDockSite, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutHostDockSite(const Value: TWinControl);',
       @TControl_PutHostDockSite, Fake);
  RegisterProperty(TControl,
       'property HostDockSite:TWinControl read TControl_GetHostDockSite write TControl_PutHostDockSite;');
  RegisterMethod(TControl,
       'function TControl_GetLRDockWidth:Integer;',
       @TControl_GetLRDockWidth, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutLRDockWidth(const Value: Integer);',
       @TControl_PutLRDockWidth, Fake);
  RegisterProperty(TControl,
       'property LRDockWidth:Integer read TControl_GetLRDockWidth write TControl_PutLRDockWidth;');
  RegisterMethod(TControl,
       'function TControl_GetParent:TWinControl;',
       @TControl_GetParent, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutParent(const Value: TWinControl);',
       @TControl_PutParent, Fake);
  RegisterProperty(TControl,
       'property Parent:TWinControl read TControl_GetParent write TControl_PutParent;');
  RegisterMethod(TControl,
       'function TControl_GetShowHint:Boolean;',
       @TControl_GetShowHint, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutShowHint(const Value: Boolean);',
       @TControl_PutShowHint, Fake);
  RegisterProperty(TControl,
       'property ShowHint:Boolean read TControl_GetShowHint write TControl_PutShowHint;');
  RegisterMethod(TControl,
       'function TControl_GetTBDockHeight:Integer;',
       @TControl_GetTBDockHeight, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutTBDockHeight(const Value: Integer);',
       @TControl_PutTBDockHeight, Fake);
  RegisterProperty(TControl,
       'property TBDockHeight:Integer read TControl_GetTBDockHeight write TControl_PutTBDockHeight;');
  RegisterMethod(TControl,
       'function TControl_GetUndockHeight:Integer;',
       @TControl_GetUndockHeight, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutUndockHeight(const Value: Integer);',
       @TControl_PutUndockHeight, Fake);
  RegisterProperty(TControl,
       'property UndockHeight:Integer read TControl_GetUndockHeight write TControl_PutUndockHeight;');
  RegisterMethod(TControl,
       'function TControl_GetUndockWidth:Integer;',
       @TControl_GetUndockWidth, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutUndockWidth(const Value: Integer);',
       @TControl_PutUndockWidth, Fake);
  RegisterProperty(TControl,
       'property UndockWidth:Integer read TControl_GetUndockWidth write TControl_PutUndockWidth;');
  RegisterMethod(TControl,
       'function TControl_GetVisible:Boolean;',
       @TControl_GetVisible, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutVisible(const Value: Boolean);',
       @TControl_PutVisible, Fake);
  RegisterProperty(TControl,
       'property Visible:Boolean read TControl_GetVisible write TControl_PutVisible;');
  RegisterMethod(TControl,
       'function TControl_GetWindowProc:TWndMethod;',
       @TControl_GetWindowProc, Fake);
  RegisterMethod(TControl,
       'procedure TControl_PutWindowProc(const Value: TWndMethod);',
       @TControl_PutWindowProc, Fake);
  RegisterProperty(TControl,
       'property WindowProc:TWndMethod read TControl_GetWindowProc write TControl_PutWindowProc;');
  // End of class TControl
  // Begin of class TWinControlActionLink
  RegisterClassType(TWinControlActionLink, H);
  // CONSTRUCTOR IS NOT FOUND!!!
  // End of class TWinControlActionLink
  RegisterRTTIType(TypeInfo(TImeMode));
  RegisterRTTIType(TypeInfo(TBevelCut));
  RegisterRTTIType(TypeInfo(TBevelEdge));
  RegisterRTTIType(TypeInfo(TBevelKind));
  // Begin of class TWinControl
  RegisterClassType(TWinControl, H);
  RegisterMethod(TWinControl,
       'constructor Create(AOwner: TComponent); override;',
       @TWinControl.Create);
  RegisterMethod(TWinControl,
       'constructor CreateParented(ParentWindow: HWnd);',
       @TWinControl.CreateParented);
  RegisterMethod(TWinControl,
       'function CreateParentedControl(ParentWindow: HWnd): TWinControl;',
       @TWinControl.CreateParentedControl);
  RegisterMethod(TWinControl,
       'destructor Destroy; override;',
       @TWinControl.Destroy);
  RegisterMethod(TWinControl,
       'procedure Broadcast(var Message);',
       @TWinControl.Broadcast);
  RegisterMethod(TWinControl,
       'function CanFocus: Boolean; dynamic;',
       @TWinControl.CanFocus);
  RegisterMethod(TWinControl,
       'function ContainsControl(Control: TControl): Boolean;',
       @TWinControl.ContainsControl);
  RegisterMethod(TWinControl,
       'procedure DefaultHandler(var Message); override;',
       @TWinControl.DefaultHandler);
  RegisterMethod(TWinControl,
       'procedure DisableAlign;',
       @TWinControl.DisableAlign);
  RegisterMethod(TWinControl,
       'function TWinControl_GetDockClientCount:Integer;',
       @TWinControl_GetDockClientCount, Fake);
  RegisterProperty(TWinControl,
       'property DockClientCount:Integer read TWinControl_GetDockClientCount;');
  RegisterMethod(TWinControl,
       'function TWinControl_GetDockClients(Index: Integer):TControl;',
       @TWinControl_GetDockClients, Fake);
  RegisterProperty(TWinControl,
       'property DockClients[Index: Integer]:TControl read TWinControl_GetDockClients;');
  RegisterMethod(TWinControl,
       'procedure DockDrop(Source: TDragDockObject; X, Y: Integer); dynamic;',
       @TWinControl.DockDrop);
  RegisterMethod(TWinControl,
       'function TWinControl_GetDoubleBuffered:Boolean;',
       @TWinControl_GetDoubleBuffered, Fake);
  RegisterMethod(TWinControl,
       'procedure TWinControl_PutDoubleBuffered(const Value: Boolean);',
       @TWinControl_PutDoubleBuffered, Fake);
  RegisterProperty(TWinControl,
       'property DoubleBuffered:Boolean read TWinControl_GetDoubleBuffered write TWinControl_PutDoubleBuffered;');
  RegisterMethod(TWinControl,
       'procedure EnableAlign;',
       @TWinControl.EnableAlign);
  RegisterMethod(TWinControl,
       'function FindChildControl(const ControlName: string): TControl;',
       @TWinControl.FindChildControl);
  RegisterMethod(TWinControl,
       'procedure FlipChildren(AllLevels: Boolean); dynamic;',
       @TWinControl.FlipChildren);
  RegisterMethod(TWinControl,
       'function Focused: Boolean; dynamic;',
       @TWinControl.Focused);
  RegisterMethod(TWinControl,
       'procedure GetTabOrderList(List: TList); dynamic;',
       @TWinControl.GetTabOrderList);
  RegisterMethod(TWinControl,
       'function HandleAllocated: Boolean;',
       @TWinControl.HandleAllocated);
  RegisterMethod(TWinControl,
       'procedure HandleNeeded;',
       @TWinControl.HandleNeeded);