unit sectest3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, kComp, KParam, ActnList, kavesimu, kCutter, kscale, StdCtrls,
  KSimComp, Buttons;

type
  TFormSectest3 = class(TForm)
    kParam1: TkParam;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    Scale1: TScale;
    Cutter1: TCutter;
    Button1: TButton;
    sInverter1: TsInverter;
    GroupBox1: TGroupBox;
    ButtonUser: TButton;
    ButtonEdit: TButton;
    Button2: TButton;
    BitBtn1: TBitBtn;
    SpeedButton1: TSpeedButton;
    procedure Action1Execute(Sender: TObject);
    procedure ButtonUserClick(Sender: TObject);
    procedure ButtonEditClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSectest3: TFormSectest3;

implementation

uses KUsers;

{$R *.DFM}

procedure TFormSectest3.Action1Execute(Sender: TObject);
begin
  Cutter1.Visible := not Cutter1.Visible;
end;

procedure TFormSectest3.ButtonUserClick(Sender: TObject);
begin
  FormUsers.AskUser;
end;

procedure TFormSectest3.ButtonEditClick(Sender: TObject);
begin
  FormUsers.EditSecurity;
end;

end.