Files
lazarus-ccr/components/onguard/examples/exselapi/exselap1.lfm
brandysb eed17766fe - fixed obsolete TextHeight properties from lfm resources
- initial support for InvalidCount , which allow to run program even if trial rules are broken (but only exactly set count)
- IDE serial number used instead of volume serial

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@921 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2009-07-28 13:17:46 +00:00

78 lines
2.0 KiB
Plaintext

object Form1: TForm1
Left = 406
Height = 266
Top = 322
Width = 357
ActiveControl = Memo1
Caption = 'ExSelAPI: '
ClientHeight = 246
ClientWidth = 357
Font.Height = -11
Font.Name = 'MS Sans Serif'
Menu = MainMenu1
OnCreate = FormCreate
LCLVersion = '0.9.27'
object Memo1: TMemo
Left = 16
Height = 145
Top = 8
Width = 313
Color = clAqua
Lines.Strings = (
' 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'
' 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 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'
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
end