lazarus-ccr/components/onguard/examples/exselapi/exselap1.lfm

object Form1: TForm1
  Left = 406
  Height = 266
  Top = 322
  Width = 357
  AutoSize = True
  Caption = 'ExSelAPI: '
  ClientHeight = 266
  ClientWidth = 357
  Menu = MainMenu1
  OnCreate = FormCreate
  LCLVersion = '2.3.0.0'
  object ModifyBtn: TButton
    AnchorSideLeft.Control = Owner
    AnchorSideLeft.Side = asrCenter
    AnchorSideTop.Control = Memo1
    AnchorSideTop.Side = asrBottom
    Left = 122
    Height = 25
    Top = 182
    Width = 113
    BorderSpacing.Bottom = 16
    BorderSpacing.InnerBorder = 4
    Caption = 'Modify Features'
    OnClick = ModifyBtnClick
    TabOrder = 0
  end
  object Memo1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 16
    Height = 150
    Top = 16
    Width = 325
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 16
    Caption = 'This example uses the OgUsageCode and the OgSpecialCode (via OnGuard API functions) to implement a limited use "demo" application which allows only the required features. The program can be run 3 times and then a special code st be obtained to register the program and to enable various features.  A machine modifier is used to prevent the application from being copied and run on another machine.  To obtain the release code you need to run the companion example EXSLCODE.  The release codes will be stored in a data file called EXSELECT.DAT'
    Color = clAqua
    ParentColor = False
    WordWrap = True
  end
  object MainMenu1: TMainMenu
    Left = 32
    Top = 168
    object FeaturesMenu: TMenuItem
      Caption = 'Features'
      object FeaturesRequired: TMenuItem
        Caption = 'Required'
        Checked = True
      end
      object FeaturesHelp: TMenuItem
        Caption = 'Help'
        Enabled = False
      end
      object FeaturesExamples: TMenuItem
        Caption = 'Examples'
        Enabled = False
      end
      object FeaturesDatabase: TMenuItem
        Caption = 'Database'
        Enabled = False
      end
      object FeaturesFax: TMenuItem
        Caption = 'Fax'
        Enabled = False
      end
      object FeaturesGoodies: TMenuItem
        Caption = 'Goodies'
        Enabled = False
      end
    end
  end
end