lazarus-ccr/components/onguard/examples/exselect/exselec1.lfm

object Form1: TForm1
  Left = 287
  Height = 274
  Top = 102
  Width = 369
  HorzScrollBar.Page = 368
  VertScrollBar.Page = 249
  ActiveControl = Memo1
  Caption = 'ExSelect: '
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Menu = MainMenu1
  OnCreate = FormCreate
  object Memo1: TMemo
    Left = 16
    Height = 145
    Top = 8
    Width = 329
    Color = clAqua
    Lines.Strings = (
      '   This example uses the TOgUsageCode and the TOgSpecialCode'
      '   components 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  must 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 '
      '   release code you need to run the companion example '
      '   EXSLCODE.  The release codes will be stored in a data file '
      '   called EXSELECT.DAT'
    )
    ReadOnly = True
    TabOrder = 0
  end
  object ModifyBtn: TButton
    Left = 120
    Height = 25
    Top = 176
    Width = 113
    BorderSpacing.InnerBorder = 4
    Caption = 'Modify Features'
    Enabled = False
    OnClick = ModifyBtnClick
    TabOrder = 1
  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
  object OgUsageCode1: TOgUsageCode
    AutoCheck = False
    OnChecked = OgUsageCode1Checked
    OnGetKey = OgUsageCode1GetKey
    OnGetCode = OgUsageCode1GetCode
    AutoDecrease = False
    OnChangeCode = OgUsageCode1ChangeCode
    left = 168
    top = 48
  end
  object OgSpecialCode1: TOgSpecialCode
    AutoCheck = False
    OnChecked = OgSpecialCode1Checked
    OnGetKey = OgSpecialCode1GetKey
    OnGetCode = OgSpecialCode1GetCode
    OnGetModifier = OgSpecialCode1GetModifier
    left = 168
    top = 16
  end
end