2008-10-31 21:18:20 +00:00
|
|
|
object Form1: TForm1
|
|
|
|
Left = 354
|
|
|
|
Height = 155
|
|
|
|
Top = 279
|
|
|
|
Width = 228
|
2023-02-17 16:28:47 +00:00
|
|
|
AutoSize = True
|
2023-02-20 11:17:45 +00:00
|
|
|
BorderStyle = bsDialog
|
2008-10-31 21:18:20 +00:00
|
|
|
Caption = 'Form1'
|
2009-07-28 13:17:46 +00:00
|
|
|
ClientHeight = 155
|
|
|
|
ClientWidth = 228
|
2008-10-31 21:18:20 +00:00
|
|
|
OnActivate = FormActivate
|
|
|
|
Position = poScreenCenter
|
2023-02-17 16:28:47 +00:00
|
|
|
LCLVersion = '2.3.0.0'
|
2023-02-20 11:17:45 +00:00
|
|
|
object lblExpires: TLabel
|
2023-02-17 16:28:47 +00:00
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
2023-02-20 11:17:45 +00:00
|
|
|
AnchorSideTop.Control = Info
|
2023-02-17 16:28:47 +00:00
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
Left = 64
|
|
|
|
Height = 15
|
|
|
|
Top = 54
|
|
|
|
Width = 101
|
2008-10-31 21:18:20 +00:00
|
|
|
Caption = 'Expires: 00/00/0000'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object CloseBtn: TBitBtn
|
2023-02-17 16:28:47 +00:00
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideLeft.Side = asrCenter
|
2023-02-20 11:17:45 +00:00
|
|
|
AnchorSideTop.Control = Bevel1
|
2023-02-17 16:28:47 +00:00
|
|
|
AnchorSideTop.Side = asrBottom
|
2023-02-20 11:17:45 +00:00
|
|
|
Left = 91
|
|
|
|
Height = 26
|
|
|
|
Top = 96
|
|
|
|
Width = 46
|
|
|
|
AutoSize = True
|
2023-02-17 16:28:47 +00:00
|
|
|
BorderSpacing.Around = 12
|
2008-10-31 21:18:20 +00:00
|
|
|
Kind = bkClose
|
2023-02-17 16:28:47 +00:00
|
|
|
TabOrder = 0
|
|
|
|
end
|
2023-02-20 11:17:45 +00:00
|
|
|
object Info: TLabel
|
2023-02-17 16:28:47 +00:00
|
|
|
AnchorSideLeft.Control = Owner
|
|
|
|
AnchorSideTop.Control = Owner
|
|
|
|
AnchorSideRight.Control = Owner
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
Left = 12
|
|
|
|
Height = 30
|
|
|
|
Top = 12
|
|
|
|
Width = 204
|
|
|
|
Anchors = [akTop, akLeft, akRight]
|
|
|
|
BorderSpacing.Around = 12
|
2023-04-28 23:25:39 +00:00
|
|
|
Caption = 'If you can see this, your program was allowed to run.'
|
2023-02-17 16:28:47 +00:00
|
|
|
WordWrap = True
|
2023-02-20 11:17:45 +00:00
|
|
|
OnDblClick = InfoDblClick
|
|
|
|
end
|
|
|
|
object Bevel1: TBevel
|
|
|
|
AnchorSideLeft.Control = Info
|
|
|
|
AnchorSideTop.Control = lblExpires
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = Info
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
Left = 12
|
|
|
|
Height = 3
|
|
|
|
Top = 81
|
|
|
|
Width = 204
|
|
|
|
Anchors = [akTop, akLeft, akRight]
|
|
|
|
BorderSpacing.Top = 12
|
|
|
|
Shape = bsTopLine
|
2008-10-31 21:18:20 +00:00
|
|
|
end
|
|
|
|
object OgDateCode1: TOgDateCode
|
|
|
|
OnChecked = OgDateCode1Checked
|
|
|
|
OnGetKey = OgDateCode1GetKey
|
|
|
|
OnGetCode = OgDateCode1GetCode
|
2023-02-20 17:36:51 +00:00
|
|
|
Left = 168
|
|
|
|
Top = 72
|
2008-10-31 21:18:20 +00:00
|
|
|
end
|
|
|
|
end
|