mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-02 20:07:15 +01:00
233 lines
6.1 KiB
Plaintext
233 lines
6.1 KiB
Plaintext
object SQLConnectionForm: TSQLConnectionForm
|
|
Left = 394
|
|
Height = 209
|
|
Top = 397
|
|
Width = 576
|
|
BorderIcons = [biSystemMenu]
|
|
Caption = 'Connect to a database'
|
|
ClientHeight = 209
|
|
ClientWidth = 576
|
|
Constraints.MinWidth = 480
|
|
OnActivate = FormActivate
|
|
OnCreate = FormCreate
|
|
Position = poMainFormCenter
|
|
LCLVersion = '3.99.0.0'
|
|
object BPButtons: TButtonPanel
|
|
AnchorSideTop.Control = ECharset
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideBottom.Control = Owner
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 6
|
|
Height = 34
|
|
Top = 169
|
|
Width = 564
|
|
OKButton.Name = 'OKButton'
|
|
OKButton.DefaultCaption = True
|
|
HelpButton.Name = 'HelpButton'
|
|
HelpButton.DefaultCaption = True
|
|
CloseButton.Name = 'CloseButton'
|
|
CloseButton.DefaultCaption = True
|
|
CancelButton.Name = 'CancelButton'
|
|
CancelButton.DefaultCaption = True
|
|
TabOrder = 1
|
|
ShowButtons = [pbOK, pbCancel]
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Height = 145
|
|
Top = 0
|
|
Width = 576
|
|
Align = alTop
|
|
AutoSize = True
|
|
BevelOuter = bvNone
|
|
Caption = '0'
|
|
ClientHeight = 145
|
|
ClientWidth = 576
|
|
TabOrder = 0
|
|
object LEHostName: TLabel
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = EHostName
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = LEUserName
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 98
|
|
Height = 15
|
|
Top = 10
|
|
Width = 25
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Left = 6
|
|
Caption = '&Host'
|
|
FocusControl = EHostName
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object LEDatabaseName: TLabel
|
|
AnchorSideLeft.Control = LEHostName
|
|
AnchorSideTop.Control = EDatabaseName
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = LEUserName
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 75
|
|
Height = 15
|
|
Top = 39
|
|
Width = 48
|
|
Anchors = [akTop, akRight]
|
|
Caption = '&Database'
|
|
FocusControl = EDatabaseName
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object LEUserName: TLabel
|
|
AnchorSideLeft.Control = Panel1
|
|
AnchorSideTop.Control = EUserName
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = LEHostName
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 70
|
|
Height = 15
|
|
Top = 68
|
|
Width = 53
|
|
BorderSpacing.Left = 70
|
|
Caption = '&Username'
|
|
FocusControl = EUserName
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object LEPassword: TLabel
|
|
AnchorSideTop.Control = EPassword
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = LEUserName
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 73
|
|
Height = 15
|
|
Top = 97
|
|
Width = 50
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akRight]
|
|
Caption = '&Password'
|
|
FocusControl = EPassword
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object LCharset: TLabel
|
|
AnchorSideTop.Control = ECharset
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = LEUserName
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 83
|
|
Height = 15
|
|
Top = 126
|
|
Width = 40
|
|
Alignment = taRightJustify
|
|
Anchors = [akTop, akRight]
|
|
Caption = '&Charset'
|
|
FocusControl = ECharset
|
|
Layout = tlCenter
|
|
ParentColor = False
|
|
end
|
|
object EHostName: TEdit
|
|
AnchorSideLeft.Control = LEHostName
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Control = BTest
|
|
Left = 129
|
|
Height = 23
|
|
Top = 6
|
|
Width = 305
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = False
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
TabOrder = 0
|
|
end
|
|
object EDatabaseName: TEdit
|
|
AnchorSideLeft.Control = LEDatabaseName
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = EHostName
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = BTest
|
|
Left = 129
|
|
Height = 23
|
|
Top = 35
|
|
Width = 305
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = False
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
TabOrder = 2
|
|
end
|
|
object EUserName: TEdit
|
|
AnchorSideLeft.Control = LEUserName
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = EDatabaseName
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = BTest
|
|
Left = 129
|
|
Height = 23
|
|
Top = 64
|
|
Width = 305
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = False
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
TabOrder = 3
|
|
end
|
|
object EPassword: TEdit
|
|
AnchorSideLeft.Control = LEHostName
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = EUserName
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = BTest
|
|
Left = 129
|
|
Height = 23
|
|
Top = 93
|
|
Width = 305
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = False
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
EchoMode = emPassword
|
|
PasswordChar = '*'
|
|
TabOrder = 4
|
|
end
|
|
object ECharset: TEdit
|
|
AnchorSideLeft.Control = LEHostName
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = EPassword
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = BTest
|
|
Left = 129
|
|
Height = 23
|
|
Top = 122
|
|
Width = 305
|
|
Anchors = [akTop, akLeft, akRight]
|
|
AutoSize = False
|
|
BorderSpacing.Left = 6
|
|
BorderSpacing.Top = 6
|
|
BorderSpacing.Right = 6
|
|
TabOrder = 5
|
|
end
|
|
object BTest: TBitBtn
|
|
AnchorSideTop.Control = EHostName
|
|
AnchorSideTop.Side = asrCenter
|
|
AnchorSideRight.Control = Panel1
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 440
|
|
Height = 26
|
|
Top = 4
|
|
Width = 130
|
|
Anchors = [akTop, akRight]
|
|
BorderSpacing.Right = 6
|
|
Caption = 'Test connection'
|
|
Enabled = False
|
|
Images = ImgDatamodule.AppImages
|
|
ImageIndex = 30
|
|
OnClick = BTestClick
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|