paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 02:39:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDataDesktop: improved 'Connect to database' form layout

Browse Source 
git-svn-id: trunk@49398 -
This commit is contained in:
maxim 2015-06-21 20:22:23 +00:00
parent 4abd295377
commit 2c96091403
2 changed files with 134 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

178
tools/lazdatadesktop/frmsqlconnect.lfm
View File

@ -1,34 +1,45 @@
object SQLConnectionForm: TSQLConnectionForm object SQLConnectionForm: TSQLConnectionForm
Left = 547 Left = 394
Height = 215 Height = 196
Top = 454 Top = 397
Width = 395 Width = 470
ActiveControl = EHostName ActiveControl = EHostName
AutoSize = True
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Connect to a database' Caption = 'Connect to a database'
ClientHeight = 215 ClientHeight = 196
ClientWidth = 395 ClientWidth = 470
Constraints.MinWidth = 470
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '0.9.27' LCLVersion = '1.5'
object LEHostName: TLabel object LEHostName: TLabel
Left = 8 AnchorSideLeft.Control = Owner
AnchorSideTop.Control = EHostName
AnchorSideTop.Side = asrCenter
Left = 6
Height = 23 Height = 23
Top = 6 Top = 5
Width = 97 Width = 122
Alignment = taRightJustify Alignment = taRightJustify
AutoSize = False AutoSize = False
BorderSpacing.Left = 6
Caption = '&Host' Caption = '&Host'
FocusControl = EHostName FocusControl = EHostName
Layout = tlCenter Layout = tlCenter
ParentColor = False ParentColor = False
end end
object LEDatabaseName: TLabel object LEDatabaseName: TLabel
Left = 8 AnchorSideLeft.Control = LEHostName
AnchorSideTop.Control = EDatabaseName
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LEHostName
AnchorSideRight.Side = asrBottom
Left = 6
Height = 23 Height = 23
Top = 40 Top = 32
Width = 97 Width = 122
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
AutoSize = False AutoSize = False
Caption = '&Database' Caption = '&Database'
FocusControl = EDatabaseName FocusControl = EDatabaseName
@ -36,11 +47,17 @@ object SQLConnectionForm: TSQLConnectionForm
ParentColor = False ParentColor = False
end end
object LEUserName: TLabel object LEUserName: TLabel
Left = 8 AnchorSideLeft.Control = LEHostName
AnchorSideTop.Control = EUserName
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LEHostName
AnchorSideRight.Side = asrBottom
Left = 6
Height = 23 Height = 23
Top = 72 Top = 59
Width = 97 Width = 122
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
AutoSize = False AutoSize = False
Caption = '&Username' Caption = '&Username'
FocusControl = EUserName FocusControl = EUserName
@ -48,11 +65,17 @@ object SQLConnectionForm: TSQLConnectionForm
ParentColor = False ParentColor = False
end end
object LEPassword: TLabel object LEPassword: TLabel
Left = 8 AnchorSideLeft.Control = LEHostName
AnchorSideTop.Control = EPassword
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LEHostName
AnchorSideRight.Side = asrBottom
Left = 6
Height = 23 Height = 23
Top = 104 Top = 86
Width = 97 Width = 122
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
AutoSize = False AutoSize = False
Caption = '&Password' Caption = '&Password'
FocusControl = EPassword FocusControl = EPassword
@ -60,11 +83,17 @@ object SQLConnectionForm: TSQLConnectionForm
ParentColor = False ParentColor = False
end end
object LCharset: TLabel object LCharset: TLabel
Left = 44 AnchorSideLeft.Control = LEHostName
AnchorSideTop.Control = ECharset
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LEHostName
AnchorSideRight.Side = asrBottom
Left = 6
Height = 21 Height = 21
Top = 139 Top = 114
Width = 60 Width = 122
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akLeft, akRight]
AutoSize = False AutoSize = False
Caption = '&Charset' Caption = '&Charset'
FocusControl = ECharset FocusControl = ECharset
@ -72,52 +101,111 @@ object SQLConnectionForm: TSQLConnectionForm
ParentColor = False ParentColor = False
end end
object EHostName: TEdit object EHostName: TEdit
Left = 112 AnchorSideLeft.Control = LEHostName
Height = 27 AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 134
Height = 21
Top = 6 Top = 6
Width = 274 Width = 330
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
TabOrder = 0 TabOrder = 0
end end
object EDatabaseName: TEdit object EDatabaseName: TEdit
Left = 112 AnchorSideLeft.Control = LEHostName
Height = 27 AnchorSideLeft.Side = asrBottom
Top = 40 AnchorSideTop.Control = EHostName
Width = 274 AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 134
Height = 21
Top = 33
Width = 330
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
TabOrder = 1 TabOrder = 1
end end
object EUserName: TEdit object EUserName: TEdit
Left = 113 AnchorSideLeft.Control = LEHostName
Height = 27 AnchorSideLeft.Side = asrBottom
Top = 72 AnchorSideTop.Control = EDatabaseName
Width = 273 AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 134
Height = 21
Top = 60
Width = 330
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
TabOrder = 2 TabOrder = 2
end end
object EPassword: TEdit object EPassword: TEdit
Left = 112 AnchorSideLeft.Control = LEHostName
Height = 27 AnchorSideLeft.Side = asrBottom
Top = 104 AnchorSideTop.Control = EUserName
Width = 274 AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 134
Height = 21
Top = 87
Width = 330
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
EchoMode = emPassword EchoMode = emPassword
PasswordChar = '*' PasswordChar = '*'
TabOrder = 3 TabOrder = 3
end end
object BPButtons: TButtonPanel object BPButtons: TButtonPanel
AnchorSideTop.Control = ECharset
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 35 Height = 49
Top = 174 Top = 141
Width = 383 Width = 458
Anchors = [akTop, akLeft, akRight]
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 = 4 TabOrder = 4
ShowButtons = [pbOK, pbCancel] ShowButtons = [pbOK, pbCancel]
end end
object ECharset: TEdit object ECharset: TEdit
Left = 112 AnchorSideLeft.Control = LEHostName
Height = 27 AnchorSideLeft.Side = asrBottom
Top = 136 AnchorSideTop.Control = EPassword
Width = 61 AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BPButtons
Left = 134
Height = 21
Top = 114
Width = 330
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
TabOrder = 5 TabOrder = 5
end end
end end

18
tools/lazdatadesktop/lazdatadesktop.lpi
View File

@ -57,7 +57,6 @@
<Unit0> <Unit0>
<Filename Value="lazdatadesktop.lpr"/> <Filename Value="lazdatadesktop.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="lazdatadesktop"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="frmmain.pp"/> <Filename Value="frmmain.pp"/>
@ -65,12 +64,10 @@
<ComponentName Value="MainForm"/> <ComponentName Value="MainForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="frmmain"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="dicteditor.pp"/> <Filename Value="dicteditor.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="dicteditor"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="frmimportdd.pp"/> <Filename Value="frmimportdd.pp"/>
@ -78,7 +75,6 @@
<ComponentName Value="ImportDDform"/> <ComponentName Value="ImportDDform"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="frmimportdd"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="frmgeneratesql.pp"/> <Filename Value="frmgeneratesql.pp"/>
@ -86,34 +82,30 @@
<ComponentName Value="GenerateSQLForm"/> <ComponentName Value="GenerateSQLForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="frmgeneratesql"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="frmsqlconnect.pp"/> <Filename Value="frmsqlconnect.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="SQLConnectionForm"/> <ComponentName Value="SQLConnectionForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="frmSQLConnect"/> <UnitName Value="frmSQLConnect"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="ddfiles.pp"/> <Filename Value="ddfiles.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="ddfiles"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="conneditor.pp"/> <Filename Value="conneditor.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="conneditor"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="datapanel.pp"/> <Filename Value="datapanel.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="datapanel"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="querypanel.pp"/> <Filename Value="querypanel.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="querypanel"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="README.txt"/> <Filename Value="README.txt"/>
@ -124,12 +116,10 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="SelectConnectionTypeForm"/> <ComponentName Value="SelectConnectionTypeForm"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="frmselectconnectiontype"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="lazdatadeskstr.pas"/> <Filename Value="lazdatadeskstr.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="lazdatadeskstr"/>
</Unit12> </Unit12>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
@ -153,11 +143,5 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>