mirror of
https://github.com/salvadordf/CEF4Delphi.git
synced 2024-12-04 09:26:52 +02:00
e93fd29623
- Added TCEFOAuth2Helper - Added OAuth2Tester demo - Added GetDefaultCEFUserAgent function to the uCEFMiscFunctions unit.
216 lines
4.6 KiB
Plaintext
216 lines
4.6 KiB
Plaintext
object OAuth2TesterFrm: TOAuth2TesterFrm
|
|
Left = 352
|
|
Height = 658
|
|
Top = 162
|
|
Width = 609
|
|
BorderIcons = [biSystemMenu, biMinimize]
|
|
BorderStyle = bsSingle
|
|
Caption = 'OAuth 2.0 Browser'
|
|
ClientHeight = 658
|
|
ClientWidth = 609
|
|
Color = clBtnFace
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
OnCloseQuery = FormCloseQuery
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
Position = poScreenCenter
|
|
LCLVersion = '2.0.6.0'
|
|
object LoginGrp: TGroupBox
|
|
Left = 0
|
|
Height = 230
|
|
Top = 0
|
|
Width = 609
|
|
Align = alTop
|
|
Caption = 'Login information '
|
|
ClientHeight = 212
|
|
ClientWidth = 605
|
|
TabOrder = 0
|
|
object ClientIDLbl: TLabel
|
|
Left = 12
|
|
Height = 13
|
|
Top = 27
|
|
Width = 41
|
|
Caption = 'Client ID'
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object ClientSecretLbl: TLabel
|
|
Left = 12
|
|
Height = 13
|
|
Top = 53
|
|
Width = 60
|
|
Caption = 'Client secret'
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object ScopeLbl: TLabel
|
|
Left = 12
|
|
Height = 13
|
|
Top = 80
|
|
Width = 29
|
|
Caption = 'Scope'
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object AccessTokenLbl: TLabel
|
|
Left = 12
|
|
Height = 13
|
|
Top = 107
|
|
Width = 63
|
|
Caption = 'Access token'
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object RefreshTokenLbl: TLabel
|
|
Left = 12
|
|
Height = 13
|
|
Top = 134
|
|
Width = 68
|
|
Caption = 'Refresh token'
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object ClientIDEdt: TEdit
|
|
Left = 88
|
|
Height = 21
|
|
Top = 24
|
|
Width = 500
|
|
TabOrder = 0
|
|
end
|
|
object ClientSecretEdt: TEdit
|
|
Left = 88
|
|
Height = 21
|
|
Top = 50
|
|
Width = 500
|
|
TabOrder = 1
|
|
end
|
|
object ScopeEdt: TEdit
|
|
Left = 88
|
|
Height = 21
|
|
Top = 77
|
|
Width = 500
|
|
TabOrder = 2
|
|
Text = 'openid'
|
|
end
|
|
object AccessTokenEdt: TEdit
|
|
Left = 88
|
|
Height = 21
|
|
Top = 104
|
|
Width = 500
|
|
ReadOnly = True
|
|
TabOrder = 3
|
|
end
|
|
object RefreshTokenEdt: TEdit
|
|
Left = 88
|
|
Height = 21
|
|
Top = 131
|
|
Width = 500
|
|
ReadOnly = True
|
|
TabOrder = 4
|
|
end
|
|
object LoginBtn: TButton
|
|
Left = 88
|
|
Height = 30
|
|
Top = 169
|
|
Width = 196
|
|
Caption = 'User login'
|
|
OnClick = LoginBtnClick
|
|
TabOrder = 5
|
|
end
|
|
object RefreshBtn: TButton
|
|
Left = 392
|
|
Height = 30
|
|
Top = 169
|
|
Width = 196
|
|
Caption = 'Request new token'
|
|
OnClick = RefreshBtnClick
|
|
TabOrder = 6
|
|
end
|
|
end
|
|
object LogGrp: TGroupBox
|
|
Left = 0
|
|
Height = 364
|
|
Top = 294
|
|
Width = 609
|
|
Align = alBottom
|
|
Caption = ' Log '
|
|
ClientHeight = 346
|
|
ClientWidth = 605
|
|
TabOrder = 1
|
|
object LogMem: TMemo
|
|
Left = 0
|
|
Height = 346
|
|
Top = 0
|
|
Width = 605
|
|
Align = alClient
|
|
ReadOnly = True
|
|
ScrollBars = ssBoth
|
|
TabOrder = 0
|
|
WordWrap = False
|
|
end
|
|
end
|
|
object ApiPnl: TPanel
|
|
Left = 0
|
|
Height = 64
|
|
Top = 230
|
|
Width = 609
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
ClientHeight = 64
|
|
ClientWidth = 609
|
|
TabOrder = 2
|
|
object ApiGrp: TGroupBox
|
|
Left = 0
|
|
Height = 64
|
|
Top = 0
|
|
Width = 609
|
|
Align = alClient
|
|
Caption = 'API information '
|
|
ClientHeight = 46
|
|
ClientWidth = 605
|
|
TabOrder = 0
|
|
object EndpointLbl: TLabel
|
|
Left = 12
|
|
Height = 13
|
|
Top = 12
|
|
Width = 42
|
|
Caption = 'Endpoint'
|
|
ParentColor = False
|
|
end
|
|
object EndpointEdt: TEdit
|
|
Left = 88
|
|
Height = 21
|
|
Top = 9
|
|
Width = 425
|
|
TabOrder = 0
|
|
Text = 'https://www.googleapis.com/oauth2/v3/userinfo'
|
|
end
|
|
object RequestBtn: TButton
|
|
Left = 519
|
|
Height = 25
|
|
Top = 7
|
|
Width = 69
|
|
Caption = 'Request'
|
|
OnClick = RequestBtnClick
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|
|
object CEFServerComponent1: TCEFServerComponent
|
|
OnServerDestroyed = CEFServerComponent1ServerDestroyed
|
|
OnHttpRequest = CEFServerComponent1HttpRequest
|
|
left = 383
|
|
top = 480
|
|
end
|
|
object CEFUrlRequestClientComponent1: TCEFUrlRequestClientComponent
|
|
OnRequestComplete = CEFUrlRequestClientComponent1RequestComplete
|
|
OnDownloadProgress = CEFUrlRequestClientComponent1DownloadProgress
|
|
OnDownloadData = CEFUrlRequestClientComponent1DownloadData
|
|
OnCreateURLRequest = CEFUrlRequestClientComponent1CreateURLRequest
|
|
left = 383
|
|
top = 544
|
|
end
|
|
end
|