examples/dbInfo/Unit1.lfm

object Form1: TForm1
  Left = 363
  Height = 339
  Top = 171
  Width = 487
  Caption = 'Database Information'
  ClientHeight = 339
  ClientWidth = 487
  OnShow = FormShow
  LCLVersion = '1.6.4.0'
  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:	62
Committed:	Wed Apr 12 09:19:59 2017 UTC (7 years, 7 months ago) by tony
File size:	940 byte(s)
Log Message:	Avoid "Object is nil" error when opening a database with DefaultSystemCodePage = true
#	User	Rev	Content
1	tony	62	object Form1: TForm1
2			Left = 363
3			Height = 339
4			Top = 171
5			Width = 487
6			Caption = 'Database Information'
7			ClientHeight = 339
8			ClientWidth = 487
9			OnShow = FormShow
10			LCLVersion = '1.6.4.0'
11			object Memo1: TMemo
12			Left = 12
13			Height = 302
14			Top = 18
15			Width = 461
16			Anchors = [akTop, akLeft, akRight, akBottom]
17			Lines.Strings = (
18			'Memo1'
19			)
20			ReadOnly = True
21			ScrollBars = ssAutoVertical
22			TabOrder = 0
23			end
24			object IBDatabase1: TIBDatabase
25			Connected = False
26			AfterConnect = IBDatabase1AfterConnect
27			CreateIfNotExists = False
28			AllowStreamedConnected = False
29			DatabaseName = 'localhost:employee'
30			Params.Strings = (
31			'lc_ctype=UTF8'
32			'user_name=SYSDBA'
33			)
34			IdleTimer = 0
35			TraceFlags = []
36			UseDefaultSystemCodePage = False
37			left = 280
38			top = 56
39			end
40			object IBDatabaseInfo1: TIBDatabaseInfo
41			Database = IBDatabase1
42			left = 328
43			top = 56
44			end
45			end