delphimvcframework/samples/jsonwebtoken/vclclient/MainClientFormU.dfm
Daniele Teti 7aa5dd1ccb 2.1.6 (carbon)
FIX https://github.com/danieleteti/delphimvcframework/issues/74
Updated jsonwebtoken sample
Improved support for customclaims into the controller actions
2017-03-10 10:37:49 +01:00

118 lines
2.3 KiB
Plaintext

object Form5: TForm5
Left = 0
Top = 0
Caption = 'Form5'
ClientHeight = 460
ClientWidth = 647
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 0
Top = 309
Width = 647
Height = 3
Cursor = crVSplit
Align = alBottom
ExplicitLeft = -16
ExplicitTop = 302
ExplicitWidth = 513
end
object Splitter2: TSplitter
Left = 0
Top = 147
Width = 647
Height = 3
Cursor = crVSplit
Align = alTop
ExplicitLeft = -8
ExplicitTop = 302
ExplicitWidth = 513
end
object Memo1: TMemo
Left = 0
Top = 49
Width = 647
Height = 98
Align = alTop
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 0
ExplicitWidth = 513
end
object Memo2: TMemo
Left = 0
Top = 150
Width = 647
Height = 159
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 1
ExplicitWidth = 513
ExplicitHeight = 229
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 647
Height = 49
Align = alTop
TabOrder = 2
ExplicitWidth = 513
object btnGet: TButton
AlignWithMargins = True
Left = 171
Top = 4
Width = 161
Height = 41
Align = alLeft
Caption = 'Get a protected resource'
TabOrder = 0
OnClick = btnGetClick
end
object btnLOGIN: TButton
AlignWithMargins = True
Left = 4
Top = 4
Width = 161
Height = 41
Align = alLeft
Caption = 'Login'
TabOrder = 1
OnClick = btnLOGINClick
end
end
object Memo3: TMemo
Left = 0
Top = 312
Width = 647
Height = 148
Align = alBottom
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 3
end
end