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 :