{------------------------------------------------------------------------------}
{
   Unit Name: sectest2
   Purpose  : Another test form for security levels
   Author   : Vesa Lappalainen
   Date     : 09.10.1999
   Changed  :

   ToDo     :
   - what properties to change for each classes
   - possible to control individual components          
}
{------------------------------------------------------------------------------}

unit sectest2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ExtCtrls, kComp, KParam, security, kinicomp, ActnList,
  Menus;

type
  TFormSecTest2 = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Button1: TButton;
    Edit1: TEdit;
    kParam1: TkParam;
    SecurityForForm: TSecurityForForm;
    kParam2: TkParam;
    kParam3: TkParam;
    EditIni1: TEditIni;
    EditIni2: TEditIni;
    kParam4: TkParam;
    EditIni3: TEditIni;
    CheckBoxIni1: TCheckBoxIni;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Eka2: TMenuItem;
    Edit2: TMenuItem;
    Toka1: TMenuItem;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSecTest2: TFormSecTest2;

implementation

{$R *.DFM}

end.