IDE: Improve GenericListEditor dialog layout. Issue #35328, patch from Alexey Tor.

git-svn-id: trunk@60902 -
This commit is contained in:
juha 2019-04-10 07:21:40 +00:00
parent f7d83eeafe
commit 10aadf7fcd

View File

@ -3,15 +3,17 @@ object GenericListEditForm: TGenericListEditForm
Height = 301 Height = 301
Top = 526 Top = 526
Width = 343 Width = 343
ActiveControl = Memo1
BorderIcons = [biSystemMenu]
Caption = 'GenericListEditForm' Caption = 'GenericListEditForm'
ClientHeight = 301 ClientHeight = 301
ClientWidth = 343 ClientWidth = 343
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.9.0.0' LCLVersion = '2.1.0.0'
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 30 Height = 29
Top = 265 Top = 266
Width = 331 Width = 331
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True OKButton.DefaultCaption = True
@ -23,20 +25,21 @@ object GenericListEditForm: TGenericListEditForm
CloseButton.Enabled = False CloseButton.Enabled = False
CancelButton.Name = 'CancelButton' CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True CancelButton.DefaultCaption = True
TabOrder = 0 TabOrder = 1
ShowButtons = [pbOK, pbCancel] ShowButtons = [pbOK, pbCancel]
ShowBevel = False ShowBevel = False
end end
object Memo1: TMemo object Memo1: TMemo
Left = 0 Left = 6
Height = 259 Height = 254
Top = 0 Top = 6
Width = 343 Width = 331
Align = alClient Align = alClient
BorderSpacing.Around = 6
Lines.Strings = ( Lines.Strings = (
'' ''
) )
ScrollBars = ssAutoVertical ScrollBars = ssAutoVertical
TabOrder = 1 TabOrder = 0
end end
end end