lazarus-ccr/components/onguard/examples/exusreg/exusregu.lfm

object Form1: TForm1
  Left = 252
  Height = 314
  Top = 138
  Width = 492
  HorzScrollBar.Page = 491
  VertScrollBar.Page = 299
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Usage Code Example'
  ClientHeight = 314
  ClientWidth = 492
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object StatusLbl: TLabel
    AnchorSideLeft.Control = Info
    AnchorSideTop.Control = CloseBtn
    AnchorSideTop.Side = asrCenter
    Left = 8
    Height = 15
    Top = 238
    Width = 32
    Caption = 'Status'
    Color = clNone
    ParentColor = False
  end
  object Label1: TLabel
    AnchorSideTop.Control = CodeBtn
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = CodeLbl
    Left = 304
    Height = 15
    Top = 13
    Width = 72
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 12
    Caption = 'Current code:'
    Color = clNone
    ParentColor = False
  end
  object CodeLbl: TLabel
    AnchorSideTop.Control = CodeBtn
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 388
    Height = 15
    Top = 13
    Width = 96
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 8
    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 = 409
    Height = 25
    Top = 233
    Width = 75
    Anchors = [akTop, akRight]
    BorderSpacing.Top = 12
    BorderSpacing.Right = 8
    BorderSpacing.Bottom = 8
    Kind = bkClose
    TabOrder = 1
  end
  object RemoveBtn: TButton
    AnchorSideTop.Control = CloseBtn
    AnchorSideRight.Control = CloseBtn
    Left = 304
    Height = 25
    Top = 233
    Width = 97
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 8
    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 = 165
    Top = 41
    Width = 476
    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 "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 TOgUsageCode 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 = 218
    Width = 476
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 12
    Shape = bsTopLine
  end
  object OgUsageCode1: TOgUsageCode
    OnChecked = CodeChecked
    OnGetKey = GetKey
    OnGetCode = GetCode
    OnChangeCode = ChangeCode
    Left = 184
    Top = 184
  end
end