examples/dbInfo/Unit1.lfm

object Form1: TForm1
  Left = 389
  Height = 339
  Top = 220
  Width = 487
  Caption = 'Database Information'
  ClientHeight = 339
  ClientWidth = 487
  DefaultMonitor = dmPrimary
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.8.0.4'
  object Memo1: TMemo
    Left = 12
    Height = 302
    Top = 18
    Width = 461
    Anchors = [akTop, akLeft, akRight, akBottom]
    Lines.Strings = (
      'Memo1'
    )
    ReadOnly = True
    ScrollBars = ssAutoVertical
    TabOrder = 0
  end
  object IBDatabase1: TIBDatabase
    Connected = False
    AfterConnect = IBDatabase1AfterConnect
    CreateIfNotExists = False
    AllowStreamedConnected = False
    DatabaseName = 'localhost:employee'
    Params.Strings = (
      'lc_ctype=UTF8'
      'user_name=SYSDBA'
    )
    IdleTimer = 0
    TraceFlags = []
    UseDefaultSystemCodePage = False
    left = 280
    top = 56
  end
  object IBDatabaseInfo1: TIBDatabaseInfo
    Database = IBDatabase1
    left = 328
    top = 56
  end
end
Revision:	68
Committed:	Tue Oct 17 10:07:58 2017 UTC (7 years, 1 month ago) by tony
File size:	997 byte(s)
Log Message:	IBX: Editor Positioning tidy up FBINTF: Trap uninitialised SQL parameters on SQL Exec. Avoids Unknown SQL Type errors. Consistent setting of Modified (SQLParam).
#	User	Rev	Content
1	tony	62	object Form1: TForm1
2	tony	68	Left = 389
3	tony	62	Height = 339
4	tony	68	Top = 220
5	tony	62	Width = 487
6			Caption = 'Database Information'
7			ClientHeight = 339
8			ClientWidth = 487
9	tony	68	DefaultMonitor = dmPrimary
10	tony	62	OnShow = FormShow
11	tony	68	Position = poScreenCenter
12			LCLVersion = '1.8.0.4'
13	tony	62	object Memo1: TMemo
14			Left = 12
15			Height = 302
16			Top = 18
17			Width = 461
18			Anchors = [akTop, akLeft, akRight, akBottom]
19			Lines.Strings = (
20			'Memo1'
21			)
22			ReadOnly = True
23			ScrollBars = ssAutoVertical
24			TabOrder = 0
25			end
26			object IBDatabase1: TIBDatabase
27			Connected = False
28			AfterConnect = IBDatabase1AfterConnect
29			CreateIfNotExists = False
30			AllowStreamedConnected = False
31			DatabaseName = 'localhost:employee'
32			Params.Strings = (
33			'lc_ctype=UTF8'
34			'user_name=SYSDBA'
35			)
36			IdleTimer = 0
37			TraceFlags = []
38			UseDefaultSystemCodePage = False
39			left = 280
40			top = 56
41			end
42			object IBDatabaseInfo1: TIBDatabaseInfo
43			Database = IBDatabase1
44			left = 328
45			top = 56
46			end
47			end