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