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

object RootForm: TRootForm
  Left = 241
  Height = 173
  Top = 127
  Width = 304
  BorderStyle = bsDialog
  Caption = 'Pick Your Example'
  ClientHeight = 173
  ClientWidth = 304
  Color = clBtnFace
  Font.Color = clWindowText
  LCLVersion = '1.9.0.0'
  Scaled = False
  object ObserverBtn: TButton
    AnchorSideLeft.Control = Owner
    AnchorSideLeft.Side = asrCenter
    Left = 116
    Height = 25
    Top = 16
    Width = 73
    AutoSize = True
    Caption = 'Observer'
    OnClick = ObserverBtnClick
    TabOrder = 0
  end
  object MediatorBtn: TButton
    AnchorSideLeft.Control = ObserverBtn
    AnchorSideTop.Control = ChainBtn
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = ObserverBtn
    AnchorSideRight.Side = asrBottom
    Left = 116
    Height = 25
    Top = 70
    Width = 73
    Anchors = [akTop, akLeft, akRight]
    AutoSize = True
    BorderSpacing.Top = 2
    Caption = 'Mediator'
    OnClick = MediatorBtnClick
    TabOrder = 1
  end
  object ChainBtn: TButton
    AnchorSideLeft.Control = ObserverBtn
    AnchorSideTop.Control = ObserverBtn
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = ObserverBtn
    AnchorSideRight.Side = asrBottom
    Left = 116
    Height = 25
    Top = 43
    Width = 73
    Anchors = [akTop, akLeft, akRight]
    AutoSize = True
    BorderSpacing.Top = 2
    Caption = 'Chain'
    OnClick = ChainBtnClick
    TabOrder = 2
  end
  object SingletonBtn: TButton
    AnchorSideLeft.Control = ObserverBtn
    AnchorSideTop.Control = MediatorBtn
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = ObserverBtn
    AnchorSideRight.Side = asrBottom
    Left = 116
    Height = 25
    Top = 97
    Width = 73
    Anchors = [akTop, akLeft, akRight]
    AutoSize = True
    BorderSpacing.Top = 2
    Caption = 'Singleton'
    OnClick = SingletonBtnClick
    TabOrder = 3
  end
  object ExitBtn: TButton
    AnchorSideLeft.Control = Owner
    AnchorSideLeft.Side = asrCenter
    AnchorSideTop.Control = SingletonBtn
    AnchorSideTop.Side = asrBottom
    Left = 130
    Height = 25
    Top = 138
    Width = 44
    AutoSize = True
    BorderSpacing.Top = 16
    Caption = '&Exit'
    OnClick = ExitBtnClick
    TabOrder = 4
  end
end