main.dfm

very simple nonvisual Delphi component useful for shareware program developing. It uses crypted lic

object Form1: TForm1
  Left = 240
  Top = 131
  BorderStyle = bsSingle
  Caption = 'TArtLicence Demo'
  ClientHeight = 297
  ClientWidth = 329
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    000000000000000000000000000000000FFFFFFFFFFFFFFF333FFFF000000000
    0F000000000FFF33BBB33FF0000000000FFFFFFFFFFFF3BBBBBBB3F000000000
    0FCCFCCFFFFFF3BBB3BBB3F0000000000FCCFFCCFFFF3BBB3B3BBB3000000000
    0FCFCFFCFFFF3BBB3B3BBB30000000000FCFCFFCFCFFF3BBB3BBB3F000000000
    0FFCCFFFFFCFF3BBBBBBB3F0000000000FFCCFFFFFFFFF33BBB33FF000000000
    0FFFCFFFFFFFFFFF333FFFF0000000000FFFFFFFFFFFFFFFFFFFFFF000000000
    0FFFFFFFFFFFFFFFFFFFFFF0000000000FFFFFFFFFFFFFFFFFFFFFF000000000
    0F000000000000000FFFFFF0000000000FFFFFFFFFFFFFFFFFFFFFF000000000
    0F000000000000FFFFFFFFF0000000000FFFFFFFFFFFFFFFFFFFFFF000000000
    0F0000000000000FFFFFFFF0000000000FFFFFFFFFFFFFFFFFFFFFF000000000
    0FFFFFFFFFFFFFFFFFFFFFF0000000000F0000000000000FFFFFFFF000000000
    0FFFFFFFFFFFFFFFFFFFFFF0000000000F0000000000000000FFFFF000000000
    0FFFFFFFFFFFFFFFFFFFFFF0000000000FFFFFFFFFFFFFFFFFFFFFF000000000
    0FFFFFFFFFFFFFFFFFFFFFF0000000000F00F0F00F00F070F00F00F000000000
    0F0FF0F0FF07F000F0FF07F0000000000F0FF0F00F00F070F00F00F000000000
    0FFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000F000
    000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000
    000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000
    000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF000
    000FF000000FF000000FF000000FF000000FF000000FF000000FF000000F}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 329
    Height = 49
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 96
      Top = 8
      Width = 105
      Height = 13
      Caption = 'Basic functionality'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 96
      Top = 24
      Width = 109
      Height = 13
      Caption = 'License is not required.'
    end
    object Button1: TButton
      Left = 240
      Top = 16
      Width = 75
      Height = 25
      Caption = 'Basic'
      TabOrder = 0
      OnClick = Button1Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 196
    Width = 329
    Height = 49
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 1
    object ProC: TLabel
      Left = 112
      Top = 8
      Width = 93
      Height = 13
      Caption = 'Pro functionality'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnShadow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object ProI: TLabel
      Left = 104
      Top = 24
      Width = 100
      Height = 13
      Caption = 'Requires Pro license.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnShadow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object ProB: TButton
      Left = 240
      Top = 16
      Width = 75
      Height = 25
      Caption = 'Pro'
      Enabled = False
      TabOrder = 0
      OnClick = ProBClick
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 147
    Width = 329
    Height = 49
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 2
    object SpecialC: TLabel
      Left = 96
      Top = 8
      Width = 116
      Height = 13
      Caption = 'Special functionality'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnShadow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object SpecialI: TLabel
      Left = 80
      Top = 24
      Width = 150
      Height = 13
      Caption = 'Requires Special or Pro license.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnShadow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SpecialB: TButton
      Left = 240
      Top = 16
      Width = 75
      Height = 25
      Caption = 'Special'
      Enabled = False
      TabOrder = 0
      OnClick = SpecialBClick
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 98
    Width = 329
    Height = 49
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 3
    object SimpleC: TLabel
      Left = 96
      Top = 8
      Width = 111
      Height = 13
      Caption = 'Simple functionality'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnShadow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object SimpleI: TLabel
      Left = 80
      Top = 24
      Width = 146
      Height = 13
      Caption = 'Requires Simple or Pro license.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBtnShadow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SimpleB: TButton
      Left = 240
      Top = 16
      Width = 75
      Height = 25
      Caption = 'Simple'
      Enabled = False
      TabOrder = 0
      OnClick = SimpleBClick
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 49
    Width = 329
    Height = 49
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 4
    object Label9: TLabel
      Left = 88
      Top = 8
      Width = 130
      Height = 13
      Caption = 'Additional functionality'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 24
      Top = 24
      Width = 280
      Height = 13
      Caption = 
        'Install license (File menu) to activate additional functionality' +
        '.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
  object Panel6: TPanel
    Left = 0
    Top = 245
    Width = 329
    Height = 49
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 5
    object Label3: TLabel
      Left = 88
      Top = 8
      Width = 134
      Height = 13
      Caption = 'Aditional Licence Data:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Ex: TLabel
      Left = 8
      Top = 24
      Width = 313
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 160
    object File1: TMenuItem
      Caption = '&File'
      object InstallLicense1: TMenuItem
        Caption = 'Install &License'
        OnClick = InstallLicense1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        OnClick = Exit1Click
      end
    end
    object Functionality1: TMenuItem
      Caption = 'F&unctionality'
      object Basic1: TMenuItem
        Caption = '&Basic'
        OnClick = Button1Click
      end
      object SimpleM: TMenuItem
        Caption = '&Simple'
        Enabled = False
        OnClick = SimpleBClick
      end
      object SpecialM: TMenuItem
        Caption = 'Sp&ecial'
        Enabled = False
        OnClick = SpecialBClick
      end
      object ProM: TMenuItem
        Caption = '&Pro'
        Enabled = False
        OnClick = ProBClick
      end
    end
    object About1: TMenuItem
      Caption = '&About'
      object Aboutdemo1: TMenuItem
        Caption = 'About demo'
        OnClick = Aboutdemo1Click
      end
    end
  end
  object OD: TOpenDialog
    DefaultExt = '.lic'
    Filter = 'Licence files (*.lic)|*.lic|All files (*.*)|*.*'
    InitialDir = 'lic'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Title = 'Select licence file'
    Left = 24
    Top = 212
  end
  object Lic: TArtLicense
    Message = 'License has expired!'
    Code = 'TArtLicense Demo'
    UseDate = True
    TestDate = 38353.000000000000000000
    Key = '5D038A5C104EDC07AF9A8A3ED31E83171B728DC956E2917A3A7BBB'
    Left = 24
    Top = 106
  end
end