imp_forms.pas

Delphi脚本控件

unit IMP_Forms;
interface
uses
  Messages,
  Windows,
  SysUtils,
  Classes,
  Graphics,
  Menus,
  Controls,
  Imm,
  ActnList,
  MultiMon,
  forms,
  PaxScripter;
procedure RegisterIMP_Forms;
implementation
function TControlScrollBar_GetKind:TScrollBarKind;
begin
  result := TControlScrollBar(_Self).Kind;
end;
function TControlScrollBar_GetScrollPos:Integer;
begin
  result := TControlScrollBar(_Self).ScrollPos;
end;
function TCustomForm_GetActive:Boolean;
begin
  result := TCustomForm(_Self).Active;
end;
function TCustomForm_GetActiveControl:TWinControl;
begin
  result := TCustomForm(_Self).ActiveControl;
end;
procedure TCustomForm_PutActiveControl(const Value: TWinControl);
begin
  TCustomForm(_Self).ActiveControl := Value;
end;
function TCustomForm_GetActiveOleControl:TWinControl;
begin
  result := TCustomForm(_Self).ActiveOleControl;
end;
procedure TCustomForm_PutActiveOleControl(const Value: TWinControl);
begin
  TCustomForm(_Self).ActiveOleControl := Value;
end;
function TCustomForm_GetBorderStyle:TFormBorderStyle;
begin
  result := TCustomForm(_Self).BorderStyle;
end;
procedure TCustomForm_PutBorderStyle(const Value: TFormBorderStyle);
begin
  TCustomForm(_Self).BorderStyle := Value;
end;
function TCustomForm_GetCanvas:TCanvas;
begin
  result := TCustomForm(_Self).Canvas;
end;
function TCustomForm_GetDropTarget:Boolean;
begin
  result := TCustomForm(_Self).DropTarget;
end;
procedure TCustomForm_PutDropTarget(const Value: Boolean);
begin
  TCustomForm(_Self).DropTarget := Value;
end;
function TCustomForm_GetFormState:TFormState;
begin
  result := TCustomForm(_Self).FormState;
end;
function TCustomForm_GetHelpFile:String;
begin
  result := TCustomForm(_Self).HelpFile;
end;
procedure TCustomForm_PutHelpFile(const Value: String);
begin
  TCustomForm(_Self).HelpFile := Value;
end;
function TCustomForm_GetKeyPreview:Boolean;
begin
  result := TCustomForm(_Self).KeyPreview;
end;
procedure TCustomForm_PutKeyPreview(const Value: Boolean);
begin
  TCustomForm(_Self).KeyPreview := Value;
end;
function TCustomForm_GetMenu:TMainMenu;
begin
  result := TCustomForm(_Self).Menu;
end;
procedure TCustomForm_PutMenu(const Value: TMainMenu);
begin
  TCustomForm(_Self).Menu := Value;
end;
function TCustomForm_GetModalResult:TModalResult;
begin
  result := TCustomForm(_Self).ModalResult;
end;
procedure TCustomForm_PutModalResult(const Value: TModalResult);
begin
  TCustomForm(_Self).ModalResult := Value;
end;
function TCustomForm_GetMonitor:TMonitor;
begin
  result := TCustomForm(_Self).Monitor;
end;
function TCustomForm_GetOleFormObject:IOleForm;
begin
  result := TCustomForm(_Self).OleFormObject;
end;
procedure TCustomForm_PutOleFormObject(const Value: IOleForm);
begin
  TCustomForm(_Self).OleFormObject := Value;
end;
function TCustomForm_GetWindowState:TWindowState;
begin
  result := TCustomForm(_Self).WindowState;
end;
procedure TCustomForm_PutWindowState(const Value: TWindowState);
begin
  TCustomForm(_Self).WindowState := Value;
end;
function TDataModule_GetDesignOffset:TPoint;
begin
  result := TDataModule(_Self).DesignOffset;
end;
procedure TDataModule_PutDesignOffset(const Value: TPoint);
begin
  TDataModule(_Self).DesignOffset := Value;
end;
function TDataModule_GetDesignSize:TPoint;
begin
  result := TDataModule(_Self).DesignSize;
end;
procedure TDataModule_PutDesignSize(const Value: TPoint);
begin
  TDataModule(_Self).DesignSize := Value;
end;
function TMonitor_GetHandle:HMONITOR;
begin
  result := TMonitor(_Self).Handle;
end;
function TMonitor_GetMonitorNum:Integer;
begin
  result := TMonitor(_Self).MonitorNum;
end;
function TMonitor_GetLeft:Integer;
begin
  result := TMonitor(_Self).Left;
end;
function TMonitor_GetHeight:Integer;
begin
  result := TMonitor(_Self).Height;
end;
function TMonitor_GetTop:Integer;
begin
  result := TMonitor(_Self).Top;
end;
function TMonitor_GetWidth:Integer;
begin
  result := TMonitor(_Self).Width;
end;
function TScreen_GetActiveControl:TWinControl;
begin
  result := TScreen(_Self).ActiveControl;
end;
function TScreen_GetActiveCustomForm:TCustomForm;
begin
  result := TScreen(_Self).ActiveCustomForm;
end;
function TScreen_GetActiveForm:TForm;
begin
  result := TScreen(_Self).ActiveForm;
end;
function TScreen_GetCustomFormCount:Integer;
begin
  result := TScreen(_Self).CustomFormCount;
end;
function TScreen_GetCustomForms(Index: Integer):TCustomForm;
begin
  result := TScreen(_Self).CustomForms[Index];
end;
function TScreen_GetCursor:TCursor;
begin
  result := TScreen(_Self).Cursor;
end;
procedure TScreen_PutCursor(const Value: TCursor);
begin
  TScreen(_Self).Cursor := Value;
end;
function TScreen_GetCursors(Index: Integer):HCURSOR;
begin
  result := TScreen(_Self).Cursors[Index];
end;
procedure TScreen_PutCursors(Index: Integer;const Value: HCURSOR);
begin
  TScreen(_Self).Cursors[Index] := Value;
end;
function TScreen_GetDataModules(Index: Integer):TDataModule;
begin
  result := TScreen(_Self).DataModules[Index];
end;
function TScreen_GetDataModuleCount:Integer;
begin
  result := TScreen(_Self).DataModuleCount;
end;
function TScreen_GetMonitorCount:Integer;
begin
  result := TScreen(_Self).MonitorCount;
end;
function TScreen_GetMonitors(Index: Integer):TMonitor;
begin
  result := TScreen(_Self).Monitors[Index];
end;
function TScreen_GetDesktopHeight:Integer;
begin
  result := TScreen(_Self).DesktopHeight;
end;
function TScreen_GetDesktopLeft:Integer;
begin
  result := TScreen(_Self).DesktopLeft;
end;
function TScreen_GetDesktopTop:Integer;
begin
  result := TScreen(_Self).DesktopTop;
end;
function TScreen_GetDesktopWidth:Integer;
begin
  result := TScreen(_Self).DesktopWidth;
end;
function TScreen_GetHintFont:TFont;
begin
  result := TScreen(_Self).HintFont;
end;
procedure TScreen_PutHintFont(const Value: TFont);
begin
  TScreen(_Self).HintFont := Value;
end;
function TScreen_GetIconFont:TFont;
begin
  result := TScreen(_Self).IconFont;
end;
procedure TScreen_PutIconFont(const Value: TFont);
begin
  TScreen(_Self).IconFont := Value;
end;
function TScreen_GetMenuFont:TFont;
begin
  result := TScreen(_Self).MenuFont;
end;
procedure TScreen_PutMenuFont(const Value: TFont);
begin
  TScreen(_Self).MenuFont := Value;
end;
function TScreen_GetFonts:TStrings;
begin
  result := TScreen(_Self).Fonts;
end;
function TScreen_GetFormCount:Integer;
begin
  result := TScreen(_Self).FormCount;
end;
function TScreen_GetForms(Index: Integer):TForm;
begin
  result := TScreen(_Self).Forms[Index];
end;
function TScreen_GetImes:TStrings;
begin
  result := TScreen(_Self).Imes;
end;
function TScreen_GetDefaultIme:String;
begin
  result := TScreen(_Self).DefaultIme;
end;
function TScreen_GetDefaultKbLayout:HKL;
begin
  result := TScreen(_Self).DefaultKbLayout;
end;
function TScreen_GetHeight:Integer;
begin
  result := TScreen(_Self).Height;
end;
function TScreen_GetPixelsPerInch:Integer;
begin
  result := TScreen(_Self).PixelsPerInch;
end;
function TScreen_GetWidth:Integer;
begin
  result := TScreen(_Self).Width;
end;
function TApplication_GetActive:Boolean;
begin
  result := TApplication(_Self).Active;
end;
function TApplication_GetAllowTesting:Boolean;
begin
  result := TApplication(_Self).AllowTesting;
end;
procedure TApplication_PutAllowTesting(const Value: Boolean);
begin
  TApplication(_Self).AllowTesting := Value;
end;
function TApplication_GetCurrentHelpFile:String;
begin
  result := TApplication(_Self).CurrentHelpFile;
end;
function TApplication_GetDialogHandle:HWnd;
begin
  result := TApplication(_Self).DialogHandle;
end;
procedure TApplication_PutDialogHandle(const Value: HWnd);
begin
  TApplication(_Self).DialogHandle := Value;
end;
function TApplication_GetExeName:String;
begin
  result := TApplication(_Self).ExeName;
end;
function TApplication_GetHandle:HWnd;
begin
  result := TApplication(_Self).Handle;
end;
procedure TApplication_PutHandle(const Value: HWnd);
begin