You've already forked lazarus-ccr
eed17766fe
- 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
54 lines
1.0 KiB
Plaintext
54 lines
1.0 KiB
Plaintext
object Form1: TForm1
|
|
Left = 367
|
|
Height = 155
|
|
Top = 289
|
|
Width = 218
|
|
ActiveControl = Memo1
|
|
Caption = 'Usage Code Example'
|
|
ClientHeight = 155
|
|
ClientWidth = 218
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Position = poScreenCenter
|
|
LCLVersion = '0.9.27'
|
|
object Label1: TLabel
|
|
Left = 56
|
|
Height = 14
|
|
Top = 72
|
|
Width = 84
|
|
Caption = 'Available Runs: 0'
|
|
ParentColor = False
|
|
end
|
|
object Memo1: TMemo
|
|
Left = 8
|
|
Height = 59
|
|
Top = 8
|
|
Width = 197
|
|
Lines.Strings = (
|
|
'If you can edit this, your program '
|
|
'was '
|
|
'allowed to run'
|
|
)
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
end
|
|
object CloseBtn: TBitBtn
|
|
Left = 56
|
|
Height = 33
|
|
Top = 89
|
|
Width = 89
|
|
Kind = bkClose
|
|
NumGlyphs = 0
|
|
TabOrder = 1
|
|
end
|
|
object OgUsageCode1: TOgUsageCode
|
|
OnChecked = OgUsageCode1Checked
|
|
OnGetKey = OgUsageCode1GetKey
|
|
OnGetCode = OgUsageCode1GetCode
|
|
OnChangeCode = OgUsageCode1ChangeCode
|
|
left = 88
|
|
top = 160
|
|
end
|
|
end
|