Files
lazarus-ccr/components/jvcllaz/examples/JvTimeFramework/tfalarm.lfm
2019-08-15 16:32:26 +00:00

159 lines
3.8 KiB
Plaintext

object AlarmForm: TAlarmForm
Left = 800
Height = 178
Top = 250
Width = 303
AutoSize = True
Caption = 'Reminder'
ClientHeight = 178
ClientWidth = 303
Position = poMainFormCenter
LCLVersion = '2.1.0.0'
object Panel1: TPanel
Left = 0
Height = 132
Top = 0
Width = 303
Align = alClient
AutoSize = True
BevelOuter = bvNone
ClientHeight = 132
ClientWidth = 303
TabOrder = 0
object Label1: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
Left = 16
Height = 15
Top = 16
Width = 51
BorderSpacing.Left = 16
BorderSpacing.Top = 16
Caption = 'The event'
ParentColor = False
end
object EventLabel: TLabel
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 16
Height = 15
Top = 39
Width = 271
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BorderSpacing.Right = 16
BorderSpacing.Bottom = 8
Caption = 'EventLabel'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object IsDueLabel: TLabel
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = EventLabel
AnchorSideTop.Side = asrBottom
Left = 16
Height = 15
Top = 62
Width = 37
Caption = 'is due: '
ParentColor = False
end
object TimeLabel: TLabel
AnchorSideLeft.Control = IsDueLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = IsDueLabel
Left = 53
Height = 15
Top = 62
Width = 57
Caption = 'TimeLabel'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label5: TLabel
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = IsDueLabel
AnchorSideTop.Side = asrBottom
Left = 16
Height = 15
Top = 101
Width = 86
BorderSpacing.Top = 24
Caption = 'Remind again in'
ParentColor = False
end
object seSnoozeTime: TSpinEdit
AnchorSideLeft.Control = Label5
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label5
AnchorSideTop.Side = asrCenter
Left = 110
Height = 23
Top = 97
Width = 74
Alignment = taRightJustify
BorderSpacing.Left = 8
BorderSpacing.Bottom = 16
TabOrder = 0
end
object cmbTimeUnits: TComboBox
AnchorSideLeft.Control = seSnoozeTime
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label5
AnchorSideTop.Side = asrCenter
Left = 192
Height = 23
Top = 97
Width = 76
BorderSpacing.Left = 8
BorderSpacing.Right = 8
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'minutes'
'hours'
'days'
)
Style = csDropDownList
TabOrder = 1
Text = 'minutes'
end
object Label6: TLabel
AnchorSideLeft.Control = cmbTimeUnits
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Label5
Left = 276
Height = 15
Top = 101
Width = 5
BorderSpacing.Right = 16
Caption = '?'
ParentColor = False
end
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 34
Top = 138
Width = 291
OKButton.Name = 'OKButton'
OKButton.Caption = 'Yes'
OKButton.DefaultCaption = False
OKButton.OnClick = OKButtonClick
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.Caption = 'No'
CancelButton.DefaultCaption = False
TabOrder = 1
ShowButtons = [pbOK, pbCancel]
end
end