imp_forms.pas

Delphi脚本控件

  RegisterMethod(TCustomForm,
       'procedure TCustomForm_PutDropTarget(const Value: Boolean);',
       @TCustomForm_PutDropTarget, Fake);
  RegisterProperty(TCustomForm,
       'property DropTarget:Boolean read TCustomForm_GetDropTarget write TCustomForm_PutDropTarget;');
  RegisterMethod(TCustomForm,
       'function TCustomForm_GetFormState:TFormState;',
       @TCustomForm_GetFormState, Fake);
  RegisterProperty(TCustomForm,
       'property FormState:TFormState read TCustomForm_GetFormState;');
  RegisterMethod(TCustomForm,
       'function TCustomForm_GetHelpFile:String;',
       @TCustomForm_GetHelpFile, Fake);
  RegisterMethod(TCustomForm,
       'procedure TCustomForm_PutHelpFile(const Value: String);',
       @TCustomForm_PutHelpFile, Fake);
  RegisterProperty(TCustomForm,
       'property HelpFile:String read TCustomForm_GetHelpFile write TCustomForm_PutHelpFile;');
  RegisterMethod(TCustomForm,
       'function TCustomForm_GetKeyPreview:Boolean;',
       @TCustomForm_GetKeyPreview, Fake);
  RegisterMethod(TCustomForm,
       'procedure TCustomForm_PutKeyPreview(const Value: Boolean);',
       @TCustomForm_PutKeyPreview, Fake);
  RegisterProperty(TCustomForm,
       'property KeyPreview:Boolean read TCustomForm_GetKeyPreview write TCustomForm_PutKeyPreview;');
  RegisterMethod(TCustomForm,
       'function TCustomForm_GetMenu:TMainMenu;',
       @TCustomForm_GetMenu, Fake);
  RegisterMethod(TCustomForm,
       'procedure TCustomForm_PutMenu(const Value: TMainMenu);',
       @TCustomForm_PutMenu, Fake);
  RegisterProperty(TCustomForm,
       'property Menu:TMainMenu read TCustomForm_GetMenu write TCustomForm_PutMenu;');
  RegisterMethod(TCustomForm,
       'function TCustomForm_GetModalResult:TModalResult;',
       @TCustomForm_GetModalResult, Fake);
  RegisterMethod(TCustomForm,
       'procedure TCustomForm_PutModalResult(const Value: TModalResult);',
       @TCustomForm_PutModalResult, Fake);
  RegisterProperty(TCustomForm,
       'property ModalResult:TModalResult read TCustomForm_GetModalResult write TCustomForm_PutModalResult;');
  RegisterMethod(TCustomForm,
       'function TCustomForm_GetMonitor:TMonitor;',
       @TCustomForm_GetMonitor, Fake);
  RegisterProperty(TCustomForm,
       'property Monitor:TMonitor read TCustomForm_GetMonitor;');
  RegisterMethod(TCustomForm,
       'function TCustomForm_GetOleFormObject:IOleForm;',
       @TCustomForm_GetOleFormObject, Fake);
  RegisterMethod(TCustomForm,
       'procedure TCustomForm_PutOleFormObject(const Value: IOleForm);',
       @TCustomForm_PutOleFormObject, Fake);
  RegisterProperty(TCustomForm,
       'property OleFormObject:IOleForm read TCustomForm_GetOleFormObject write TCustomForm_PutOleFormObject;');
  RegisterMethod(TCustomForm,
       'function TCustomForm_GetWindowState:TWindowState;',
       @TCustomForm_GetWindowState, Fake);
  RegisterMethod(TCustomForm,
       'procedure TCustomForm_PutWindowState(const Value: TWindowState);',
       @TCustomForm_PutWindowState, Fake);
  RegisterProperty(TCustomForm,
       'property WindowState:TWindowState read TCustomForm_GetWindowState write TCustomForm_PutWindowState;');
  // End of class TCustomForm
  RegisterRTTIType(TypeInfo(TActiveFormBorderStyle));
  // Begin of class TCustomActiveForm
  RegisterClassType(TCustomActiveForm, H);
  RegisterMethod(TCustomActiveForm,
       'constructor Create(AOwner: TComponent); override;',
       @TCustomActiveForm.Create);
  RegisterMethod(TCustomActiveForm,
       'function WantChildKey(Child: TControl; var Message: TMessage): Boolean; override;',
       @TCustomActiveForm.WantChildKey);
  // End of class TCustomActiveForm
  // Begin of class TForm
  RegisterClassType(TForm, H);
  RegisterMethod(TForm,
       'procedure ArrangeIcons;',
       @TForm.ArrangeIcons);
  RegisterMethod(TForm,
       'procedure Cascade;',
       @TForm.Cascade);
  RegisterMethod(TForm,
       'procedure Next;',
       @TForm.Next);
  RegisterMethod(TForm,
       'procedure Previous;',
       @TForm.Previous);
  RegisterMethod(TForm,
       'procedure Tile;',
       @TForm.Tile);
  RegisterMethod(TForm,
       'constructor Create(AOwner: TComponent); override;',
       @TForm.Create);
  // End of class TForm
  // Begin of class TCustomDockForm
  RegisterClassType(TCustomDockForm, H);
  RegisterMethod(TCustomDockForm,
       'constructor Create(AOwner: TComponent); override;',
       @TCustomDockForm.Create);
  // End of class TCustomDockForm
  // Begin of class TDataModule
  RegisterClassType(TDataModule, H);
  RegisterMethod(TDataModule,
       'constructor Create(AOwner: TComponent); override;',
       @TDataModule.Create);
  RegisterMethod(TDataModule,
       'destructor Destroy; override;',
       @TDataModule.Destroy);
  RegisterMethod(TDataModule,
       'procedure AfterConstruction; override;',
       @TDataModule.AfterConstruction);
  RegisterMethod(TDataModule,
       'procedure BeforeDestruction; override;',
       @TDataModule.BeforeDestruction);
  RegisterMethod(TDataModule,
       'function TDataModule_GetDesignOffset:TPoint;',
       @TDataModule_GetDesignOffset, Fake);
  RegisterMethod(TDataModule,
       'procedure TDataModule_PutDesignOffset(const Value: TPoint);',
       @TDataModule_PutDesignOffset, Fake);
  RegisterProperty(TDataModule,
       'property DesignOffset:TPoint read TDataModule_GetDesignOffset write TDataModule_PutDesignOffset;');
  RegisterMethod(TDataModule,
       'function TDataModule_GetDesignSize:TPoint;',
       @TDataModule_GetDesignSize, Fake);
  RegisterMethod(TDataModule,
       'procedure TDataModule_PutDesignSize(const Value: TPoint);',
       @TDataModule_PutDesignSize, Fake);
  RegisterProperty(TDataModule,
       'property DesignSize:TPoint read TDataModule_GetDesignSize write TDataModule_PutDesignSize;');
  // End of class TDataModule
  // Begin of class TMonitor
  RegisterClassType(TMonitor, H);
  RegisterMethod(TMonitor,
       'function TMonitor_GetHandle:HMONITOR;',
       @TMonitor_GetHandle, Fake);
  RegisterProperty(TMonitor,
       'property Handle:HMONITOR read TMonitor_GetHandle;');
  RegisterMethod(TMonitor,
       'function TMonitor_GetMonitorNum:Integer;',
       @TMonitor_GetMonitorNum, Fake);
  RegisterProperty(TMonitor,
       'property MonitorNum:Integer read TMonitor_GetMonitorNum;');
  RegisterMethod(TMonitor,
       'function TMonitor_GetLeft:Integer;',
       @TMonitor_GetLeft, Fake);
  RegisterProperty(TMonitor,
       'property Left:Integer read TMonitor_GetLeft;');
  RegisterMethod(TMonitor,
       'function TMonitor_GetHeight:Integer;',
       @TMonitor_GetHeight, Fake);
  RegisterProperty(TMonitor,
       'property Height:Integer read TMonitor_GetHeight;');
  RegisterMethod(TMonitor,
       'function TMonitor_GetTop:Integer;',
       @TMonitor_GetTop, Fake);
  RegisterProperty(TMonitor,
       'property Top:Integer read TMonitor_GetTop;');
  RegisterMethod(TMonitor,
       'function TMonitor_GetWidth:Integer;',
       @TMonitor_GetWidth, Fake);
  RegisterProperty(TMonitor,
       'property Width:Integer read TMonitor_GetWidth;');
  RegisterMethod(TMonitor,
       'constructor Create;',
       @TMonitor.Create);
  // End of class TMonitor
  // Begin of class TScreen
  RegisterClassType(TScreen, H);
  RegisterMethod(TScreen,
       'constructor Create(AOwner: TComponent); override;',
       @TScreen.Create);
  RegisterMethod(TScreen,
       'destructor Destroy; override;',
       @TScreen.Destroy);
  RegisterMethod(TScreen,
       'procedure DisableAlign;',
       @TScreen.DisableAlign);
  RegisterMethod(TScreen,
       'procedure EnableAlign;',
       @TScreen.EnableAlign);
  RegisterMethod(TScreen,
       'procedure Realign;',
       @TScreen.Realign);
  RegisterMethod(TScreen,
       'procedure ResetFonts;',
       @TScreen.ResetFonts);
  RegisterMethod(TScreen,
       'function TScreen_GetActiveControl:TWinControl;',
       @TScreen_GetActiveControl, Fake);
  RegisterProperty(TScreen,
       'property ActiveControl:TWinControl read TScreen_GetActiveControl;');
  RegisterMethod(TScreen,
       'function TScreen_GetActiveCustomForm:TCustomForm;',
       @TScreen_GetActiveCustomForm, Fake);
  RegisterProperty(TScreen,
       'property ActiveCustomForm:TCustomForm read TScreen_GetActiveCustomForm;');
  RegisterMethod(TScreen,
       'function TScreen_GetActiveForm:TForm;',
       @TScreen_GetActiveForm, Fake);
  RegisterProperty(TScreen,
       'property ActiveForm:TForm read TScreen_GetActiveForm;');
  RegisterMethod(TScreen,
       'function TScreen_GetCustomFormCount:Integer;',
       @TScreen_GetCustomFormCount, Fake);
  RegisterProperty(TScreen,
       'property CustomFormCount:Integer read TScreen_GetCustomFormCount;');
  RegisterMethod(TScreen,
       'function TScreen_GetCustomForms(Index: Integer):TCustomForm;',
       @TScreen_GetCustomForms, Fake);
  RegisterProperty(TScreen,
       'property CustomForms[Index: Integer]:TCustomForm read TScreen_GetCustomForms;');
  RegisterMethod(TScreen,
       'function TScreen_GetCursor:TCursor;',
       @TScreen_GetCursor, Fake);
  RegisterMethod(TScreen,
       'procedure TScreen_PutCursor(const Value: TCursor);',
       @TScreen_PutCursor, Fake);
  RegisterProperty(TScreen,
       'property Cursor:TCursor read TScreen_GetCursor write TScreen_PutCursor;');
  RegisterMethod(TScreen,
       'function TScreen_GetCursors(Index: Integer):HCURSOR;',
       @TScreen_GetCursors, Fake);
  RegisterMethod(TScreen,
       'procedure TScreen_PutCursors(Index: Integer;const Value: HCURSOR);',
       @TScreen_PutCursors, Fake);
  RegisterProperty(TScreen,
       'property Cursors[Index: Integer]:HCURSOR read TScreen_GetCursors write TScreen_PutCursors;');
  RegisterMethod(TScreen,
       'function TScreen_GetDataModules(Index: Integer):TDataModule;',
       @TScreen_GetDataModules, Fake);
  RegisterProperty(TScreen,
       'property DataModules[Index: Integer]:TDataModule read TScreen_GetDataModules;');
  RegisterMethod(TScreen,
       'function TScreen_GetDataModuleCount:Integer;',
       @TScreen_GetDataModuleCount, Fake);
  RegisterProperty(TScreen,
       'property DataModuleCount:Integer read TScreen_GetDataModuleCount;');
  RegisterMethod(TScreen,
       'function TScreen_GetMonitorCount:Integer;',
       @TScreen_GetMonitorCount, Fake);
  RegisterProperty(TScreen,
       'property MonitorCount:Integer read TScreen_GetMonitorCount;');
  RegisterMethod(TScreen,
       'function TScreen_GetMonitors(Index: Integer):TMonitor;',
       @TScreen_GetMonitors, Fake);
  RegisterProperty(TScreen,
       'property Monitors[Index: Integer]:TMonitor read TScreen_GetMonitors;');
  RegisterMethod(TScreen,
       'function TScreen_GetDesktopHeight:Integer;',
       @TScreen_GetDesktopHeight, Fake);
  RegisterProperty(TScreen,
       'property DesktopHeight:Integer read TScreen_GetDesktopHeight;');
  RegisterMethod(TScreen,
       'function TScreen_GetDesktopLeft:Integer;',
       @TScreen_GetDesktopLeft, Fake);
  RegisterProperty(TScreen,
       'property DesktopLeft:Integer read TScreen_GetDesktopLeft;');
  RegisterMethod(TScreen,
       'function TScreen_GetDesktopTop:Integer;',
       @TScreen_GetDesktopTop, Fake);
  RegisterProperty(TScreen,
       'property DesktopTop:Integer read TScreen_GetDesktopTop;');
  RegisterMethod(TScreen,
       'function TScreen_GetDesktopWidth:Integer;',
       @TScreen_GetDesktopWidth, Fake);
  RegisterProperty(TScreen,
       'property DesktopWidth:Integer read TScreen_GetDesktopWidth;');
  RegisterMethod(TScreen,
       'function TScreen_GetHintFont:TFont;',
       @TScreen_GetHintFont, Fake);
  RegisterMethod(TScreen,
       'procedure TScreen_PutHintFont(const Value: TFont);',
       @TScreen_PutHintFont, Fake);
  RegisterProperty(TScreen,
       'property HintFont:TFont read TScreen_GetHintFont write TScreen_PutHintFont;');
  RegisterMethod(TScreen,
       'function TScreen_GetIconFont:TFont;',
       @TScreen_GetIconFont, Fake);
  RegisterMethod(TScreen,
       'procedure TScreen_PutIconFont(const Value: TFont);',
       @TScreen_PutIconFont, Fake);
  RegisterProperty(TScreen,
       'property IconFont:TFont read TScreen_GetIconFont write TScreen_PutIconFont;');
  RegisterMethod(TScreen,
       'function TScreen_GetMenuFont:TFont;',
       @TScreen_GetMenuFont, Fake);
  RegisterMethod(TScreen,
       'procedure TScreen_PutMenuFont(const Value: TFont);',
       @TScreen_PutMenuFont, Fake);
  RegisterProperty(TScreen,
       'property MenuFont:TFont read TScreen_GetMenuFont write TScreen_PutMenuFont;');
  RegisterMethod(TScreen,
       'function TScreen_GetFonts:TStrings;',
       @TScreen_GetFonts, Fake);
  RegisterProperty(TScreen,
       'property Fonts:TStrings read TScreen_GetFonts;');
  RegisterMethod(TScreen,
       'function TScreen_GetFormCount:Integer;',
       @TScreen_GetFormCount, Fake);
  RegisterProperty(TScreen,
       'property FormCount:Integer read TScreen_GetFormCount;');
  RegisterMethod(TScreen,
       'function TScreen_GetForms(Index: Integer):TForm;',
       @TScreen_GetForms, Fake);
  RegisterProperty(TScreen,
       'property Forms[Index: Integer]:TForm read TScreen_GetForms;');
  RegisterMethod(TScreen,
       'function TScreen_GetImes:TStrings;',
       @TScreen_GetImes, Fake);
  RegisterProperty(TScreen,
       'property Imes:TStrings read TScreen_GetImes;');
  RegisterMethod(TScreen,
       'function TScreen_GetDefaultIme:String;',
       @TScreen_GetDefaultIme, Fake);
  RegisterProperty(TScreen,
       'property DefaultIme:String read TScreen_GetDefaultIme;');
  RegisterMethod(TScreen,
       'function TScreen_GetDefaultKbLayout:HKL;',
       @TScreen_GetDefaultKbLayout, Fake);
  RegisterProperty(TScreen,
       'property DefaultKbLayout:HKL read TScreen_GetDefaultKbLayout;');