imp_forms.pas

Delphi脚本控件

  TApplication(_Self).Handle := Value;
end;
function TApplication_GetHelpFile:String;
begin
  result := TApplication(_Self).HelpFile;
end;
procedure TApplication_PutHelpFile(const Value: String);
begin
  TApplication(_Self).HelpFile := Value;
end;
function TApplication_GetHint:String;
begin
  result := TApplication(_Self).Hint;
end;
procedure TApplication_PutHint(const Value: String);
begin
  TApplication(_Self).Hint := Value;
end;
function TApplication_GetHintColor:TColor;
begin
  result := TApplication(_Self).HintColor;
end;
procedure TApplication_PutHintColor(const Value: TColor);
begin
  TApplication(_Self).HintColor := Value;
end;
function TApplication_GetHintHidePause:Integer;
begin
  result := TApplication(_Self).HintHidePause;
end;
procedure TApplication_PutHintHidePause(const Value: Integer);
begin
  TApplication(_Self).HintHidePause := Value;
end;
function TApplication_GetHintPause:Integer;
begin
  result := TApplication(_Self).HintPause;
end;
procedure TApplication_PutHintPause(const Value: Integer);
begin
  TApplication(_Self).HintPause := Value;
end;
function TApplication_GetHintShortCuts:Boolean;
begin
  result := TApplication(_Self).HintShortCuts;
end;
procedure TApplication_PutHintShortCuts(const Value: Boolean);
begin
  TApplication(_Self).HintShortCuts := Value;
end;
function TApplication_GetHintShortPause:Integer;
begin
  result := TApplication(_Self).HintShortPause;
end;
procedure TApplication_PutHintShortPause(const Value: Integer);
begin
  TApplication(_Self).HintShortPause := Value;
end;
function TApplication_GetIcon:TIcon;
begin
  result := TApplication(_Self).Icon;
end;
procedure TApplication_PutIcon(const Value: TIcon);
begin
  TApplication(_Self).Icon := Value;
end;
function TApplication_GetMainForm:TForm;
begin
  result := TApplication(_Self).MainForm;
end;
function TApplication_GetBiDiMode:TBiDiMode;
begin
  result := TApplication(_Self).BiDiMode;
end;
procedure TApplication_PutBiDiMode(const Value: TBiDiMode);
begin
  TApplication(_Self).BiDiMode := Value;
end;
function TApplication_GetBiDiKeyboard:String;
begin
  result := TApplication(_Self).BiDiKeyboard;
end;
procedure TApplication_PutBiDiKeyboard(const Value: String);
begin
  TApplication(_Self).BiDiKeyboard := Value;
end;
function TApplication_GetNonBiDiKeyboard:String;
begin
  result := TApplication(_Self).NonBiDiKeyboard;
end;
procedure TApplication_PutNonBiDiKeyboard(const Value: String);
begin
  TApplication(_Self).NonBiDiKeyboard := Value;
end;
function TApplication_GetShowHint:Boolean;
begin
  result := TApplication(_Self).ShowHint;
end;
procedure TApplication_PutShowHint(const Value: Boolean);
begin
  TApplication(_Self).ShowHint := Value;
end;
function TApplication_GetShowMainForm:Boolean;
begin
  result := TApplication(_Self).ShowMainForm;
end;
procedure TApplication_PutShowMainForm(const Value: Boolean);
begin
  TApplication(_Self).ShowMainForm := Value;
end;
function TApplication_GetTerminated:Boolean;
begin
  result := TApplication(_Self).Terminated;
end;
function TApplication_GetTitle:String;
begin
  result := TApplication(_Self).Title;
end;
procedure TApplication_PutTitle(const Value: String);
begin
  TApplication(_Self).Title := Value;
end;
function TApplication_GetUpdateFormatSettings:Boolean;
begin
  result := TApplication(_Self).UpdateFormatSettings;
end;
procedure TApplication_PutUpdateFormatSettings(const Value: Boolean);
begin
  TApplication(_Self).UpdateFormatSettings := Value;
end;
function TApplication_GetUpdateMetricSettings:Boolean;
begin
  result := TApplication(_Self).UpdateMetricSettings;
end;
procedure TApplication_PutUpdateMetricSettings(const Value: Boolean);
begin
  TApplication(_Self).UpdateMetricSettings := Value;
end;
procedure RegisterIMP_Forms;
var H: Integer;
begin
  H := RegisterNamespace('Forms', -1);
  RegisterRTTIType(TypeInfo(TScrollBarKind));
  RegisterRTTIType(TypeInfo(TScrollBarStyle));
  // Begin of class TControlScrollBar
  RegisterClassType(TControlScrollBar, H);
  RegisterMethod(TControlScrollBar,
       'procedure Assign(Source: TPersistent); override;',
       @TControlScrollBar.Assign);
  RegisterMethod(TControlScrollBar,
       'procedure ChangeBiDiPosition;',
       @TControlScrollBar.ChangeBiDiPosition);
  RegisterMethod(TControlScrollBar,
       'function TControlScrollBar_GetKind:TScrollBarKind;',
       @TControlScrollBar_GetKind, Fake);
  RegisterProperty(TControlScrollBar,
       'property Kind:TScrollBarKind read TControlScrollBar_GetKind;');
  RegisterMethod(TControlScrollBar,
       'function IsScrollBarVisible: Boolean;',
       @TControlScrollBar.IsScrollBarVisible);
  RegisterMethod(TControlScrollBar,
       'function TControlScrollBar_GetScrollPos:Integer;',
       @TControlScrollBar_GetScrollPos, Fake);
  RegisterProperty(TControlScrollBar,
       'property ScrollPos:Integer read TControlScrollBar_GetScrollPos;');
  RegisterMethod(TControlScrollBar,
       'constructor Create;',
       @TControlScrollBar.Create);
  // End of class TControlScrollBar
  RegisterRTTIType(TypeInfo(TWindowState));
  // Begin of class TScrollingWinControl
  RegisterClassType(TScrollingWinControl, H);
  RegisterMethod(TScrollingWinControl,
       'constructor Create(AOwner: TComponent); override;',
       @TScrollingWinControl.Create);
  RegisterMethod(TScrollingWinControl,
       'destructor Destroy; override;',
       @TScrollingWinControl.Destroy);
  RegisterMethod(TScrollingWinControl,
       'procedure DisableAutoRange;',
       @TScrollingWinControl.DisableAutoRange);
  RegisterMethod(TScrollingWinControl,
       'procedure EnableAutoRange;',
       @TScrollingWinControl.EnableAutoRange);
  RegisterMethod(TScrollingWinControl,
       'procedure ScrollInView(AControl: TControl);',
       @TScrollingWinControl.ScrollInView);
  // End of class TScrollingWinControl
  RegisterRTTIType(TypeInfo(TFormBorderStyle));
  // Begin of class TScrollBox
  RegisterClassType(TScrollBox, H);
  RegisterMethod(TScrollBox,
       'constructor Create(AOwner: TComponent); override;',
       @TScrollBox.Create);
  // End of class TScrollBox
  // Begin of class TCustomFrame
  RegisterClassType(TCustomFrame, H);
  RegisterMethod(TCustomFrame,
       'constructor Create(AOwner: TComponent); override;',
       @TCustomFrame.Create);
  // End of class TCustomFrame
  // Begin of class TFrame
  RegisterClassType(TFrame, H);
  RegisterMethod(TFrame,
       'constructor Create(AOwner: TComponent); override;',
       @TFrame.Create);
  // End of class TFrame
  RegisterRTTIType(TypeInfo(TFormStyle));
  RegisterRTTIType(TypeInfo(TBorderIcon));
  RegisterRTTIType(TypeInfo(TPosition));
  RegisterRTTIType(TypeInfo(TDefaultMonitor));
  RegisterRTTIType(TypeInfo(TPrintScale));
  RegisterRTTIType(TypeInfo(TShowAction));
  RegisterRTTIType(TypeInfo(TTileMode));
  RegisterRTTIType(TypeInfo(TCloseAction));
  // Begin of class TCustomForm
  RegisterClassType(TCustomForm, H);
  RegisterMethod(TCustomForm,
       'constructor Create(AOwner: TComponent); override;',
       @TCustomForm.Create);
  RegisterMethod(TCustomForm,
       'constructor CreateNew(AOwner: TComponent; Dummy: Integer);',
       @TCustomForm.CreateNew);
  RegisterMethod(TCustomForm,
       'destructor Destroy; override;',
       @TCustomForm.Destroy);
  RegisterMethod(TCustomForm,
       'procedure AfterConstruction; override;',
       @TCustomForm.AfterConstruction);
  RegisterMethod(TCustomForm,
       'procedure BeforeDestruction; override;',
       @TCustomForm.BeforeDestruction);
  RegisterMethod(TCustomForm,
       'procedure Close;',
       @TCustomForm.Close);
  RegisterMethod(TCustomForm,
       'function CloseQuery: Boolean; virtual;',
       @TCustomForm.CloseQuery);
  RegisterMethod(TCustomForm,
       'procedure DefaultHandler(var Message); override;',
       @TCustomForm.DefaultHandler);
  RegisterMethod(TCustomForm,
       'procedure DefocusControl(Control: TWinControl; Removing: Boolean);',
       @TCustomForm.DefocusControl);
  RegisterMethod(TCustomForm,
       'procedure Dock(NewDockSite: TWinControl; ARect: TRect); override;',
       @TCustomForm.Dock);
  RegisterMethod(TCustomForm,
       'procedure FocusControl(Control: TWinControl);',
       @TCustomForm.FocusControl);
  RegisterMethod(TCustomForm,
       'function GetFormImage: TBitmap;',
       @TCustomForm.GetFormImage);
  RegisterMethod(TCustomForm,
       'procedure Hide;',
       @TCustomForm.Hide);
  RegisterMethod(TCustomForm,
       'function IsShortCut(var Message: TWMKey): Boolean; dynamic;',
       @TCustomForm.IsShortCut);
  RegisterMethod(TCustomForm,
       'procedure MouseWheelHandler(var Message: TMessage); override;',
       @TCustomForm.MouseWheelHandler);
  RegisterMethod(TCustomForm,
       'procedure Print;',
       @TCustomForm.Print);
  RegisterMethod(TCustomForm,
       'procedure Release;',
       @TCustomForm.Release);
  RegisterMethod(TCustomForm,
       'procedure SendCancelMode(Sender: TControl);',
       @TCustomForm.SendCancelMode);
  RegisterMethod(TCustomForm,
       'procedure SetFocus; override;',
       @TCustomForm.SetFocus);
  RegisterMethod(TCustomForm,
       'function SetFocusedControl(Control: TWinControl): Boolean; virtual;',
       @TCustomForm.SetFocusedControl);
  RegisterMethod(TCustomForm,
       'procedure Show;',
       @TCustomForm.Show);
  RegisterMethod(TCustomForm,
       'function ShowModal: Integer; virtual;',
       @TCustomForm.ShowModal);
  RegisterMethod(TCustomForm,
       'function WantChildKey(Child: TControl; var Message: TMessage): Boolean; virtual;',
       @TCustomForm.WantChildKey);
  RegisterMethod(TCustomForm,
       'function TCustomForm_GetActive:Boolean;',
       @TCustomForm_GetActive, Fake);
  RegisterProperty(TCustomForm,
       'property Active:Boolean read TCustomForm_GetActive;');
  RegisterMethod(TCustomForm,
       'function TCustomForm_GetActiveControl:TWinControl;',
       @TCustomForm_GetActiveControl, Fake);
  RegisterMethod(TCustomForm,
       'procedure TCustomForm_PutActiveControl(const Value: TWinControl);',
       @TCustomForm_PutActiveControl, Fake);
  RegisterProperty(TCustomForm,
       'property ActiveControl:TWinControl read TCustomForm_GetActiveControl write TCustomForm_PutActiveControl;');
  RegisterMethod(TCustomForm,
       'function TCustomForm_GetActiveOleControl:TWinControl;',
       @TCustomForm_GetActiveOleControl, Fake);
  RegisterMethod(TCustomForm,
       'procedure TCustomForm_PutActiveOleControl(const Value: TWinControl);',
       @TCustomForm_PutActiveOleControl, Fake);
  RegisterProperty(TCustomForm,
       'property ActiveOleControl:TWinControl read TCustomForm_GetActiveOleControl write TCustomForm_PutActiveOleControl;');
  RegisterMethod(TCustomForm,
       'function TCustomForm_GetBorderStyle:TFormBorderStyle;',
       @TCustomForm_GetBorderStyle, Fake);
  RegisterMethod(TCustomForm,
       'procedure TCustomForm_PutBorderStyle(const Value: TFormBorderStyle);',
       @TCustomForm_PutBorderStyle, Fake);
  RegisterProperty(TCustomForm,
       'property BorderStyle:TFormBorderStyle read TCustomForm_GetBorderStyle write TCustomForm_PutBorderStyle;');
  RegisterMethod(TCustomForm,
       'function TCustomForm_GetCanvas:TCanvas;',
       @TCustomForm_GetCanvas, Fake);
  RegisterProperty(TCustomForm,
       'property Canvas:TCanvas read TCustomForm_GetCanvas;');
  RegisterMethod(TCustomForm,
       'function TCustomForm_GetDropTarget:Boolean;',
       @TCustomForm_GetDropTarget, Fake);