lazarus-ccr/components/onguard/examples/exrgreg/exrgregu.lfm

object Form1: TForm1
  Left = 252
  Height = 308
  Top = 138
  Width = 493
  HorzScrollBar.Page = 492
  VertScrollBar.Page = 307
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Registration Code Example'
  ClientHeight = 308
  ClientWidth = 493
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object StatusLbl: TLabel
    AnchorSideLeft.Control = Info
    AnchorSideTop.Control = CloseBtn
    AnchorSideTop.Side = asrCenter
    Left = 12
    Height = 15
    Top = 261
    Width = 32
    BorderSpacing.Bottom = 12
    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 = 277
    Height = 15
    Top = 17
    Width = 96
    BorderSpacing.Left = 24
    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 = 406
    Height = 25
    Top = 256
    Width = 75
    Anchors = [akTop, akRight]
    BorderSpacing.Top = 12
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 12
    Kind = bkClose
    TabOrder = 1
  end
  object RemoveBtn: TButton
    AnchorSideTop.Control = CloseBtn
    AnchorSideRight.Control = CloseBtn
    Left = 305
    Height = 25
    Top = 256
    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 = 180
    Top = 49
    Width = 469
    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 "Usage" 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 TOgRegistrationCode 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 = 12
    Height = 3
    Top = 241
    Width = 469
    Anchors = [akTop, akLeft, akRight]
    Shape = bsTopLine
  end
  object OgRegistrationCode1: TOgRegistrationCode
    OnChecked = CodeChecked
    OnGetKey = GetKey
    OnGetCode = GetCode
    Left = 152
    Top = 224
  end
end