mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-31 04:12:34 +02:00
114 lines
2.3 KiB
Plaintext
114 lines
2.3 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 456
|
|
Height = 388
|
|
Top = 191
|
|
Width = 666
|
|
Caption = 'Calendar Demo'
|
|
ClientHeight = 388
|
|
ClientWidth = 666
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
LCLVersion = '1.5'
|
|
object BFetchCalendars: TButton
|
|
Left = 8
|
|
Height = 25
|
|
Top = 8
|
|
Width = 128
|
|
Caption = 'Fetch calendars'
|
|
OnClick = BFetchCalendarsClick
|
|
TabOrder = 0
|
|
end
|
|
object GBAccess: TGroupBox
|
|
Left = 0
|
|
Height = 80
|
|
Top = 308
|
|
Width = 666
|
|
Align = alBottom
|
|
Caption = 'Please provide Google API access code'
|
|
ClientHeight = 52
|
|
ClientWidth = 662
|
|
TabOrder = 1
|
|
Visible = False
|
|
object LEAccess: TLabel
|
|
Left = 16
|
|
Height = 12
|
|
Top = 8
|
|
Width = 56
|
|
Caption = 'Access code'
|
|
ParentColor = False
|
|
end
|
|
object BSetAccess: TButton
|
|
Left = 490
|
|
Height = 25
|
|
Top = 9
|
|
Width = 75
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'OK'
|
|
OnClick = BSetAccessClick
|
|
TabOrder = 0
|
|
end
|
|
object BCancel: TButton
|
|
Left = 570
|
|
Height = 25
|
|
Top = 8
|
|
Width = 75
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Cancel'
|
|
OnClick = BCancelClick
|
|
TabOrder = 1
|
|
end
|
|
object EAccessCode: TEdit
|
|
Left = 112
|
|
Height = 18
|
|
Top = 8
|
|
Width = 362
|
|
Anchors = [akTop, akLeft, akRight]
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object BFetchEvents: TButton
|
|
Left = 548
|
|
Height = 25
|
|
Top = 8
|
|
Width = 96
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Fetch Events'
|
|
Enabled = False
|
|
OnClick = BFetchEventsClick
|
|
TabOrder = 2
|
|
end
|
|
object LBCalendars: TListBox
|
|
Left = 8
|
|
Height = 248
|
|
Top = 40
|
|
Width = 312
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
ItemHeight = 0
|
|
OnSelectionChange = LBCalendarsSelectionChange
|
|
ScrollWidth = 308
|
|
TabOrder = 3
|
|
TopIndex = -1
|
|
end
|
|
object LBEvents: TListBox
|
|
Left = 328
|
|
Height = 249
|
|
Top = 40
|
|
Width = 324
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
ItemHeight = 0
|
|
ScrollWidth = 320
|
|
TabOrder = 4
|
|
TopIndex = -1
|
|
end
|
|
object LEvents: TLabel
|
|
Left = 328
|
|
Height = 12
|
|
Top = 16
|
|
Width = 207
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = False
|
|
Caption = 'Events for calendar : <select a calendar>'
|
|
ParentColor = False
|
|
end
|
|
end
|