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.4.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'
    )
    TraceFlags = []
    Options = []
    left = 320
    top = 24
  end
end
Revision:	31
Committed:	Tue Jul 14 15:31:25 2015 UTC (8 years, 9 months ago) by tony
File size:	765 byte(s)
Log Message:	Committing updates for Release R1-3-0
#	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			LCLVersion = '1.4.0.4'
11			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			)
35			TraceFlags = []
36			Options = []
37			left = 320
38			top = 24
39			end
40			end