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

LazReport: Improve layout in form "insert fields". Issue #36039.

Browse Source 
git-svn-id: trunk@61797 -
This commit is contained in:
juha 2019-09-01 22:10:21 +00:00
parent 1e8b391f35
commit fafc78142f
1 changed files with 32 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
components/lazreport/source/lr_iflds.lfm
View File

@ -11,14 +11,14 @@ object frInsertFieldsForm: TfrInsertFieldsForm
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '2.1.0.0'
object Label1: TLabel object Label1: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 6 Left = 6
Height = 16 Height = 17
Top = 6 Top = 6
Width = 117 Width = 114
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&Available datasets' Caption = '&Available datasets'
FocusControl = DatasetCB FocusControl = DatasetCB
@ -31,8 +31,8 @@ object frInsertFieldsForm: TfrInsertFieldsForm
AnchorSideRight.Control = GroupBox1 AnchorSideRight.Control = GroupBox1
AnchorSideBottom.Control = ButtonPanel1 AnchorSideBottom.Control = ButtonPanel1
Left = 6 Left = 6
Height = 234 Height = 231
Top = 63 Top = 70
Width = 247 Width = 247
HelpContext = 106 HelpContext = 106
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -40,6 +40,7 @@ object frInsertFieldsForm: TfrInsertFieldsForm
ClickOnSelChange = False ClickOnSelChange = False
ItemHeight = 0 ItemHeight = 0
MultiSelect = True MultiSelect = True
ScrollWidth = 245
TabOrder = 0 TabOrder = 0
TopIndex = -1 TopIndex = -1
end end
@ -49,8 +50,8 @@ object frInsertFieldsForm: TfrInsertFieldsForm
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1 AnchorSideRight.Control = GroupBox1
Left = 6 Left = 6
Height = 29 Height = 35
Top = 28 Top = 29
Width = 247 Width = 247
HelpContext = 97 HelpContext = 97
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -66,58 +67,57 @@ object frInsertFieldsForm: TfrInsertFieldsForm
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 259 Left = 259
Height = 65 Height = 74
Top = 6 Top = 6
Width = 173 Width = 173
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Placement' Caption = 'Placement'
ClientHeight = 49 ClientHeight = 54
ClientWidth = 171 ClientWidth = 171
TabOrder = 2 TabOrder = 2
object HorzRB: TRadioButton object HorzRB: TRadioButton
Left = 8 Left = 8
Height = 22 Height = 21
Top = 5 Top = 5
Width = 89 Width = 89
HelpContext = 115 HelpContext = 115
AllowGrayed = True
Caption = '&Horizontal' Caption = '&Horizontal'
Checked = True Checked = True
State = cbChecked
TabOrder = 0 TabOrder = 0
TabStop = True
end end
object VertRB: TRadioButton object VertRB: TRadioButton
Left = 8 Left = 8
Height = 22 Height = 21
Top = 25 Top = 25
Width = 71 Width = 71
HelpContext = 122 HelpContext = 122
AllowGrayed = True
Caption = '&Vertical' Caption = '&Vertical'
TabOrder = 1 TabOrder = 1
TabStop = False
end end
end end
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1 AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 259 Left = 259
Height = 60 Height = 62
Top = 77 Top = 86
Width = 173 Width = 179
Anchors = [akTop, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 AutoSize = True
ClientHeight = 58 BorderSpacing.Top = 6
ClientWidth = 171 ClientHeight = 60
ClientWidth = 177
TabOrder = 3 TabOrder = 3
object HeaderCB: TCheckBox object HeaderCB: TCheckBox
AnchorSideLeft.Control = GroupBox2 AnchorSideLeft.Control = GroupBox2
AnchorSideTop.Control = GroupBox2 AnchorSideTop.Control = GroupBox2
Left = 6 Left = 6
Height = 22 Height = 21
Top = 6 Top = 6
Width = 125 Width = 125
HelpContext = 132 HelpContext = 132
@ -130,9 +130,9 @@ object frInsertFieldsForm: TfrInsertFieldsForm
AnchorSideTop.Control = HeaderCB AnchorSideTop.Control = HeaderCB
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 22 Height = 21
Top = 34 Top = 33
Width = 112 Width = 111
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Include &bands' Caption = 'Include &bands'
TabOrder = 1 TabOrder = 1
@ -140,14 +140,18 @@ object frInsertFieldsForm: TfrInsertFieldsForm
end end
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 38 Height = 34
Top = 303 Top = 307
Width = 426 Width = 426
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton' HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton' CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CloseButton.Enabled = False CloseButton.Enabled = False
CancelButton.Name = 'CancelButton' CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 4 TabOrder = 4
ShowButtons = [pbOK, pbCancel, pbHelp] ShowButtons = [pbOK, pbCancel, pbHelp]
end end