lazarus-ccr/components/onguard/examples/exdtreg/exdtregu.lfm

object Form1: TForm1
  Left = 252
  Height = 309
  Top = 138
  Width = 484
  HorzScrollBar.Page = 483
  VertScrollBar.Page = 308
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Date Code Example'
  ClientHeight = 309
  ClientWidth = 484
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object StatusLbl: TLabel
    AnchorSideLeft.Control = Info
    AnchorSideTop.Control = CloseBtn
    AnchorSideTop.Side = asrCenter
    Left = 12
    Height = 15
    Top = 249
    Width = 32
    Caption = 'Status'
    Color = clNone
    ParentColor = False
  end
  object Label1: TLabel
    AnchorSideLeft.Control = CodeBtn
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = CodeBtn
    AnchorSideTop.Side = asrCenter
    Left = 181
    Height = 15
    Top = 17
    Width = 72
    BorderSpacing.Left = 80
    Caption = 'Current code:'
    Color = clNone
    ParentColor = False
  end
  object CodeLbl: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = CodeBtn
    AnchorSideTop.Side = asrCenter
    Left = 265
    Height = 15
    Top = 17
    Width = 96
    BorderSpacing.Left = 12
    Caption = '0000000000000000'
    Color = clNone
    ParentColor = False
  end
  object CodeBtn: TButton
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 12
    Height = 25
    Top = 12
    Width = 89
    BorderSpacing.Around = 12
    BorderSpacing.InnerBorder = 4
    Caption = 'Enter Code'
    OnClick = CodeBtnClick
    TabOrder = 0
  end
  object CloseBtn: TBitBtn
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 400
    Height = 25
    Top = 244
    Width = 75
    Anchors = [akTop]
    BorderSpacing.Top = 12
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 12
    Kind = bkClose
    TabOrder = 1
  end
  object RemoveBtn: TButton
    AnchorSideTop.Control = CloseBtn
    AnchorSideRight.Control = CloseBtn
    Left = 299
    Height = 25
    Top = 244
    Width = 97
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 4
    BorderSpacing.InnerBorder = 4
    Caption = 'Remove Code'
    OnClick = RemoveBtnClick
    TabOrder = 2
  end
  object Info: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = CodeBtn
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 12
    Height = 165
    Top = 49
    Width = 460
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 12
    Caption = '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. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Date" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgDateCode component to report that the code is invalid.'
    Color = clBtnFace
    ParentColor = False
    WordWrap = True
  end
  object Bevel1: TBevel
    AnchorSideLeft.Control = Info
    AnchorSideRight.Control = Info
    AnchorSideRight.Side = asrBottom
    Left = 12
    Height = 3
    Top = 229
    Width = 460
    Anchors = [akTop, akLeft, akRight]
    Shape = bsTopLine
  end
  object OgDateCode1: TOgDateCode
    OnChecked = CodeChecked
    OnGetKey = GetKey
    OnGetCode = GetCode
    Left = 168
    Top = 192
  end
end