lazarus-ccr/components/systools/examples/patterns/singlton.lfm

object SingletonForm: TSingletonForm
  Left = 608
  Height = 139
  Top = 122
  Width = 440
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'The Singleton Test Form'
  ClientHeight = 139
  ClientWidth = 440
  Color = clBtnFace
  Font.Color = clWindowText
  OnCreate = FormCreate
  LCLVersion = '1.9.0.0'
  object Panel1: TPanel
    Left = 0
    Height = 128
    Top = 8
    Width = 440
    BevelOuter = bvNone
    ClientHeight = 128
    ClientWidth = 440
    TabOrder = 0
    object Label1: TLabel
      Left = 88
      Height = 15
      Top = 8
      Width = 89
      Caption = 'Singleton Count:'
      ParentColor = False
    end
    object Display1: TEdit
      Left = 288
      Height = 23
      Top = 40
      Width = 45
      TabOrder = 0
      Text = '(empty)'
    end
    object CnR1: TButton
      Left = 220
      Height = 25
      Top = 40
      Width = 52
      AutoSize = True
      Caption = 'Read'
      OnClick = CnR1Click
      TabOrder = 1
    end
    object Set1: TButton
      Left = 344
      Height = 25
      Top = 40
      Width = 74
      AutoSize = True
      Caption = 'Set Value'
      OnClick = Set1Click
      TabOrder = 2
    end
    object CnR2: TButton
      Left = 220
      Height = 25
      Top = 64
      Width = 52
      AutoSize = True
      Caption = 'Read'
      OnClick = CnR2Click
      TabOrder = 3
    end
    object Display2: TEdit
      Left = 288
      Height = 23
      Top = 64
      Width = 45
      TabOrder = 4
      Text = '(empty)'
    end
    object Set2: TButton
      Left = 344
      Height = 25
      Top = 64
      Width = 74
      AutoSize = True
      Caption = 'Set Value'
      OnClick = Set2Click
      TabOrder = 5
    end
    object CnR3: TButton
      Left = 220
      Height = 25
      Top = 88
      Width = 52
      AutoSize = True
      Caption = 'Read'
      OnClick = CnR3Click
      TabOrder = 6
    end
    object Display3: TEdit
      Left = 288
      Height = 23
      Top = 88
      Width = 45
      TabOrder = 7
      Text = '(empty)'
    end
    object Set3: TButton
      Left = 344
      Height = 25
      Top = 88
      Width = 74
      AutoSize = True
      Caption = 'Set Value'
      OnClick = Set3Click
      TabOrder = 8
    end
    object Create1: TButton
      Left = 20
      Height = 25
      Top = 40
      Width = 60
      AutoSize = True
      Caption = 'Create'
      OnClick = Create1Click
      TabOrder = 9
    end
    object Create2: TButton
      Left = 20
      Height = 25
      Top = 64
      Width = 60
      AutoSize = True
      Caption = 'Create'
      OnClick = Create2Click
      TabOrder = 10
    end
    object Create3: TButton
      Left = 20
      Height = 25
      Top = 88
      Width = 60
      AutoSize = True
      Caption = 'Create'
      OnClick = Create3Click
      TabOrder = 11
    end
    object Free1: TButton
      Left = 160
      Height = 25
      Top = 40
      Width = 48
      AutoSize = True
      Caption = 'Free'
      OnClick = Free1Click
      TabOrder = 12
    end
    object Free2: TButton
      Left = 160
      Height = 25
      Top = 64
      Width = 48
      AutoSize = True
      Caption = 'Free'
      OnClick = Free2Click
      TabOrder = 13
    end
    object Free3: TButton
      Left = 160
      Height = 25
      Top = 88
      Width = 48
      AutoSize = True
      Caption = 'Free'
      OnClick = Free3Click
      TabOrder = 14
    end
    object Counter: TEdit
      Left = 184
      Height = 23
      Top = 4
      Width = 33
      Enabled = False
      TabOrder = 15
      Text = '0'
    end
    object Ref1: TEdit
      Left = 94
      Height = 23
      Top = 40
      Width = 50
      Enabled = False
      TabOrder = 16
      Text = 'ref is nil'
    end
    object Ref2: TEdit
      Left = 94
      Height = 23
      Top = 64
      Width = 50
      Enabled = False
      TabOrder = 17
      Text = 'ref is nil'
    end
    object Ref3: TEdit
      Left = 94
      Height = 23
      Top = 88
      Width = 50
      Enabled = False
      TabOrder = 18
      Text = 'ref is nil'
    end
  end
end