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

object MediatorForm: TMediatorForm
  Left = 661
  Height = 278
  Top = 112
  Width = 561
  BorderStyle = bsDialog
  Caption = 'The Mediator Test Form'
  ClientHeight = 278
  ClientWidth = 561
  Color = clBtnFace
  Font.Color = clWindowText
  LCLVersion = '1.9.0.0'
  object Panel1: TPanel
    Left = 16
    Height = 114
    Top = 152
    Width = 232
    BevelOuter = bvNone
    ClientHeight = 114
    ClientWidth = 232
    TabOrder = 0
    object ASelectBox: TCheckBox
      Left = 8
      Height = 19
      Top = 8
      Width = 60
      Caption = 'A Event'
      TabOrder = 0
    end
    object BSelectBox: TCheckBox
      Left = 7
      Height = 19
      Top = 28
      Width = 59
      Caption = 'B Event'
      TabOrder = 1
    end
    object CSelectBox: TCheckBox
      Left = 8
      Height = 19
      Top = 48
      Width = 60
      Caption = 'C Event'
      TabOrder = 2
    end
    object DSelectBox: TCheckBox
      Left = 8
      Height = 19
      Top = 68
      Width = 60
      Caption = 'D Event'
      TabOrder = 3
    end
    object ESelectBox: TCheckBox
      Left = 8
      Height = 19
      Top = 88
      Width = 58
      Caption = 'E Event'
      TabOrder = 4
    end
    object Start: TButton
      Left = 120
      Height = 49
      Top = 28
      Width = 82
      Caption = 'Start'
      OnClick = StartClick
      TabOrder = 5
    end
  end
  object Panel2: TPanel
    Left = 280
    Height = 114
    Top = 152
    Width = 272
    BevelOuter = bvNone
    ClientHeight = 114
    ClientWidth = 272
    TabOrder = 1
    object Ch1Lbl: TLabel
      Left = 16
      Height = 15
      Top = 8
      Width = 51
      Caption = 'Handler 1'
      ParentColor = False
    end
    object Ch2Lbl: TLabel
      Left = 16
      Height = 15
      Top = 32
      Width = 51
      Caption = 'Handler 2'
      ParentColor = False
    end
    object Ch3Lbl: TLabel
      Left = 16
      Height = 15
      Top = 56
      Width = 51
      Caption = 'Handler 3'
      ParentColor = False
    end
    object Ch4Lbl: TLabel
      Left = 16
      Height = 15
      Top = 80
      Width = 51
      Caption = 'Handler 4'
      ParentColor = False
    end
    object H1Result: TLabel
      Left = 70
      Height = 1
      Top = 8
      Width = 1
      ParentColor = False
    end
    object H2Result: TLabel
      Left = 70
      Height = 1
      Top = 32
      Width = 1
      ParentColor = False
    end
    object H3Result: TLabel
      Left = 70
      Height = 1
      Top = 56
      Width = 1
      ParentColor = False
    end
    object H4Result: TLabel
      Left = 70
      Height = 1
      Top = 80
      Width = 1
      ParentColor = False
    end
  end
  object Panel3: TPanel
    Left = 0
    Height = 144
    Top = 0
    Width = 552
    BevelOuter = bvNone
    ClientHeight = 144
    ClientWidth = 552
    Font.Color = clWindowText
    ParentFont = False
    TabOrder = 2
    object AEvents: TRadioGroup
      Left = 16
      Height = 113
      Top = 16
      Width = 96
      AutoFill = True
      Caption = 'Event A'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 93
      ClientWidth = 92
      ItemIndex = 4
      Items.Strings = (
        'Handler 1'
        'Handler 2'
        'Handler 3'
        'Handler 4'
        'None'
      )
      TabOrder = 0
    end
    object BEvents: TRadioGroup
      Left = 120
      Height = 113
      Top = 16
      Width = 96
      AutoFill = True
      Caption = 'Event B'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 93
      ClientWidth = 92
      ItemIndex = 4
      Items.Strings = (
        'Handler 1'
        'Handler 2'
        'Handler 3'
        'Handler 4'
        'None'
      )
      TabOrder = 1
    end
    object CEvents: TRadioGroup
      Left = 216
      Height = 113
      Top = 16
      Width = 96
      AutoFill = True
      Caption = 'Event C'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 93
      ClientWidth = 92
      ItemIndex = 4
      Items.Strings = (
        'Handler 1'
        'Handler 2'
        'Handler 3'
        'Handler 4'
        'None'
      )
      TabOrder = 2
    end
    object DEvents: TRadioGroup
      Left = 328
      Height = 113
      Top = 16
      Width = 96
      AutoFill = True
      Caption = 'Event D'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 93
      ClientWidth = 92
      ItemIndex = 4
      Items.Strings = (
        'Handler 1'
        'Handler 2'
        'Handler 3'
        'Handler 4'
        'None'
      )
      TabOrder = 3
    end
    object EEvents: TRadioGroup
      Left = 440
      Height = 113
      Top = 16
      Width = 96
      AutoFill = True
      Caption = 'Event E'
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 1
      ClientHeight = 93
      ClientWidth = 92
      ItemIndex = 4
      Items.Strings = (
        'Handler 1'
        'Handler 2'
        'Handler 3'
        'Handler 4'
        'None'
      )
      TabOrder = 4
    end
  end
end