{***************************************************************************}
{ This source code was generated automatically by                           }
{ Pas file import tool for Scripter Studio (Pro)                            }
{                                                                           }
{ Scripter Studio and Pas file import tool for Scripter Studio              }
{ written by TMS Software                                                   }
{            copyright © 1997 - 2010                                        }
{            Email : info@tmssoftware.com                                   }
{            Web : http://www.tmssoftware.com                               }
{***************************************************************************}
unit ap_DBPWDlg;

interface

uses
  Windows,
  Classes,
  Graphics,
  Forms,
  Controls,
  StdCtrls,
  DB,
  DBPWDlg,
  Variants,
  atScript;

{$WARNINGS OFF}

type
  TatDBPWDlgLibrary = class(TatScripterLibrary)
    procedure __TPasswordDialogEditChange(AMachine: TatVirtualMachine);
    procedure __TPasswordDialogAddButtonClick(AMachine: TatVirtualMachine);
    procedure __TPasswordDialogRemoveButtonClick(AMachine: TatVirtualMachine);
    procedure __TPasswordDialogRemoveAllButtonClick(AMachine: TatVirtualMachine);
    procedure __TPasswordDialogOKButtonClick(AMachine: TatVirtualMachine);
    procedure Init; override;
    class function LibraryName: string; override;
  end;

  TPasswordDialogClass = class of TPasswordDialog;



implementation



procedure TatDBPWDlgLibrary.__TPasswordDialogEditChange(AMachine: TatVirtualMachine);
begin
  with AMachine do
  begin
    TPasswordDialog(CurrentObject).EditChange(TObject(VarToObject(GetInputArg(0))));
  end;
end;

procedure TatDBPWDlgLibrary.__TPasswordDialogAddButtonClick(AMachine: TatVirtualMachine);
begin
  with AMachine do
  begin
    TPasswordDialog(CurrentObject).AddButtonClick(TObject(VarToObject(GetInputArg(0))));
  end;
end;

procedure TatDBPWDlgLibrary.__TPasswordDialogRemoveButtonClick(AMachine: TatVirtualMachine);
begin
  with AMachine do
  begin
    TPasswordDialog(CurrentObject).RemoveButtonClick(TObject(VarToObject(GetInputArg(0))));
  end;
end;

procedure TatDBPWDlgLibrary.__TPasswordDialogRemoveAllButtonClick(AMachine: TatVirtualMachine);
begin
  with AMachine do
  begin
    TPasswordDialog(CurrentObject).RemoveAllButtonClick(TObject(VarToObject(GetInputArg(0))));
  end;
end;

procedure TatDBPWDlgLibrary.__TPasswordDialogOKButtonClick(AMachine: TatVirtualMachine);
begin
  with AMachine do
  begin
    TPasswordDialog(CurrentObject).OKButtonClick(TObject(VarToObject(GetInputArg(0))));
  end;
end;

procedure TatDBPWDlgLibrary.Init;
begin
  With Scripter.DefineClass(TPasswordDialog) do
  begin
    DefineMethod('EditChange',1,tkNone,nil,__TPasswordDialogEditChange,false,0,'Sender: TObject');
    DefineMethod('AddButtonClick',1,tkNone,nil,__TPasswordDialogAddButtonClick,false,0,'Sender: TObject');
    DefineMethod('RemoveButtonClick',1,tkNone,nil,__TPasswordDialogRemoveButtonClick,false,0,'Sender: TObject');
    DefineMethod('RemoveAllButtonClick',1,tkNone,nil,__TPasswordDialogRemoveAllButtonClick,false,0,'Sender: TObject');
    DefineMethod('OKButtonClick',1,tkNone,nil,__TPasswordDialogOKButtonClick,false,0,'Sender: TObject');
  end;
  With Scripter.DefineClass(ClassType) do
  begin
  end;
end;

class function TatDBPWDlgLibrary.LibraryName: string;
begin
  result := 'DBPWDlg';
end;

initialization
  RegisterScripterLibrary(TatDBPWDlgLibrary, True);

{$WARNINGS ON}

end.

