imp_controls.pas

Delphi脚本控件

unit IMP_controls;
interface
uses
  Messages,
  Windows,
  MultiMon,
  Classes,
  Sysutils,
  Graphics,
  Menus,
  CommCtrl,
  Imm,
  ImgList,
  ActnList,
  controls,
  PaxScripter;
procedure RegisterIMP_controls;
implementation
function TDragObject_GetCancelling:Boolean;
begin
  result := TDragObject(_Self).Cancelling;
end;
procedure TDragObject_PutCancelling(const Value: Boolean);
begin
  TDragObject(_Self).Cancelling := Value;
end;
function TDragObject_GetDragHandle:HWND;
begin
  result := TDragObject(_Self).DragHandle;
end;
procedure TDragObject_PutDragHandle(const Value: HWND);
begin
  TDragObject(_Self).DragHandle := Value;
end;
function TDragObject_GetDragPos:TPoint;
begin
  result := TDragObject(_Self).DragPos;
end;
procedure TDragObject_PutDragPos(const Value: TPoint);
begin
  TDragObject(_Self).DragPos := Value;
end;
function TDragObject_GetDragTargetPos:TPoint;
begin
  result := TDragObject(_Self).DragTargetPos;
end;
procedure TDragObject_PutDragTargetPos(const Value: TPoint);
begin
  TDragObject(_Self).DragTargetPos := Value;
end;
function TDragObject_GetDragTarget:Pointer;
begin
  result := TDragObject(_Self).DragTarget;
end;
procedure TDragObject_PutDragTarget(const Value: Pointer);
begin
  TDragObject(_Self).DragTarget := Value;
end;
function TDragObject_GetMouseDeltaX:Double;
begin
  result := TDragObject(_Self).MouseDeltaX;
end;
function TDragObject_GetMouseDeltaY:Double;
begin
  result := TDragObject(_Self).MouseDeltaY;
end;
function TBaseDragControlObject_GetControl:TControl;
begin
  result := TBaseDragControlObject(_Self).Control;
end;
procedure TBaseDragControlObject_PutControl(const Value: TControl);
begin
  TBaseDragControlObject(_Self).Control := Value;
end;
function TDragDockObject_GetBrush:TBrush;
begin
  result := TDragDockObject(_Self).Brush;
end;
procedure TDragDockObject_PutBrush(const Value: TBrush);
begin
  TDragDockObject(_Self).Brush := Value;
end;
function TDragDockObject_GetDockRect:TRect;
begin
  result := TDragDockObject(_Self).DockRect;
end;
procedure TDragDockObject_PutDockRect(const Value: TRect);
begin
  TDragDockObject(_Self).DockRect := Value;
end;
function TDragDockObject_GetDropAlign:TAlign;
begin
  result := TDragDockObject(_Self).DropAlign;
end;
function TDragDockObject_GetDropOnControl:TControl;
begin
  result := TDragDockObject(_Self).DropOnControl;
end;
function TDragDockObject_GetFloating:Boolean;
begin
  result := TDragDockObject(_Self).Floating;
end;
procedure TDragDockObject_PutFloating(const Value: Boolean);
begin
  TDragDockObject(_Self).Floating := Value;
end;
function TDragDockObject_GetFrameWidth:Integer;
begin
  result := TDragDockObject(_Self).FrameWidth;
end;
function TControlCanvas_GetControl:TControl;
begin
  result := TControlCanvas(_Self).Control;
end;
procedure TControlCanvas_PutControl(const Value: TControl);
begin
  TControlCanvas(_Self).Control := Value;
end;
function TControl_GetEnabled:Boolean;
begin
  result := TControl(_Self).Enabled;
end;
procedure TControl_PutEnabled(const Value: Boolean);
begin
  TControl(_Self).Enabled := Value;
end;
function TControl_GetAction:TBasicAction;
begin
  result := TControl(_Self).Action;
end;
procedure TControl_PutAction(const Value: TBasicAction);
begin
  TControl(_Self).Action := Value;
end;
function TControl_GetAlign:TAlign;
begin
  result := TControl(_Self).Align;
end;
procedure TControl_PutAlign(const Value: TAlign);
begin
  TControl(_Self).Align := Value;
end;
function TControl_GetBiDiMode:TBiDiMode;
begin
  result := TControl(_Self).BiDiMode;
end;
procedure TControl_PutBiDiMode(const Value: TBiDiMode);
begin
  TControl(_Self).BiDiMode := Value;
end;
function TControl_GetBoundsRect:TRect;
begin
  result := TControl(_Self).BoundsRect;
end;
procedure TControl_PutBoundsRect(const Value: TRect);
begin
  TControl(_Self).BoundsRect := Value;
end;
function TControl_GetClientHeight:Integer;
begin
  result := TControl(_Self).ClientHeight;
end;
procedure TControl_PutClientHeight(const Value: Integer);
begin
  TControl(_Self).ClientHeight := Value;
end;
function TControl_GetClientOrigin:TPoint;
begin
  result := TControl(_Self).ClientOrigin;
end;
function TControl_GetClientRect:TRect;
begin
  result := TControl(_Self).ClientRect;
end;
function TControl_GetClientWidth:Integer;
begin
  result := TControl(_Self).ClientWidth;
end;
procedure TControl_PutClientWidth(const Value: Integer);
begin
  TControl(_Self).ClientWidth := Value;
end;
function TControl_GetConstraints:TSizeConstraints;
begin
  result := TControl(_Self).Constraints;
end;
procedure TControl_PutConstraints(const Value: TSizeConstraints);
begin
  TControl(_Self).Constraints := Value;
end;
function TControl_GetControlState:TControlState;
begin
  result := TControl(_Self).ControlState;
end;
procedure TControl_PutControlState(const Value: TControlState);
begin
  TControl(_Self).ControlState := Value;
end;
function TControl_GetControlStyle:TControlStyle;
begin
  result := TControl(_Self).ControlStyle;
end;
procedure TControl_PutControlStyle(const Value: TControlStyle);
begin
  TControl(_Self).ControlStyle := Value;
end;
function TControl_GetDockOrientation:TDockOrientation;
begin
  result := TControl(_Self).DockOrientation;
end;
procedure TControl_PutDockOrientation(const Value: TDockOrientation);
begin
  TControl(_Self).DockOrientation := Value;
end;
function TControl_GetFloating:Boolean;
begin
  result := TControl(_Self).Floating;
end;
function TControl_GetFloatingDockSiteClass:TWinControlClass;
begin
  result := TControl(_Self).FloatingDockSiteClass;
end;
procedure TControl_PutFloatingDockSiteClass(const Value: TWinControlClass);
begin
  TControl(_Self).FloatingDockSiteClass := Value;
end;
function TControl_GetHostDockSite:TWinControl;
begin
  result := TControl(_Self).HostDockSite;
end;
procedure TControl_PutHostDockSite(const Value: TWinControl);
begin
  TControl(_Self).HostDockSite := Value;
end;
function TControl_GetLRDockWidth:Integer;
begin
  result := TControl(_Self).LRDockWidth;
end;
procedure TControl_PutLRDockWidth(const Value: Integer);
begin
  TControl(_Self).LRDockWidth := Value;
end;
function TControl_GetParent:TWinControl;
begin
  result := TControl(_Self).Parent;
end;
procedure TControl_PutParent(const Value: TWinControl);
begin
  TControl(_Self).Parent := Value;
end;
function TControl_GetShowHint:Boolean;
begin
  result := TControl(_Self).ShowHint;
end;
procedure TControl_PutShowHint(const Value: Boolean);
begin
  TControl(_Self).ShowHint := Value;
end;
function TControl_GetTBDockHeight:Integer;
begin
  result := TControl(_Self).TBDockHeight;
end;
procedure TControl_PutTBDockHeight(const Value: Integer);
begin
  TControl(_Self).TBDockHeight := Value;
end;
function TControl_GetUndockHeight:Integer;
begin
  result := TControl(_Self).UndockHeight;
end;
procedure TControl_PutUndockHeight(const Value: Integer);
begin
  TControl(_Self).UndockHeight := Value;
end;
function TControl_GetUndockWidth:Integer;
begin
  result := TControl(_Self).UndockWidth;
end;
procedure TControl_PutUndockWidth(const Value: Integer);
begin
  TControl(_Self).UndockWidth := Value;
end;
function TControl_GetVisible:Boolean;
begin
  result := TControl(_Self).Visible;
end;
procedure TControl_PutVisible(const Value: Boolean);
begin
  TControl(_Self).Visible := Value;
end;
function TControl_GetWindowProc:TWndMethod;
begin
  result := TControl(_Self).WindowProc;
end;
procedure TControl_PutWindowProc(const Value: TWndMethod);
begin
  TControl(_Self).WindowProc := Value;
end;
function TWinControl_GetDockClientCount:Integer;
begin
  result := TWinControl(_Self).DockClientCount;
end;
function TWinControl_GetDockClients(Index: Integer):TControl;
begin
  result := TWinControl(_Self).DockClients[Index];
end;
function TWinControl_GetDoubleBuffered:Boolean;
begin
  result := TWinControl(_Self).DoubleBuffered;
end;
procedure TWinControl_PutDoubleBuffered(const Value: Boolean);
begin
  TWinControl(_Self).DoubleBuffered := Value;
end;
function TWinControl_GetVisibleDockClientCount:Integer;
begin
  result := TWinControl(_Self).VisibleDockClientCount;
end;
function TWinControl_GetBrush:TBrush;
begin
  result := TWinControl(_Self).Brush;
end;
function TWinControl_GetControls(Index: Integer):TControl;
begin
  result := TWinControl(_Self).Controls[Index];
end;
function TWinControl_GetControlCount:Integer;
begin
  result := TWinControl(_Self).ControlCount;
end;
function TWinControl_GetHandle:HWnd;
begin
  result := TWinControl(_Self).Handle;
end;
function TWinControl_GetParentWindow:HWnd;
begin
  result := TWinControl(_Self).ParentWindow;
end;
procedure TWinControl_PutParentWindow(const Value: HWnd);
begin
  TWinControl(_Self).ParentWindow := Value;
end;