imp_controls.pas

Delphi脚本控件

  RegisterMethod(TWinControl,
       'procedure InsertControl(AControl: TControl);',
       @TWinControl.InsertControl);
  RegisterMethod(TWinControl,
       'procedure Invalidate; override;',
       @TWinControl.Invalidate);
  RegisterMethod(TWinControl,
       'procedure MouseWheelHandler(var Message: TMessage); dynamic;',
       @TWinControl.MouseWheelHandler);
  RegisterMethod(TWinControl,
       'procedure PaintTo(DC: HDC; X, Y: Integer);',
       @TWinControl.PaintTo);
  RegisterMethod(TWinControl,
       'procedure RemoveControl(AControl: TControl);',
       @TWinControl.RemoveControl);
  RegisterMethod(TWinControl,
       'procedure Realign;',
       @TWinControl.Realign);
  RegisterMethod(TWinControl,
       'procedure Repaint; override;',
       @TWinControl.Repaint);
  RegisterMethod(TWinControl,
       'procedure ScaleBy(M, D: Integer);',
       @TWinControl.ScaleBy);
  RegisterMethod(TWinControl,
       'procedure ScrollBy(DeltaX, DeltaY: Integer);',
       @TWinControl.ScrollBy);
  RegisterMethod(TWinControl,
       'procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;',
       @TWinControl.SetBounds);
  RegisterMethod(TWinControl,
       'procedure SetFocus; virtual;',
       @TWinControl.SetFocus);
  RegisterMethod(TWinControl,
       'procedure Update; override;',
       @TWinControl.Update);
  RegisterMethod(TWinControl,
       'procedure UpdateControlState;',
       @TWinControl.UpdateControlState);
  RegisterMethod(TWinControl,
       'function TWinControl_GetVisibleDockClientCount:Integer;',
       @TWinControl_GetVisibleDockClientCount, Fake);
  RegisterProperty(TWinControl,
       'property VisibleDockClientCount:Integer read TWinControl_GetVisibleDockClientCount;');
  RegisterMethod(TWinControl,
       'function TWinControl_GetBrush:TBrush;',
       @TWinControl_GetBrush, Fake);
  RegisterProperty(TWinControl,
       'property Brush:TBrush read TWinControl_GetBrush;');
  RegisterMethod(TWinControl,
       'function TWinControl_GetControls(Index: Integer):TControl;',
       @TWinControl_GetControls, Fake);
  RegisterProperty(TWinControl,
       'property Controls[Index: Integer]:TControl read TWinControl_GetControls;');
  RegisterMethod(TWinControl,
       'function TWinControl_GetControlCount:Integer;',
       @TWinControl_GetControlCount, Fake);
  RegisterProperty(TWinControl,
       'property ControlCount:Integer read TWinControl_GetControlCount;');
  RegisterMethod(TWinControl,
       'function TWinControl_GetHandle:HWnd;',
       @TWinControl_GetHandle, Fake);
  RegisterProperty(TWinControl,
       'property Handle:HWnd read TWinControl_GetHandle;');
  RegisterMethod(TWinControl,
       'function TWinControl_GetParentWindow:HWnd;',
       @TWinControl_GetParentWindow, Fake);
  RegisterMethod(TWinControl,
       'procedure TWinControl_PutParentWindow(const Value: HWnd);',
       @TWinControl_PutParentWindow, Fake);
  RegisterProperty(TWinControl,
       'property ParentWindow:HWnd read TWinControl_GetParentWindow write TWinControl_PutParentWindow;');
  RegisterMethod(TWinControl,
       'function TWinControl_GetShowing:Boolean;',
       @TWinControl_GetShowing, Fake);
  RegisterProperty(TWinControl,
       'property Showing:Boolean read TWinControl_GetShowing;');
  RegisterMethod(TWinControl,
       'function TWinControl_GetTabOrder:TTabOrder;',
       @TWinControl_GetTabOrder, Fake);
  RegisterMethod(TWinControl,
       'procedure TWinControl_PutTabOrder(const Value: TTabOrder);',
       @TWinControl_PutTabOrder, Fake);
  RegisterProperty(TWinControl,
       'property TabOrder:TTabOrder read TWinControl_GetTabOrder write TWinControl_PutTabOrder;');
  RegisterMethod(TWinControl,
       'function TWinControl_GetTabStop:Boolean;',
       @TWinControl_GetTabStop, Fake);
  RegisterMethod(TWinControl,
       'procedure TWinControl_PutTabStop(const Value: Boolean);',
       @TWinControl_PutTabStop, Fake);
  RegisterProperty(TWinControl,
       'property TabStop:Boolean read TWinControl_GetTabStop write TWinControl_PutTabStop;');
  // End of class TWinControl
  // Begin of class TGraphicControl
  RegisterClassType(TGraphicControl, H);
  RegisterMethod(TGraphicControl,
       'constructor Create(AOwner: TComponent); override;',
       @TGraphicControl.Create);
  RegisterMethod(TGraphicControl,
       'destructor Destroy; override;',
       @TGraphicControl.Destroy);
  // End of class TGraphicControl
  // Begin of class TCustomControl
  RegisterClassType(TCustomControl, H);
  RegisterMethod(TCustomControl,
       'constructor Create(AOwner: TComponent); override;',
       @TCustomControl.Create);
  RegisterMethod(TCustomControl,
       'destructor Destroy; override;',
       @TCustomControl.Destroy);
  // End of class TCustomControl
  // Begin of class THintWindow
  RegisterClassType(THintWindow, H);
  RegisterMethod(THintWindow,
       'constructor Create(AOwner: TComponent); override;',
       @THintWindow.Create);
  RegisterMethod(THintWindow,
       'procedure ActivateHint(Rect: TRect; const AHint: string); virtual;',
       @THintWindow.ActivateHint);
  RegisterMethod(THintWindow,
       'procedure ActivateHintData(Rect: TRect; const AHint: string; AData: Pointer); virtual;',
       @THintWindow.ActivateHintData);
  RegisterMethod(THintWindow,
       'function CalcHintRect(MaxWidth: Integer; const AHint: string;      AData: Pointer): TRect; virtual;',
       @THintWindow.CalcHintRect);
  RegisterMethod(THintWindow,
       'function IsHintMsg(var Msg: TMsg): Boolean; virtual;',
       @THintWindow.IsHintMsg);
  RegisterMethod(THintWindow,
       'procedure ReleaseHandle;',
       @THintWindow.ReleaseHandle);
  // End of class THintWindow
  // Begin of class TDragImageList
  RegisterClassType(TDragImageList, H);
  RegisterMethod(TDragImageList,
       'function BeginDrag(Window: HWND; X, Y: Integer): Boolean;',
       @TDragImageList.BeginDrag);
  RegisterMethod(TDragImageList,
       'function DragLock(Window: HWND; XPos, YPos: Integer): Boolean;',
       @TDragImageList.DragLock);
  RegisterMethod(TDragImageList,
       'function DragMove(X, Y: Integer): Boolean;',
       @TDragImageList.DragMove);
  RegisterMethod(TDragImageList,
       'procedure DragUnlock;',
       @TDragImageList.DragUnlock);
  RegisterMethod(TDragImageList,
       'function EndDrag: Boolean;',
       @TDragImageList.EndDrag);
  RegisterMethod(TDragImageList,
       'function GetHotSpot: TPoint; override;',
       @TDragImageList.GetHotSpot);
  RegisterMethod(TDragImageList,
       'procedure HideDragImage;',
       @TDragImageList.HideDragImage);
  RegisterMethod(TDragImageList,
       'function SetDragImage(Index, HotSpotX, HotSpotY: Integer): Boolean;',
       @TDragImageList.SetDragImage);
  RegisterMethod(TDragImageList,
       'procedure ShowDragImage;',
       @TDragImageList.ShowDragImage);
  RegisterMethod(TDragImageList,
       'function TDragImageList_GetDragCursor:TCursor;',
       @TDragImageList_GetDragCursor, Fake);
  RegisterMethod(TDragImageList,
       'procedure TDragImageList_PutDragCursor(const Value: TCursor);',
       @TDragImageList_PutDragCursor, Fake);
  RegisterProperty(TDragImageList,
       'property DragCursor:TCursor read TDragImageList_GetDragCursor write TDragImageList_PutDragCursor;');
  RegisterMethod(TDragImageList,
       'function TDragImageList_GetDragging:Boolean;',
       @TDragImageList_GetDragging, Fake);
  RegisterProperty(TDragImageList,
       'property Dragging:Boolean read TDragImageList_GetDragging;');
  // CONSTRUCTOR IS NOT FOUND!!!
  // End of class TDragImageList
  // Begin of class TImageList
  RegisterClassType(TImageList, H);
  // CONSTRUCTOR IS NOT FOUND!!!
  // End of class TImageList
  // Begin of class TDockZone
  RegisterClassType(TDockZone, H);
  RegisterMethod(TDockZone,
       'constructor Create(Tree: TDockTree);',
       @TDockZone.Create);
  RegisterMethod(TDockZone,
       'procedure ResetChildren;',
       @TDockZone.ResetChildren);
  RegisterMethod(TDockZone,
       'procedure Update;',
       @TDockZone.Update);
  RegisterMethod(TDockZone,
       'function TDockZone_GetChildCount:Integer;',
       @TDockZone_GetChildCount, Fake);
  RegisterProperty(TDockZone,
       'property ChildCount:Integer read TDockZone_GetChildCount;');
  RegisterMethod(TDockZone,
       'function TDockZone_GetHeight:Integer;',
       @TDockZone_GetHeight, Fake);
  RegisterProperty(TDockZone,
       'property Height:Integer read TDockZone_GetHeight;');
  RegisterMethod(TDockZone,
       'function TDockZone_GetLeft:Integer;',
       @TDockZone_GetLeft, Fake);
  RegisterProperty(TDockZone,
       'property Left:Integer read TDockZone_GetLeft;');
  RegisterMethod(TDockZone,
       'function TDockZone_GetLimitBegin:Integer;',
       @TDockZone_GetLimitBegin, Fake);
  RegisterProperty(TDockZone,
       'property LimitBegin:Integer read TDockZone_GetLimitBegin;');
  RegisterMethod(TDockZone,
       'function TDockZone_GetLimitSize:Integer;',
       @TDockZone_GetLimitSize, Fake);
  RegisterProperty(TDockZone,
       'property LimitSize:Integer read TDockZone_GetLimitSize;');
  RegisterMethod(TDockZone,
       'function TDockZone_GetTop:Integer;',
       @TDockZone_GetTop, Fake);
  RegisterProperty(TDockZone,
       'property Top:Integer read TDockZone_GetTop;');
  RegisterMethod(TDockZone,
       'function TDockZone_GetWidth:Integer;',
       @TDockZone_GetWidth, Fake);
  RegisterProperty(TDockZone,
       'property Width:Integer read TDockZone_GetWidth;');
  // End of class TDockZone
  // Begin of class TDockTree
  RegisterClassType(TDockTree, H);
  RegisterMethod(TDockTree,
       'constructor Create(DockSite: TWinControl); virtual;',
       @TDockTree.Create);
  RegisterMethod(TDockTree,
       'destructor Destroy; override;',
       @TDockTree.Destroy);
  RegisterMethod(TDockTree,
       'procedure PaintSite(DC: HDC); virtual;',
       @TDockTree.PaintSite);
  // End of class TDockTree
  // Begin of class TMouse
  RegisterClassType(TMouse, H);
  RegisterMethod(TMouse,
       'constructor Create;',
       @TMouse.Create);
  RegisterMethod(TMouse,
       'destructor Destroy; override;',
       @TMouse.Destroy);
  RegisterMethod(TMouse,
       'procedure SettingChanged(Setting: Integer);',
       @TMouse.SettingChanged);
  RegisterMethod(TMouse,
       'function TMouse_GetCapture:HWND;',
       @TMouse_GetCapture, Fake);
  RegisterMethod(TMouse,
       'procedure TMouse_PutCapture(const Value: HWND);',
       @TMouse_PutCapture, Fake);
  RegisterProperty(TMouse,
       'property Capture:HWND read TMouse_GetCapture write TMouse_PutCapture;');
  RegisterMethod(TMouse,
       'function TMouse_GetCursorPos:TPoint;',
       @TMouse_GetCursorPos, Fake);
  RegisterMethod(TMouse,
       'procedure TMouse_PutCursorPos(const Value: TPoint);',
       @TMouse_PutCursorPos, Fake);
  RegisterProperty(TMouse,
       'property CursorPos:TPoint read TMouse_GetCursorPos write TMouse_PutCursorPos;');
  RegisterMethod(TMouse,
       'function TMouse_GetDragImmediate:Boolean;',
       @TMouse_GetDragImmediate, Fake);
  RegisterMethod(TMouse,
       'procedure TMouse_PutDragImmediate(const Value: Boolean);',
       @TMouse_PutDragImmediate, Fake);
  RegisterProperty(TMouse,
       'property DragImmediate:Boolean read TMouse_GetDragImmediate write TMouse_PutDragImmediate;');
  RegisterMethod(TMouse,
       'function TMouse_GetDragThreshold:Integer;',
       @TMouse_GetDragThreshold, Fake);
  RegisterMethod(TMouse,
       'procedure TMouse_PutDragThreshold(const Value: Integer);',
       @TMouse_PutDragThreshold, Fake);
  RegisterProperty(TMouse,
       'property DragThreshold:Integer read TMouse_GetDragThreshold write TMouse_PutDragThreshold;');
  RegisterMethod(TMouse,
       'function TMouse_GetMousePresent:Boolean;',
       @TMouse_GetMousePresent, Fake);
  RegisterProperty(TMouse,
       'property MousePresent:Boolean read TMouse_GetMousePresent;');
  RegisterMethod(TMouse,
       'function TMouse_GetRegWheelMessage:UINT;',
       @TMouse_GetRegWheelMessage, Fake);
  RegisterProperty(TMouse,
       'property RegWheelMessage:UINT read TMouse_GetRegWheelMessage;');
  RegisterMethod(TMouse,
       'function TMouse_GetWheelPresent:Boolean;',
       @TMouse_GetWheelPresent, Fake);
  RegisterProperty(TMouse,
       'property WheelPresent:Boolean read TMouse_GetWheelPresent;');
  RegisterMethod(TMouse,
       'function TMouse_GetWheelScrollLines:Integer;',
       @TMouse_GetWheelScrollLines, Fake);
  RegisterProperty(TMouse,
       'property WheelScrollLines:Integer read TMouse_GetWheelScrollLines;');
  // End of class TMouse
  RegisterRoutine('function IsDragObject(Sender: TObject): Boolean;', @IsDragObject, H);
  RegisterRoutine('function FindControl(Handle: HWnd): TWinControl;', @FindControl, H);
  RegisterRoutine('function FindVCLWindow(const Pos: TPoint): TWinControl;', @FindVCLWindow, H);
  RegisterRoutine('function FindDragTarget(const Pos: TPoint; AllowDisabled: Boolean): TControl;', @FindDragTarget, H);
  RegisterRoutine('function GetCaptureControl: TControl;', @GetCaptureControl, H);
  RegisterRoutine('procedure SetCaptureControl(Control: TControl);', @SetCaptureControl, H);
  RegisterRoutine('procedure CancelDrag;', @CancelDrag, H);
  RegisterRoutine('function CursorToString(Cursor: TCursor): string;', @CursorToString, H);
  RegisterRoutine('function StringToCursor(const S: string): TCursor;', @StringToCursor, H);
  RegisterRoutine('procedure GetCursorValues(Proc: TGetStrProc);', @GetCursorValues, H);
  RegisterRoutine('function CursorToIdent(Cursor: Longint; var Ident: string): Boolean;', @CursorToIdent, H);
  RegisterRoutine('function IdentToCursor(const Ident: string; var Cursor: Longint): Boolean;', @IdentToCursor, H);
  RegisterRoutine('function GetShortHint(const Hint: string): string;', @GetShortHint, H);
  RegisterRoutine('function GetLongHint(const Hint: string): string;', @GetLongHint, H);
  RegisterRoutine('function InitWndProc(HWindow: HWnd; Message, WParam: Longint;  LParam: Longint): Longint; stdcall;', @InitWndProc, H);
  RegisterConstant('CTL3D_ALL', $FFFF, H);
  RegisterRoutine('procedure ChangeBiDiModeAlignment(var Alignment: TAlignment);', @ChangeBiDiModeAlignment, H);
  RegisterRoutine('function SendAppMessage(Msg: Cardinal; WParam, LParam: Longint): Longint;', @SendAppMessage, H);
  RegisterRoutine('procedure MoveWindowOrg(DC: HDC; DX, DY: Integer);', @MoveWindowOrg, H);
  RegisterRoutine('procedure SetImeMode(hWnd: HWND; Mode: TImeMode);', @SetImeMode, H);
  RegisterRoutine('procedure SetImeName(Name: TImeName);', @SetImeName, H);
  RegisterRoutine('function Win32NLSEnableIME(hWnd: HWND; Enable: Boolean): Boolean;', @Win32NLSEnableIME, H);
  RegisterRoutine('function Imm32GetContext(hWnd: HWND): HIMC;', @Imm32GetContext, H);
  RegisterRoutine('function Imm32ReleaseContext(hWnd: HWND; hImc: HIMC): Boolean;', @Imm32ReleaseContext, H);
  RegisterRoutine('function Imm32GetConversionStatus(hImc: HIMC; var Conversion, Sentence: DWORD): Boolean;', @Imm32GetConversionStatus, H);
  RegisterRoutine('function Imm32SetConversionStatus(hImc: HIMC; Conversion, Sentence: DWORD): Boolean;', @Imm32SetConversionStatus, H);
  RegisterRoutine('function Imm32SetOpenStatus(hImc: HIMC; fOpen: Boolean): Boolean;', @Imm32SetOpenStatus, H);
  RegisterRoutine('function Imm32SetCompositionWindow(hImc: HIMC; lpCompForm: PCOMPOSITIONFORM): Boolean;', @Imm32SetCompositionWindow, H);
  RegisterRoutine('function Imm32SetCompositionFont(hImc: HIMC; lpLogfont: PLOGFONTA): Boolean;', @Imm32SetCompositionFont, H);
  RegisterRoutine('function Imm32GetCompositionString(hImc: HIMC; dWord1: DWORD; lpBuf: pointer; dwBufLen: DWORD): Longint;', @Imm32GetCompositionString, H);
  RegisterRoutine('function Imm32IsIME(hKl: HKL): Boolean;', @Imm32IsIME, H);
  RegisterRoutine('function Imm32NotifyIME(hImc: HIMC; dwAction, dwIndex, dwValue: DWORD): Boolean;', @Imm32NotifyIME, H);
end;
initialization
  RegisterIMP_controls;
end.