lazarus-ccr/components/onguard/examples/exspreg/exspregu.lfm

object Form1: TForm1
  Left = 252
  Height = 303
  Top = 138
  Width = 450
  HorzScrollBar.Page = 486
  VertScrollBar.Page = 302
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Special Registration Data Code Example'
  ClientHeight = 303
  ClientWidth = 450
  Constraints.MinWidth = 450
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object StatusLbl: TLabel
    AnchorSideLeft.Control = Info
    AnchorSideTop.Control = CloseBtn
    AnchorSideTop.Side = asrCenter
    Left = 8
    Height = 15
    Top = 260
    Width = 32
    Caption = 'Status'
    Color = clNone
    ParentColor = False
  end
  object Label1: TLabel
    AnchorSideLeft.Control = CodeBtn
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = CodeBtn
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = CodeLbl
    Left = 157
    Height = 15
    Top = 13
    Width = 72
    BorderSpacing.Left = 60
    BorderSpacing.Right = 8
    Caption = 'Current code:'
    Color = clNone
    ParentColor = False
  end
  object CodeLbl: TLabel
    AnchorSideLeft.Control = Label1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = CodeBtn
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Side = asrBottom
    Left = 238
    Height = 15
    Top = 13
    Width = 96
    BorderSpacing.Left = 9
    Caption = '0000000000000000'
    Color = clNone
    ParentColor = False
  end
  object CodeBtn: TButton
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 8
    Height = 25
    Top = 8
    Width = 89
    BorderSpacing.Around = 8
    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 = 367
    Height = 25
    Top = 255
    Width = 75
    Anchors = [akTop, akRight]
    BorderSpacing.Around = 8
    Kind = bkClose
    TabOrder = 1
  end
  object RemoveBtn: TButton
    AnchorSideTop.Control = CloseBtn
    AnchorSideRight.Control = CloseBtn
    Left = 262
    Height = 25
    Top = 255
    Width = 97
    Anchors = [akTop, akRight]
    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 = 8
    Height = 195
    Top = 41
    Width = 434
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 8
    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 "Special" 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 TOgSpecialCode component to report that the code is invalid.'
    Color = clBtnFace
    ParentColor = False
    WordWrap = True
  end
  object Bevel1: TBevel
    AnchorSideLeft.Control = Info
    AnchorSideTop.Control = Info
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Info
    AnchorSideRight.Side = asrBottom
    Left = 8
    Height = 3
    Top = 244
    Width = 434
    Anchors = [akTop, akLeft, akRight]
    Shape = bsTopLine
  end
  object OgSpecialCode1: TOgSpecialCode
    OnChecked = CodeChecked
    OnGetKey = GetKey
    OnGetCode = GetCode
    Left = 168
    Top = 136
  end
end