object Form1: TForm1 Left = 287 Height = 274 Top = 102 Width = 369 HorzScrollBar.Page = 368 VertScrollBar.Page = 249 AutoSize = True Caption = 'ExSelect: ' ClientHeight = 274 ClientWidth = 369 Menu = MainMenu1 OnCreate = FormCreate LCLVersion = '2.3.0.0' object ModifyBtn: TButton AnchorSideLeft.Control = Owner AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = Info AnchorSideTop.Side = asrBottom Left = 128 Height = 25 Top = 227 Width = 113 BorderSpacing.Bottom = 16 BorderSpacing.InnerBorder = 4 Caption = 'Modify Features' Enabled = False OnClick = ModifyBtnClick TabOrder = 0 end object Info: TLabel AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 16 Height = 195 Top = 16 Width = 337 Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 16 Caption = 'This example uses the TOgUsageCode and the TOgSpecialCode components to implement a limited use "demo" application which allows only the required features. '#13#10#13#10'The program can be run 3 times and then a special code must be obtained to register the program and to enable various features. '#13#10#13#10'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' Color = clAqua ParentColor = False WordWrap = True end object MainMenu1: TMainMenu Left = 40 Top = 200 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