examples/services/Unit1.lfm

object Form1: TForm1
  Left = 1062
  Height = 370
  Top = 405
  Width = 453
  Caption = 'Server Properties'
  ClientHeight = 370
  ClientWidth = 453
  OnShow = FormShow
  LCLVersion = '1.6.0.4'
  object Memo1: TMemo
    Left = 8
    Height = 322
    Top = 9
    Width = 434
    Anchors = [akTop, akLeft, akRight, akBottom]
    TabOrder = 0
  end
  object Button1: TButton
    Left = 366
    Height = 25
    Top = 340
    Width = 75
    Anchors = [akRight, akBottom]
    Caption = 'Close'
    OnClick = Button1Click
    TabOrder = 1
  end
  object IBServerProperties1: TIBServerProperties
    ServerName = 'localhost'
    Protocol = TCP
    Params.Strings = (
      'user_name=SYSDBA'
      'password=Apples'
    )
    TraceFlags = []
    Options = []
    left = 320
    top = 24
  end
end
Revision:	39
Committed:	Tue May 17 08:14:52 2016 UTC (8 years, 6 months ago) by tony
File size:	789 byte(s)
Log Message:	Committing updates for Release R1-4-1
#	User	Rev	Content
1	tony	31	object Form1: TForm1
2			Left = 1062
3			Height = 370
4			Top = 405
5			Width = 453
6			Caption = 'Server Properties'
7			ClientHeight = 370
8			ClientWidth = 453
9			OnShow = FormShow
10	tony	39	LCLVersion = '1.6.0.4'
11	tony	31	object Memo1: TMemo
12			Left = 8
13			Height = 322
14			Top = 9
15			Width = 434
16			Anchors = [akTop, akLeft, akRight, akBottom]
17			TabOrder = 0
18			end
19			object Button1: TButton
20			Left = 366
21			Height = 25
22			Top = 340
23			Width = 75
24			Anchors = [akRight, akBottom]
25			Caption = 'Close'
26			OnClick = Button1Click
27			TabOrder = 1
28			end
29			object IBServerProperties1: TIBServerProperties
30			ServerName = 'localhost'
31			Protocol = TCP
32			Params.Strings = (
33			'user_name=SYSDBA'
34	tony	39	'password=Apples'
35	tony	31	)
36			TraceFlags = []
37			Options = []
38			left = 320
39			top = 24
40			end
41			end