imp_controls.pas

Delphi脚本控件

function TWinControl_GetShowing:Boolean;
begin
  result := TWinControl(_Self).Showing;
end;
function TWinControl_GetTabOrder:TTabOrder;
begin
  result := TWinControl(_Self).TabOrder;
end;
procedure TWinControl_PutTabOrder(const Value: TTabOrder);
begin
  TWinControl(_Self).TabOrder := Value;
end;
function TWinControl_GetTabStop:Boolean;
begin
  result := TWinControl(_Self).TabStop;
end;
procedure TWinControl_PutTabStop(const Value: Boolean);
begin
  TWinControl(_Self).TabStop := Value;
end;
function TDragImageList_GetDragCursor:TCursor;
begin
  result := TDragImageList(_Self).DragCursor;
end;
procedure TDragImageList_PutDragCursor(const Value: TCursor);
begin
  TDragImageList(_Self).DragCursor := Value;
end;
function TDragImageList_GetDragging:Boolean;
begin
  result := TDragImageList(_Self).Dragging;
end;
function TDockZone_GetChildCount:Integer;
begin
  result := TDockZone(_Self).ChildCount;
end;
function TDockZone_GetHeight:Integer;
begin
  result := TDockZone(_Self).Height;
end;
function TDockZone_GetLeft:Integer;
begin
  result := TDockZone(_Self).Left;
end;
function TDockZone_GetLimitBegin:Integer;
begin
  result := TDockZone(_Self).LimitBegin;
end;
function TDockZone_GetLimitSize:Integer;
begin
  result := TDockZone(_Self).LimitSize;
end;
function TDockZone_GetTop:Integer;
begin
  result := TDockZone(_Self).Top;
end;
function TDockZone_GetWidth:Integer;
begin
  result := TDockZone(_Self).Width;
end;
function TMouse_GetCapture:HWND;
begin
  result := TMouse(_Self).Capture;
end;
procedure TMouse_PutCapture(const Value: HWND);
begin
  TMouse(_Self).Capture := Value;
end;
function TMouse_GetCursorPos:TPoint;
begin
  result := TMouse(_Self).CursorPos;
end;
procedure TMouse_PutCursorPos(const Value: TPoint);
begin
  TMouse(_Self).CursorPos := Value;
end;
function TMouse_GetDragImmediate:Boolean;
begin
  result := TMouse(_Self).DragImmediate;
end;
procedure TMouse_PutDragImmediate(const Value: Boolean);
begin
  TMouse(_Self).DragImmediate := Value;
end;
function TMouse_GetDragThreshold:Integer;
begin
  result := TMouse(_Self).DragThreshold;
end;
procedure TMouse_PutDragThreshold(const Value: Integer);
begin
  TMouse(_Self).DragThreshold := Value;
end;
function TMouse_GetMousePresent:Boolean;
begin
  result := TMouse(_Self).MousePresent;
end;
function TMouse_GetRegWheelMessage:UINT;
begin
  result := TMouse(_Self).RegWheelMessage;
end;
function TMouse_GetWheelPresent:Boolean;
begin
  result := TMouse(_Self).WheelPresent;
end;
function TMouse_GetWheelScrollLines:Integer;
begin
  result := TMouse(_Self).WheelScrollLines;
end;
procedure RegisterIMP_controls;
var H: Integer;
begin
  H := RegisterNamespace('controls', -1);
  RegisterConstant('CM_BASE', $B000, H);
  RegisterConstant('CN_BASE', $BC00, H);
  RegisterConstant('MrNone', 0, H);
  RegisterConstant('mrOk', mrOK);
  RegisterConstant('mrCancel', mrCancel);
  RegisterConstant('mrAbort', mrAbort); 
  RegisterConstant('mrRetry', mrRetry);
  RegisterConstant('mrIgnore', mrIgnore);
  RegisterConstant('mrYes', mrYes);
  RegisterConstant('mrNo', mrNo);
  RegisterConstant('mrAll', mrAll);
  RegisterConstant('mrNoToAll', mrNoToAll);
  RegisterConstant('mrYesToAll', mrYesToAll);
 

  RegisterRTTIType(TypeInfo(TDragMessage));
  RegisterRTTIType(TypeInfo(TAlign));
  // Begin of class TDragObject
  RegisterClassType(TDragObject, H);
  RegisterMethod(TDragObject,
       'procedure Assign(Source: TDragObject); virtual;',
       @TDragObject.Assign);
  RegisterMethod(TDragObject,
       'function GetName: string; virtual;',
       @TDragObject.GetName);
  RegisterMethod(TDragObject,
       'procedure HideDragImage; virtual;',
       @TDragObject.HideDragImage);
  RegisterMethod(TDragObject,
       'function Instance: THandle; virtual;',
       @TDragObject.Instance);
  RegisterMethod(TDragObject,
       'procedure ShowDragImage; virtual;',
       @TDragObject.ShowDragImage);
  RegisterMethod(TDragObject,
       'function TDragObject_GetCancelling:Boolean;',
       @TDragObject_GetCancelling, Fake);
  RegisterMethod(TDragObject,
       'procedure TDragObject_PutCancelling(const Value: Boolean);',
       @TDragObject_PutCancelling, Fake);
  RegisterProperty(TDragObject,
       'property Cancelling:Boolean read TDragObject_GetCancelling write TDragObject_PutCancelling;');
  RegisterMethod(TDragObject,
       'function TDragObject_GetDragHandle:HWND;',
       @TDragObject_GetDragHandle, Fake);
  RegisterMethod(TDragObject,
       'procedure TDragObject_PutDragHandle(const Value: HWND);',
       @TDragObject_PutDragHandle, Fake);
  RegisterProperty(TDragObject,
       'property DragHandle:HWND read TDragObject_GetDragHandle write TDragObject_PutDragHandle;');
  RegisterMethod(TDragObject,
       'function TDragObject_GetDragPos:TPoint;',
       @TDragObject_GetDragPos, Fake);
  RegisterMethod(TDragObject,
       'procedure TDragObject_PutDragPos(const Value: TPoint);',
       @TDragObject_PutDragPos, Fake);
  RegisterProperty(TDragObject,
       'property DragPos:TPoint read TDragObject_GetDragPos write TDragObject_PutDragPos;');
  RegisterMethod(TDragObject,
       'function TDragObject_GetDragTargetPos:TPoint;',
       @TDragObject_GetDragTargetPos, Fake);
  RegisterMethod(TDragObject,
       'procedure TDragObject_PutDragTargetPos(const Value: TPoint);',
       @TDragObject_PutDragTargetPos, Fake);
  RegisterProperty(TDragObject,
       'property DragTargetPos:TPoint read TDragObject_GetDragTargetPos write TDragObject_PutDragTargetPos;');
  RegisterMethod(TDragObject,
       'function TDragObject_GetDragTarget:Pointer;',
       @TDragObject_GetDragTarget, Fake);
  RegisterMethod(TDragObject,
       'procedure TDragObject_PutDragTarget(const Value: Pointer);',
       @TDragObject_PutDragTarget, Fake);
  RegisterProperty(TDragObject,
       'property DragTarget:Pointer read TDragObject_GetDragTarget write TDragObject_PutDragTarget;');
  RegisterMethod(TDragObject,
       'function TDragObject_GetMouseDeltaX:Double;',
       @TDragObject_GetMouseDeltaX, Fake);
  RegisterProperty(TDragObject,
       'property MouseDeltaX:Double read TDragObject_GetMouseDeltaX;');
  RegisterMethod(TDragObject,
       'function TDragObject_GetMouseDeltaY:Double;',
       @TDragObject_GetMouseDeltaY, Fake);
  RegisterProperty(TDragObject,
       'property MouseDeltaY:Double read TDragObject_GetMouseDeltaY;');
  RegisterMethod(TDragObject,
       'constructor Create;',
       @TDragObject.Create);
  // End of class TDragObject
  // Begin of class TBaseDragControlObject
  RegisterClassType(TBaseDragControlObject, H);
  RegisterMethod(TBaseDragControlObject,
       'constructor Create(AControl: TControl); virtual;',
       @TBaseDragControlObject.Create);
  RegisterMethod(TBaseDragControlObject,
       'procedure Assign(Source: TDragObject); override;',
       @TBaseDragControlObject.Assign);
  RegisterMethod(TBaseDragControlObject,
       'function TBaseDragControlObject_GetControl:TControl;',
       @TBaseDragControlObject_GetControl, Fake);
  RegisterMethod(TBaseDragControlObject,
       'procedure TBaseDragControlObject_PutControl(const Value: TControl);',
       @TBaseDragControlObject_PutControl, Fake);
  RegisterProperty(TBaseDragControlObject,
       'property Control:TControl read TBaseDragControlObject_GetControl write TBaseDragControlObject_PutControl;');
  // End of class TBaseDragControlObject
  // Begin of class TDragControlObject
  RegisterClassType(TDragControlObject, H);
  RegisterMethod(TDragControlObject,
       'procedure HideDragImage; override;',
       @TDragControlObject.HideDragImage);
  RegisterMethod(TDragControlObject,
       'procedure ShowDragImage; override;',
       @TDragControlObject.ShowDragImage);
  RegisterMethod(TDragControlObject,
       'constructor Create(AControl: TControl); virtual;',
       @TDragControlObject.Create);
  // End of class TDragControlObject
  // Begin of class TDragDockObject
  RegisterClassType(TDragDockObject, H);
  RegisterMethod(TDragDockObject,
       'constructor Create(AControl: TControl); override;',
       @TDragDockObject.Create);
  RegisterMethod(TDragDockObject,
       'destructor Destroy; override;',
       @TDragDockObject.Destroy);
  RegisterMethod(TDragDockObject,
       'procedure Assign(Source: TDragObject); override;',
       @TDragDockObject.Assign);
  RegisterMethod(TDragDockObject,
       'function TDragDockObject_GetBrush:TBrush;',
       @TDragDockObject_GetBrush, Fake);
  RegisterMethod(TDragDockObject,
       'procedure TDragDockObject_PutBrush(const Value: TBrush);',
       @TDragDockObject_PutBrush, Fake);
  RegisterProperty(TDragDockObject,
       'property Brush:TBrush read TDragDockObject_GetBrush write TDragDockObject_PutBrush;');
  RegisterMethod(TDragDockObject,
       'function TDragDockObject_GetDockRect:TRect;',
       @TDragDockObject_GetDockRect, Fake);
  RegisterMethod(TDragDockObject,
       'procedure TDragDockObject_PutDockRect(const Value: TRect);',
       @TDragDockObject_PutDockRect, Fake);
  RegisterProperty(TDragDockObject,
       'property DockRect:TRect read TDragDockObject_GetDockRect write TDragDockObject_PutDockRect;');
  RegisterMethod(TDragDockObject,
       'function TDragDockObject_GetDropAlign:TAlign;',
       @TDragDockObject_GetDropAlign, Fake);
  RegisterProperty(TDragDockObject,
       'property DropAlign:TAlign read TDragDockObject_GetDropAlign;');
  RegisterMethod(TDragDockObject,
       'function TDragDockObject_GetDropOnControl:TControl;',
       @TDragDockObject_GetDropOnControl, Fake);
  RegisterProperty(TDragDockObject,
       'property DropOnControl:TControl read TDragDockObject_GetDropOnControl;');
  RegisterMethod(TDragDockObject,
       'function TDragDockObject_GetFloating:Boolean;',
       @TDragDockObject_GetFloating, Fake);
  RegisterMethod(TDragDockObject,
       'procedure TDragDockObject_PutFloating(const Value: Boolean);',
       @TDragDockObject_PutFloating, Fake);
  RegisterProperty(TDragDockObject,
       'property Floating:Boolean read TDragDockObject_GetFloating write TDragDockObject_PutFloating;');
  RegisterMethod(TDragDockObject,
       'function TDragDockObject_GetFrameWidth:Integer;',
       @TDragDockObject_GetFrameWidth, Fake);
  RegisterProperty(TDragDockObject,
       'property FrameWidth:Integer read TDragDockObject_GetFrameWidth;');
  // End of class TDragDockObject
  // Begin of class TControlCanvas
  RegisterClassType(TControlCanvas, H);
  RegisterMethod(TControlCanvas,
       'destructor Destroy; override;',
       @TControlCanvas.Destroy);
  RegisterMethod(TControlCanvas,
       'procedure FreeHandle;',
       @TControlCanvas.FreeHandle);
  RegisterMethod(TControlCanvas,
       'procedure UpdateTextFlags;',
       @TControlCanvas.UpdateTextFlags);
  RegisterMethod(TControlCanvas,
       'function TControlCanvas_GetControl:TControl;',
       @TControlCanvas_GetControl, Fake);
  RegisterMethod(TControlCanvas,
       'procedure TControlCanvas_PutControl(const Value: TControl);',
       @TControlCanvas_PutControl, Fake);
  RegisterProperty(TControlCanvas,
       'property Control:TControl read TControlCanvas_GetControl write TControlCanvas_PutControl;');
  // CONSTRUCTOR IS NOT FOUND!!!
  // End of class TControlCanvas
  // Begin of class TControlActionLink
  RegisterClassType(TControlActionLink, H);
  // CONSTRUCTOR IS NOT FOUND!!!
  // End of class TControlActionLink
  RegisterRTTIType(TypeInfo(TMouseButton));
  RegisterRTTIType(TypeInfo(TDragMode));
  RegisterRTTIType(TypeInfo(TDragState));
  RegisterRTTIType(TypeInfo(TDragKind));
  RegisterRTTIType(TypeInfo(TAnchorKind));
  // Begin of class TSizeConstraints
  RegisterClassType(TSizeConstraints, H);
  RegisterMethod(TSizeConstraints,
       'constructor Create(Control: TControl); virtual;',
       @TSizeConstraints.Create);
  // End of class TSizeConstraints
  RegisterRTTIType(TypeInfo(TDockOrientation));
  // Begin of class TControl
  RegisterClassType(TControl, H);
  RegisterMethod(TControl,
       'constructor Create(AOwner: TComponent); override;',
       @TControl.Create);
  RegisterMethod(TControl,
       'destructor Destroy; override;',
       @TControl.Destroy);
  RegisterMethod(TControl,
       'procedure BringToFront;',
       @TControl.BringToFront);
  RegisterMethod(TControl,
       'function ClientToScreen(const Point: TPoint): TPoint;',
       @TControl.ClientToScreen);
  RegisterMethod(TControl,
       'procedure Dock(NewDockSite: TWinControl; ARect: TRect); dynamic;',
       @TControl.Dock);
  RegisterMethod(TControl,
       'procedure DefaultHandler(var Message); override;',
       @TControl.DefaultHandler);
  RegisterMethod(TControl,
       'function Dragging: Boolean;',
       @TControl.Dragging);
  RegisterMethod(TControl,
       'procedure DragDrop(Source: TObject; X, Y: Integer); dynamic;',