object Form7: TForm7 Left = 0 Top = 0 Caption = 'Form7' ClientHeight = 353 ClientWidth = 602 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate DesignSize = ( 602 353) PixelsPerInch = 96 TextHeight = 13 object Label3: TLabel Left = 8 Top = 31 Width = 89 Height = 13 Caption = 'Available accounts' end object Label4: TLabel Left = 8 Top = 8 Width = 42 Height = 14 Caption = 'STEP 1' Color = clWindowText Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = 14 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Label5: TLabel Left = 145 Top = 8 Width = 42 Height = 14 Caption = 'STEP 2' Color = clWindowText Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = 14 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Label6: TLabel Left = 312 Top = 8 Width = 42 Height = 14 Caption = 'STEP 3' Color = clWindowText Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = 14 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Label7: TLabel Left = 8 Top = 116 Width = 123 Height = 39 Caption = 'user1 has "role1", user2 has "role2", admin has all the roles' WordWrap = True end object GroupBox1: TGroupBox Left = 145 Top = 31 Width = 161 Height = 147 Caption = 'Login/Logout' TabOrder = 0 object Label1: TLabel Left = 16 Top = 20 Width = 48 Height = 13 Caption = 'Username' end object Label2: TLabel Left = 16 Top = 66 Width = 46 Height = 13 Caption = 'Password' end object edtUsername: TEdit Left = 16 Top = 39 Width = 121 Height = 21 TabOrder = 0 Text = 'user1' end object edtPassword: TEdit Left = 16 Top = 85 Width = 121 Height = 21 TabOrder = 1 Text = 'user1pass' end object btnLogInLogOut: TButton Left = 16 Top = 112 Width = 121 Height = 25 Caption = 'btnLogInLogOut' TabOrder = 2 OnClick = btnLogInLogOutClick end end object Panel1: TPanel Left = 0 Top = 326 Width = 602 Height = 27 Align = alBottom TabOrder = 1 end object Button1: TButton Left = 311 Top = 31 Width = 283 Height = 45 Anchors = [akLeft, akTop, akRight] Caption = 'Call Public Action (no login required)' TabOrder = 2 OnClick = Button1Click end object Memo1: TMemo Left = 8 Top = 184 Width = 586 Height = 136 Anchors = [akLeft, akTop, akRight, akBottom] Lines.Strings = ( 'Memo1') TabOrder = 3 end object Button2: TButton Left = 311 Top = 82 Width = 283 Height = 45 Anchors = [akLeft, akTop, akRight] Caption = 'Call action allowed only for "role1"' TabOrder = 4 OnClick = Button2Click end object Button3: TButton Left = 312 Top = 133 Width = 283 Height = 45 Anchors = [akLeft, akTop, akRight] Caption = 'Call action allowed only for "role2"' TabOrder = 5 OnClick = Button3Click end object ListBox1: TListBox Left = 8 Top = 51 Width = 131 Height = 59 ItemHeight = 13 Items.Strings = ( 'user1:user1pass' 'user2:user2pass' 'admin:adminpass') TabOrder = 6 OnClick = ListBox1Click end object ApplicationEvents1: TApplicationEvents OnIdle = ApplicationEvents1Idle Left = 16 Top = 184 end end