pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Alternate solution for issue #39061

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9090 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-12-17 23:18:28 +00:00
parent 58b00ac007
commit 7548f46b4f
13 changed files with 674 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
components/tvplanit/source/vpimportpreview_icalevent.lfm
View File

@ -4,17 +4,88 @@ inherited VpImportPreviewICalEventForm: TVpImportPreviewICalEventForm
Caption = ''
ClientHeight = 400
ClientWidth = 667
OnActivate = FormActivate
inherited ButtonPanel: TPanel
Top = 369
Width = 655
ClientWidth = 655
inherited btnExecute: TButton
Left = 446
BorderSpacing.Left = 8
OnClick = btnExecuteClick
end
inherited btnCancel: TButton
Left = 593
Width = 62
AutoSize = True
end
object lblOpenEndDuration: TLabel[2]
AnchorSideLeft.Control = ButtonPanel
AnchorSideTop.Control = ButtonPanel
AnchorSideTop.Side = asrCenter
Left = 6
Height = 15
Top = 5
Width = 163
BorderSpacing.Left = 6
BorderSpacing.Right = 8
Caption = 'Duration of "open end" events:'
Visible = False
end
object rbOpenEndDuration30mins: TRadioButton[3]
AnchorSideLeft.Control = lblOpenEndDuration
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ButtonPanel
AnchorSideTop.Side = asrCenter
Left = 177
Height = 19
Top = 3
Width = 54
BorderSpacing.Right = 9
Caption = '30 min'
TabOrder = 2
Visible = False
end
object rbOpenEndDuration1Hr: TRadioButton[4]
AnchorSideLeft.Control = rbOpenEndDuration30mins
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ButtonPanel
AnchorSideTop.Side = asrCenter
Left = 240
Height = 19
Top = 3
Width = 52
BorderSpacing.Right = 8
Caption = '1 hour'
TabOrder = 3
Visible = False
end
object rbOpenEndDuration2Hrs: TRadioButton[5]
AnchorSideLeft.Control = rbOpenEndDuration1Hr
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ButtonPanel
AnchorSideTop.Side = asrCenter
Left = 300
Height = 19
Top = 3
Width = 57
BorderSpacing.Right = 8
Caption = '2 hours'
TabOrder = 4
Visible = False
end
object rbOpenEndDuration4Hrs: TRadioButton[6]
AnchorSideLeft.Control = rbOpenEndDuration2Hrs
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ButtonPanel
AnchorSideTop.Side = asrCenter
Left = 365
Height = 19
Top = 3
Width = 57
Caption = '4 hours'
TabOrder = 5
Visible = False
end
end
end