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

MessageComposer: Improved auto-sized layout revisited.

Browse Source 
git-svn-id: trunk@62077 -
This commit is contained in:
wp 2019-10-18 20:29:59 +00:00
parent 5a8f370fce
commit a384c1ed14
2 changed files with 111 additions and 102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

210
components/messagecomposer/messagecomposer.lfm
View File

@ -1,14 +1,14 @@
object FormMessagesComposer: TFormMessagesComposer object FormMessagesComposer: TFormMessagesComposer
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 658 Left = 658
Height = 683 Height = 539
Top = 123 Top = 123
Width = 627 Width = 580
ActiveControl = KindMessageComboBox ActiveControl = KindMessageComboBox
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
Caption = 'Messages Composer' Caption = 'Messages Composer'
ClientHeight = 683 ClientHeight = 539
ClientWidth = 627 ClientWidth = 580
OnCreate = MessagesInitExecute OnCreate = MessagesInitExecute
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
@ -40,7 +40,7 @@ object FormMessagesComposer: TFormMessagesComposer
object DlgTypeLabel: TLabel object DlgTypeLabel: TLabel
AnchorSideLeft.Control = DlgTypeComboBox AnchorSideLeft.Control = DlgTypeComboBox
AnchorSideTop.Control = CaptionLabel AnchorSideTop.Control = CaptionLabel
Left = 164 Left = 152
Height = 15 Height = 15
Top = 64 Top = 64
Width = 42 Width = 42
@ -49,12 +49,13 @@ object FormMessagesComposer: TFormMessagesComposer
end end
object HelpContextLabel: TLabel object HelpContextLabel: TLabel
AnchorSideLeft.Control = MsgMemo AnchorSideLeft.Control = MsgMemo
AnchorSideTop.Control = HelpCtxBevel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = HelpContextSpinEdit
Left = 8 Left = 8
Height = 15 Height = 15
Top = 300 Top = 281
Width = 70 Width = 70
Anchors = [akLeft, akBottom]
Caption = 'Help Context' Caption = 'Help Context'
ParentColor = False ParentColor = False
end end
@ -65,7 +66,7 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 101 Left = 101
Height = 15 Height = 15
Top = 300 Top = 281
Width = 76 Width = 76
Caption = 'Help KeyWord' Caption = 'Help KeyWord'
ParentColor = False ParentColor = False
@ -76,7 +77,7 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 8 Left = 8
Height = 15 Height = 15
Top = 260 Top = 241
Width = 7 Width = 7
Caption = 'X' Caption = 'X'
ParentColor = False ParentColor = False
@ -88,7 +89,7 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 101 Left = 101
Height = 15 Height = 15
Top = 260 Top = 241
Width = 7 Width = 7
BorderSpacing.Left = 16 BorderSpacing.Left = 16
Caption = 'Y' Caption = 'Y'
@ -96,12 +97,13 @@ object FormMessagesComposer: TFormMessagesComposer
end end
object HelpFileNameLabel: TLabel object HelpFileNameLabel: TLabel
AnchorSideLeft.Control = MsgMemo AnchorSideLeft.Control = MsgMemo
AnchorSideTop.Control = HelpContextSpinEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = HelpFileNameEdit
Left = 8 Left = 8
Height = 15 Height = 15
Top = 347 Top = 328
Width = 78 Width = 78
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Help FileName' Caption = 'Help FileName'
ParentColor = False ParentColor = False
@ -110,10 +112,12 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideLeft.Control = MsgMemo AnchorSideLeft.Control = MsgMemo
AnchorSideTop.Control = Bevel2 AnchorSideTop.Control = Bevel2
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = PromptEdit
Left = 8 Left = 8
Height = 15 Height = 15
Top = 413 Top = 394
Width = 68 Width = 68
Anchors = [akLeft, akBottom]
Caption = 'PromptLabel' Caption = 'PromptLabel'
ParentColor = False ParentColor = False
end end
@ -121,10 +125,12 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideLeft.Control = PromptEdit AnchorSideLeft.Control = PromptEdit
AnchorSideTop.Control = PromptEdit AnchorSideTop.Control = PromptEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = ValueEdit
Left = 8 Left = 8
Height = 15 Height = 15
Top = 466 Top = 447
Width = 55 Width = 55
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 12 BorderSpacing.Top = 12
Caption = 'Value (var)' Caption = 'Value (var)'
ParentColor = False ParentColor = False
@ -132,51 +138,51 @@ object FormMessagesComposer: TFormMessagesComposer
object DefaultValue: TLabel object DefaultValue: TLabel
AnchorSideLeft.Control = DefaultEdit AnchorSideLeft.Control = DefaultEdit
AnchorSideTop.Control = ValueLabel AnchorSideTop.Control = ValueLabel
Left = 164 Left = 152
Height = 15 Height = 15
Top = 466 Top = 447
Width = 38 Width = 38
Caption = 'Default' Caption = 'Default'
ParentColor = False ParentColor = False
end end
object PositionBevel: TBevel object PositionBevel: TBevel
AnchorSideLeft.Control = MsgMemo AnchorSideLeft.Control = MsgMemo
AnchorSideTop.Control = MsgMemo
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MsgMemo AnchorSideRight.Control = MsgMemo
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = XSpinEdit
Left = 8 Left = 8
Height = 9 Height = 9
Top = 241 Top = 222
Width = 296 Width = 273
Anchors = [akTop, akLeft, akRight] Anchors = [akLeft, akRight, akBottom]
Shape = bsTopLine Shape = bsTopLine
end end
object Bevel2: TBevel object Bevel2: TBevel
AnchorSideLeft.Control = MsgMemo AnchorSideLeft.Control = MsgMemo
AnchorSideTop.Control = HelpFileNameEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MsgMemo AnchorSideRight.Control = MsgMemo
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = PromptLabel
Left = 8 Left = 8
Height = 9 Height = 9
Top = 404 Top = 385
Width = 296 Width = 273
Anchors = [akTop, akLeft, akRight] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Top = 16 BorderSpacing.Top = 16
Shape = bsTopLine Shape = bsTopLine
end end
object HelpCtxBevel: TBevel object HelpCtxBevel: TBevel
AnchorSideLeft.Control = MsgMemo AnchorSideLeft.Control = MsgMemo
AnchorSideTop.Control = XSpinEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MsgMemo AnchorSideRight.Control = MsgMemo
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = HelpContextLabel
Left = 8 Left = 8
Height = 9 Height = 9
Top = 291 Top = 272
Width = 296 Width = 273
Anchors = [akTop, akLeft, akRight] Anchors = [akLeft, akRight, akBottom]
Shape = bsTopLine Shape = bsTopLine
end end
object KindMessageLabel: TLabel object KindMessageLabel: TLabel
@ -200,7 +206,7 @@ object FormMessagesComposer: TFormMessagesComposer
Left = 8 Left = 8
Height = 23 Height = 23
Top = 82 Top = 82
Width = 140 Width = 128
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3 BorderSpacing.Top = 3
TabOrder = 0 TabOrder = 0
@ -211,10 +217,10 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CaptionEdit AnchorSideTop.Control = CaptionEdit
AnchorSideRight.Control = HCenterBevel AnchorSideRight.Control = HCenterBevel
Left = 164 Left = 152
Height = 23 Height = 23
Top = 82 Top = 82
Width = 140 Width = 129
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
DropDownCount = 24 DropDownCount = 24
ItemHeight = 15 ItemHeight = 15
@ -232,31 +238,29 @@ object FormMessagesComposer: TFormMessagesComposer
end end
object HelpContextSpinEdit: TSpinEdit object HelpContextSpinEdit: TSpinEdit
AnchorSideLeft.Control = HelpContextLabel AnchorSideLeft.Control = HelpContextLabel
AnchorSideTop.Control = HelpContextLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = XSpinEdit AnchorSideRight.Control = XSpinEdit
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = HelpFileNameLabel
Left = 8 Left = 8
Height = 23 Height = 23
Top = 318 Top = 299
Width = 77 Width = 77
Anchors = [akTop, akLeft, akRight] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Top = 3 BorderSpacing.Top = 3
MaxValue = 9999 MaxValue = 9999
TabOrder = 2 TabOrder = 2
end end
object HelpKeyWordEdit: TEdit object HelpKeyWordEdit: TEdit
AnchorSideLeft.Control = HelpKeyWordLabel AnchorSideLeft.Control = HelpKeyWordLabel
AnchorSideTop.Control = HelpKeyWordLabel AnchorSideTop.Control = HelpContextSpinEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MsgMemo AnchorSideRight.Control = MsgMemo
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 101 Left = 101
Height = 23 Height = 23
Top = 318 Top = 299
Width = 203 Width = 180
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3
TabOrder = 3 TabOrder = 3
Text = 'HelpKeyWordEdit' Text = 'HelpKeyWordEdit'
end end
@ -265,10 +269,12 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = PositionBevel AnchorSideTop.Control = PositionBevel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = HelpCtxBevel
Left = 19 Left = 19
Height = 23 Height = 23
Top = 256 Top = 237
Width = 66 Width = 66
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Bottom = 12 BorderSpacing.Bottom = 12
@ -281,41 +287,41 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 112 Left = 112
Height = 23 Height = 23
Top = 256 Top = 237
Width = 66 Width = 66
BorderSpacing.Left = 4 BorderSpacing.Left = 4
TabOrder = 5 TabOrder = 5
end end
object HelpFileNameEdit: TFileNameEdit object HelpFileNameEdit: TFileNameEdit
AnchorSideLeft.Control = MsgMemo AnchorSideLeft.Control = MsgMemo
AnchorSideTop.Control = HelpFileNameLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MsgMemo AnchorSideRight.Control = MsgMemo
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Bevel2
Left = 8 Left = 8
Height = 23 Height = 23
Top = 365 Top = 346
Width = 296 Width = 273
DialogOptions = [] DialogOptions = []
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Top = 3 BorderSpacing.Top = 3
MaxLength = 0 MaxLength = 0
TabOrder = 6 TabOrder = 6
end end
object PromptEdit: TEdit object PromptEdit: TEdit
AnchorSideLeft.Control = PromptLabel AnchorSideLeft.Control = PromptLabel
AnchorSideTop.Control = PromptLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MaskInputCheckBox AnchorSideRight.Control = MaskInputCheckBox
AnchorSideBottom.Control = ValueLabel
Left = 8 Left = 8
Height = 23 Height = 23
Top = 431 Top = 412
Width = 204 Width = 181
Anchors = [akTop, akLeft, akRight] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Top = 3 BorderSpacing.Top = 3
TabOrder = 7 TabOrder = 7
Text = 'PromptEdit' Text = 'PromptEdit'
@ -325,9 +331,9 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = MsgMemo AnchorSideRight.Control = MsgMemo
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 228 Left = 205
Height = 19 Height = 19
Top = 433 Top = 414
Width = 76 Width = 76
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Left = 16 BorderSpacing.Left = 16
@ -336,14 +342,14 @@ object FormMessagesComposer: TFormMessagesComposer
end end
object ValueEdit: TEdit object ValueEdit: TEdit
AnchorSideLeft.Control = ValueLabel AnchorSideLeft.Control = ValueLabel
AnchorSideTop.Control = ValueLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = HCenterBevel1 AnchorSideRight.Control = HCenterBevel1
AnchorSideBottom.Control = ButtonPanel
Left = 8 Left = 8
Height = 23 Height = 23
Top = 484 Top = 465
Width = 140 Width = 128
Anchors = [akTop, akLeft, akRight] Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Top = 3 BorderSpacing.Top = 3
TabOrder = 9 TabOrder = 9
Text = 'ValueEdit' Text = 'ValueEdit'
@ -351,34 +357,34 @@ object FormMessagesComposer: TFormMessagesComposer
object DefaultEdit: TEdit object DefaultEdit: TEdit
AnchorSideLeft.Control = HCenterBevel1 AnchorSideLeft.Control = HCenterBevel1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DefaultValue AnchorSideTop.Control = ValueEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = MsgMemo AnchorSideRight.Control = MsgMemo
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 164 Left = 152
Height = 23 Height = 23
Top = 484 Top = 465
Width = 140 Width = 129
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3
TabOrder = 10 TabOrder = 10
Text = 'DefaultEdit' Text = 'DefaultEdit'
end end
object SourceWrapperGroupBox: TGroupBox object SourceWrapperGroupBox: TGroupBox
AnchorSideLeft.Control = ButtonsNotebook AnchorSideLeft.Control = ButtonsNotebook
AnchorSideTop.Control = HelpContextLabel AnchorSideTop.Control = ButtonsNotebook
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ButtonsNotebook AnchorSideRight.Control = ButtonsNotebook
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = DefaultEdit AnchorSideBottom.Control = DefaultEdit
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 323 Left = 300
Height = 207 Height = 243
Top = 300 Top = 245
Width = 296 Width = 272
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 16
Caption = 'SourceWrapperGroupBox' Caption = 'SourceWrapperGroupBox'
ClientHeight = 187 ClientHeight = 223
ClientWidth = 292 ClientWidth = 268
TabOrder = 12 TabOrder = 12
object IfThenRadioButton: TRadioButton object IfThenRadioButton: TRadioButton
AnchorSideLeft.Control = SourceWrapperGroupBox AnchorSideLeft.Control = SourceWrapperGroupBox
@ -434,23 +440,27 @@ object FormMessagesComposer: TFormMessagesComposer
TabOrder = 3 TabOrder = 3
end end
object BeginEndCheckBox: TCheckBox object BeginEndCheckBox: TCheckBox
Left = 9 AnchorSideLeft.Control = IfThenRadioButton
AnchorSideTop.Control = IfThenElseRadioButton
AnchorSideTop.Side = asrBottom
Left = 8
Height = 19 Height = 19
Top = 56 Top = 54
Width = 85 Width = 85
BorderSpacing.Top = 6
Caption = 'begin ... end' Caption = 'begin ... end'
TabOrder = 4 TabOrder = 4
end end
object SourceNotebook: TNotebook object SourceNotebook: TNotebook
AnchorSideLeft.Control = SourceWrapperGroupBox AnchorSideLeft.Control = SourceWrapperGroupBox
AnchorSideTop.Control = IfThenElseRadioButton AnchorSideTop.Control = BeginEndCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = SourceWrapperGroupBox AnchorSideRight.Control = SourceWrapperGroupBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 8 Left = 8
Height = 131 Height = 142
Top = 56 Top = 81
Width = 276 Width = 252
PageIndex = 0 PageIndex = 0
Align = alBottom Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -479,7 +489,7 @@ object FormMessagesComposer: TFormMessagesComposer
Left = 0 Left = 0
Height = 23 Height = 23
Top = 18 Top = 18
Width = 276 Width = 252
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3 BorderSpacing.Top = 3
DropDownCount = 24 DropDownCount = 24
@ -503,7 +513,7 @@ object FormMessagesComposer: TFormMessagesComposer
Left = 0 Left = 0
Height = 51 Height = 51
Top = 0 Top = 0
Width = 276 Width = 271
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoFill = True AutoFill = True
AutoSize = True AutoSize = True
@ -516,8 +526,8 @@ object FormMessagesComposer: TFormMessagesComposer
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 3 ChildSizing.ControlsPerLine = 3
ClientHeight = 31 ClientHeight = 51
ClientWidth = 272 ClientWidth = 271
Columns = 3 Columns = 3
Items.Strings = ( Items.Strings = (
'mbOK' 'mbOK'
@ -550,7 +560,7 @@ object FormMessagesComposer: TFormMessagesComposer
Left = 0 Left = 0
Height = 23 Height = 23
Top = 26 Top = 26
Width = 246 Width = 252
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3 BorderSpacing.Top = 3
TabOrder = 0 TabOrder = 0
@ -568,7 +578,7 @@ object FormMessagesComposer: TFormMessagesComposer
Left = 8 Left = 8
Height = 23 Height = 23
Top = 25 Top = 25
Width = 611 Width = 564
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Right = 8 BorderSpacing.Right = 8
@ -586,11 +596,12 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = MsgLabel AnchorSideTop.Control = MsgLabel
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = HCenterBevel AnchorSideRight.Control = HCenterBevel
AnchorSideBottom.Control = PositionBevel
Left = 8 Left = 8
Height = 94 Height = 75
Top = 135 Top = 135
Width = 296 Width = 273
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 3 BorderSpacing.Top = 3
BorderSpacing.Bottom = 12 BorderSpacing.Bottom = 12
Lines.Strings = ( Lines.Strings = (
@ -608,14 +619,13 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Control = CaptionLabel AnchorSideTop.Control = CaptionLabel
AnchorSideRight.Control = KindMessageComboBox AnchorSideRight.Control = KindMessageComboBox
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = MsgMemo
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 323 Left = 300
Height = 165 Height = 165
Top = 64 Top = 64
Width = 296 Width = 272
PageIndex = 0 PageIndex = 0
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight]
TabOrder = 13 TabOrder = 13
TabStop = True TabStop = True
object Page1: TPage object Page1: TPage
@ -624,7 +634,7 @@ object FormMessagesComposer: TFormMessagesComposer
Left = 0 Left = 0
Height = 165 Height = 165
Top = 0 Top = 0
Width = 296 Width = 272
Align = alClient Align = alClient
AutoFill = True AutoFill = True
Caption = 'BUTTONS (TMsgDlgButtons)' Caption = 'BUTTONS (TMsgDlgButtons)'
@ -637,7 +647,7 @@ object FormMessagesComposer: TFormMessagesComposer
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 145 ClientHeight = 145
ClientWidth = 292 ClientWidth = 268
Columns = 2 Columns = 2
Items.Strings = ( Items.Strings = (
'mbYes' 'mbYes'
@ -773,16 +783,18 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 43 Height = 43
Top = 523 Top = 496
Width = 627 Width = 580
Anchors = [akTop, akLeft, akRight] Anchors = [akLeft, akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Top = 16 BorderSpacing.Top = 8
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 43 ClientHeight = 43
ClientWidth = 627 ClientWidth = 580
TabOrder = 15 TabOrder = 15
object TestButton: TButton object TestButton: TButton
AnchorSideLeft.Control = ButtonPanel AnchorSideLeft.Control = ButtonPanel
@ -803,7 +815,7 @@ object FormMessagesComposer: TFormMessagesComposer
object OkButton: TBitBtn object OkButton: TBitBtn
AnchorSideTop.Control = CancelButton AnchorSideTop.Control = CancelButton
AnchorSideRight.Control = CancelButton AnchorSideRight.Control = CancelButton
Left = 467 Left = 420
Height = 26 Height = 26
Top = 9 Top = 9
Width = 62 Width = 62
@ -822,7 +834,7 @@ object FormMessagesComposer: TFormMessagesComposer
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ButtonPanel AnchorSideRight.Control = ButtonPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 537 Left = 490
Height = 26 Height = 26
Top = 9 Top = 9
Width = 82 Width = 82
@ -844,7 +856,7 @@ object FormMessagesComposer: TFormMessagesComposer
Left = 4 Left = 4
Height = 9 Height = 9
Top = 0 Top = 0
Width = 619 Width = 572
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Right = 4 BorderSpacing.Right = 4
@ -854,7 +866,7 @@ object FormMessagesComposer: TFormMessagesComposer
object HCenterBevel: TBevel object HCenterBevel: TBevel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
Left = 304 Left = 281
Height = 50 Height = 50
Top = 7 Top = 7
Width = 19 Width = 19
@ -863,7 +875,7 @@ object FormMessagesComposer: TFormMessagesComposer
object HCenterBevel1: TBevel object HCenterBevel1: TBevel
AnchorSideLeft.Control = MsgMemo AnchorSideLeft.Control = MsgMemo
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
Left = 148 Left = 136
Height = 41 Height = 41
Top = 478 Top = 478
Width = 16 Width = 16

3
components/messagecomposer/messagecomposer.pas
View File

@ -325,9 +325,6 @@ end;
procedure TFormMessagesComposer.FormShow(Sender: TObject); procedure TFormMessagesComposer.FormShow(Sender: TObject);
begin begin
ClientHeight := ButtonPanel.Top + ButtonPanel.Height;
Constraints.MinHeight := ClientHeight;
Constraints.MaxHeight := ClientHeight;
OKButton.Constraints.MinWidth := CancelButton.Width; OKButton.Constraints.MinWidth := CancelButton.Width;
TestButton.Constraints.MinWidth := CancelButton.Width; TestButton.Constraints.MinWidth := CancelButton.Width;
end; end;