Componentes.Terceros.RemObjects/official/5.0.23.613/RemObjects SDK for Delphi/Samples/Class Factories/ClassFactoryClientMain.dfm

object ClassFactoryClientMainForm: TClassFactoryClientMainForm
  Left = 89
  Top = 114
  AutoScroll = False
  Caption = 'Class Factory Client'
  ClientHeight = 338
  ClientWidth = 445
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 433
    Height = 105
    Caption = 'Singleton Class Factory'
    TabOrder = 0
    object Label1: TLabel
      Left = 187
      Top = 33
      Width = 233
      Height = 39
      Caption = 
        'Singleton: this server side object is created only once. If you ' +
        'Set a value all clients connected will Get the same.'
      WordWrap = True
    end
    object seSingleton: TSpinEdit
      Left = 27
      Top = 32
      Width = 121
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 0
      Value = 0
    end
    object SingletonGetButton: TButton
      Left = 11
      Top = 64
      Width = 75
      Height = 25
      Caption = 'Get'
      TabOrder = 1
      OnClick = SingletonGetButtonClick
    end
    object SingletonSetButton: TButton
      Left = 91
      Top = 64
      Width = 75
      Height = 25
      Caption = 'Set'
      TabOrder = 2
      OnClick = SingletonSetButtonClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 120
    Width = 433
    Height = 105
    Caption = 'Single-Call Class Factory'
    TabOrder = 1
    object Label2: TLabel
      Left = 188
      Top = 27
      Width = 233
      Height = 52
      Caption = 
        'Single-Call (base class factory): all instances are created on d' +
        'emand and destroyed at the end of the method call. This is the p' +
        'referred class factory if you need high scalability and fail-ove' +
        'r.'
      WordWrap = True
    end
    object seSingleCall: TSpinEdit
      Left = 27
      Top = 32
      Width = 121
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 0
      Value = 0
    end
    object SingleCallSetButton: TButton
      Left = 50
      Top = 61
      Width = 75
      Height = 25
      Caption = 'Set'
      TabOrder = 1
      OnClick = SingleCallSetButtonClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 232
    Width = 433
    Height = 105
    Caption = 'Pooled Class Factory'
    TabOrder = 2
    object Label3: TLabel
      Left = 188
      Top = 20
      Width = 233
      Height = 65
      Caption = 
        'Pooled Class Factory: two instances of the server side object ar' +
        'e being pooled. See how you access a different object by setting' +
        ' two different values (i.e. 1 and 2 ) and then clicking on the G' +
        'et button multiple times from different clients.'
      WordWrap = True
    end
    object spPooled: TSpinEdit
      Left = 27
      Top = 32
      Width = 121
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 0
      Value = 0
    end
    object PooledGetButton: TButton
      Left = 11
      Top = 64
      Width = 75
      Height = 25
      Caption = 'Get'
      TabOrder = 1
      OnClick = PooledGetButtonClick
    end
    object PooledSetButton: TButton
      Left = 91
      Top = 64
      Width = 75
      Height = 25
      Caption = 'Set'
      TabOrder = 2
      OnClick = PooledSetButtonClick
    end
  end
  object ROBINMessage: TROBinMessage
    Left = 64
    Top = 16
  end
  object ROIndyTCPChannel: TROIndyTCPChannel
    ServerLocators = <>
    DispatchOptions = []
    Port = 8090
    Host = '127.0.0.1'
    Left = 104
    Top = 16
  end
end