{------------------------------------------------------------------------------}
{
   Unit Name: sectest
   Purpose  : To test security codes for KParam
   Author   : Vesa Lappalainen
   Date     : 2.10.1999
   Changed  :

   ToDo     :
}
{------------------------------------------------------------------------------}

unit sectest;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, kComp, KParam, security, StdCtrls, KButtons, Buttons, savepos;


type
  TFormSecTest = class(TForm)
    ParamArvo: TkParam;
    ParamSecurity: TkParam;
    ButtonAddAll: TButton;
    ButtonEditSec: TButton;
    SecurityForForm: TSecurityForForm;
    kSpeedButton1: TkSpeedButton;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Panel1: TPanel;
    SavePos1: TSavePos;
    procedure ParamSecurityMouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure ButtonAddAllClick(Sender: TObject);
    procedure ParamSecurityAfterChange(Sender: TObject; var val: Double);
    procedure ButtonEditSecClick(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
  private
    { Private declarations }
//    FormSecurity : TFormSecurity;
//    SecurityControl : TSecurityControl;
  public
    { Public declarations }
  end;

var
  FormSecTest: TFormSecTest;

implementation

uses datamodule;

{$R *.DFM}

procedure TFormSecTest.ParamSecurityMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
 ParamArvo.Inc(1);
end;

procedure TFormSecTest.FormCreate(Sender: TObject);
begin
//  SecurityControl := TSecurityControl.Create(self);

//  FormSecurity := TFormSecurity.Create(self);
//  FormSecurity.SecurityControl := SecurityControl;
//  SecurityControl.Components.Add('TkParam');
//  SecurityControl.Scan;
end;

procedure TFormSecTest.ButtonAddAllClick(Sender: TObject);
begin
//  SecurityControl.Save;
  DataModule1.SecurityControl1.AddAll;
  DataModule1.SecurityControl1.UserSecurityLevel := ParamSecurity.AsInteger;
end;

procedure TFormSecTest.ParamSecurityAfterChange(Sender: TObject;
  var val: Double);
begin
//  SecurityControl.UserSecurityLevel := Round(val);
  if ( DataModule1 = nil ) then exit;
  DataModule1.SecurityControl1.UserSecurityLevel := Round(val);
end;

procedure TFormSecTest.ButtonEditSecClick(Sender: TObject);
begin
  DataModule1.SecurityControl1.Edit;
end;

procedure TFormSecTest.Panel1Click(Sender: TObject);
begin
  Panel1.Color := Panel1.Color xor $ff;
end;

end.