99 lines
2.3 KiB
Plaintext
99 lines
2.3 KiB
Plaintext
object Form1: TForm1
|
|
Left = 252
|
|
Height = 304
|
|
Top = 138
|
|
Width = 495
|
|
HorzScrollBar.Page = 494
|
|
VertScrollBar.Page = 303
|
|
BorderStyle = bsDialog
|
|
Caption = 'Serial Number Code Example'
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Position = poScreenCenter
|
|
object StatusLbl: TLabel
|
|
Left = 8
|
|
Height = 13
|
|
Top = 262
|
|
Width = 35
|
|
Caption = 'Status'
|
|
Color = clNone
|
|
ParentColor = False
|
|
end
|
|
object Label1: TLabel
|
|
Left = 232
|
|
Height = 13
|
|
Top = 14
|
|
Width = 77
|
|
Caption = 'Current code:'
|
|
Color = clNone
|
|
ParentColor = False
|
|
end
|
|
object CodeLbl: TLabel
|
|
Left = 320
|
|
Height = 13
|
|
Top = 14
|
|
Width = 113
|
|
Caption = '0000000000000000'
|
|
Color = clNone
|
|
ParentColor = False
|
|
end
|
|
object CodeBtn: TButton
|
|
Left = 8
|
|
Height = 25
|
|
Top = 8
|
|
Width = 89
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Enter Code'
|
|
OnClick = CodeBtnClick
|
|
TabOrder = 0
|
|
end
|
|
object Memo1: TMemo
|
|
Left = 8
|
|
Height = 209
|
|
Top = 40
|
|
Width = 465
|
|
Color = clBtnFace
|
|
Lines.Strings = (
|
|
'The label at the bottom of this form indicates the status of the code. An invalid code indicates that '
|
|
'the code is either the incorrect type or that none has been entered. '
|
|
''
|
|
'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will '
|
|
'say that the code is invalid.'
|
|
''
|
|
'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate '
|
|
'the proper "Usage" code). '
|
|
''
|
|
'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so '
|
|
'will cause the TOgSerialNumberCode component to report that the code is invalid.'
|
|
)
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
end
|
|
object CloseBtn: TBitBtn
|
|
Left = 400
|
|
Height = 25
|
|
Top = 256
|
|
Width = 75
|
|
Kind = bkClose
|
|
NumGlyphs = 0
|
|
TabOrder = 2
|
|
end
|
|
object RemoveBtn: TButton
|
|
Left = 288
|
|
Height = 25
|
|
Top = 256
|
|
Width = 97
|
|
BorderSpacing.InnerBorder = 4
|
|
Caption = 'Remove Code'
|
|
OnClick = RemoveBtnClick
|
|
TabOrder = 3
|
|
end
|
|
object OgSerialNumberCode1: TOgSerialNumberCode
|
|
OnChecked = CodeChecked
|
|
OnGetKey = GetKey
|
|
OnGetCode = GetCode
|
|
left = 16
|
|
top = 208
|
|
end
|
|
end
|