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).
#	Content
1	object Form1: TForm1
2	Left = 389
3	Height = 339
4	Top = 220
5	Width = 487
6	Caption = 'Database Information'
7	ClientHeight = 339
8	ClientWidth = 487
9	DefaultMonitor = dmPrimary
10	OnShow = FormShow
11	Position = poScreenCenter
12	LCLVersion = '1.8.0.4'
13	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