stHandles and Control on PolyList container

Hi,

I'm experiencing anomalies using stHandles ScrollType with Control.
My item host a stretched control (TEdit).
When the scroll button appears, it's placed under the control.

Cattura

How can this be solved?
Thanks!

Can you please at least attach your DFM here so we know all your property settings.

object Form3: TForm3
Left = 0
Top = 0
Caption = 'Form3'
ClientHeight = 457
ClientWidth = 976
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object CSHorizontalPolyList1: TCSHorizontalPolyList
Left = 240
Top = 72
Width = 113
Height = 113
HorzScrollBar.Range = 132
HorzScrollBar.ThumbSize = 113
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
AutoSizeType = astHeight
List.Appearance.Normal.Color = clWhite
List.Appearance.Normal.ColorTo = clNone
List.Appearance.Normal.ColorMirror = clNone
List.Appearance.Normal.ColorMirrorTo = clNone
List.Appearance.Normal.GradientType = gtVertical
List.Appearance.Normal.GradientMirrorType = gtVertical
List.Appearance.Normal.BorderColor = clNone
List.Appearance.Normal.Rounding = 2
List.Appearance.Normal.RoundingType = rtNone
List.Appearance.Normal.ShadowOffset = 0
List.Appearance.Normal.Glow = gmNone
List.Appearance.ButtonNormal.Color = clWhite
List.Appearance.ButtonNormal.ColorTo = clNone
List.Appearance.ButtonNormal.ColorMirror = clNone
List.Appearance.ButtonNormal.ColorMirrorTo = clNone
List.Appearance.ButtonNormal.GradientType = gtVertical
List.Appearance.ButtonNormal.GradientMirrorType = gtVertical
List.Appearance.ButtonNormal.BorderColor = clNone
List.Appearance.ButtonNormal.Rounding = 2
List.Appearance.ButtonNormal.RoundingType = rtNone
List.Appearance.ButtonNormal.ShadowOffset = 0
List.Appearance.ButtonNormal.Glow = gmNone
List.Appearance.Down.Color = 14925219
List.Appearance.Down.ColorTo = clNone
List.Appearance.Down.ColorMirror = clNone
List.Appearance.Down.ColorMirrorTo = clNone
List.Appearance.Down.GradientType = gtVertical
List.Appearance.Down.GradientMirrorType = gtVertical
List.Appearance.Down.BorderColor = 14925219
List.Appearance.Down.Rounding = 2
List.Appearance.Down.RoundingType = rtNone
List.Appearance.Down.ShadowOffset = 0
List.Appearance.Down.Glow = gmNone
List.Appearance.ButtonDown.Color = 14925219
List.Appearance.ButtonDown.ColorTo = clNone
List.Appearance.ButtonDown.ColorMirror = clNone
List.Appearance.ButtonDown.ColorMirrorTo = clNone
List.Appearance.ButtonDown.GradientType = gtVertical
List.Appearance.ButtonDown.GradientMirrorType = gtVertical
List.Appearance.ButtonDown.BorderColor = 14925219
List.Appearance.ButtonDown.Rounding = 2
List.Appearance.ButtonDown.RoundingType = rtNone
List.Appearance.ButtonDown.ShadowOffset = 0
List.Appearance.ButtonDown.Glow = gmNone
List.Appearance.Disabled.Color = clWhite
List.Appearance.Disabled.ColorTo = clNone
List.Appearance.Disabled.ColorMirror = clNone
List.Appearance.Disabled.ColorMirrorTo = clNone
List.Appearance.Disabled.GradientType = gtVertical
List.Appearance.Disabled.GradientMirrorType = gtVertical
List.Appearance.Disabled.BorderColor = 13948116
List.Appearance.Disabled.Rounding = 2
List.Appearance.Disabled.RoundingType = rtNone
List.Appearance.Disabled.ShadowOffset = 0
List.Appearance.Disabled.Glow = gmNone
List.Appearance.ButtonDisabled.Color = clWhite
List.Appearance.ButtonDisabled.ColorTo = clNone
List.Appearance.ButtonDisabled.ColorMirror = clNone
List.Appearance.ButtonDisabled.ColorMirrorTo = clNone
List.Appearance.ButtonDisabled.GradientType = gtVertical
List.Appearance.ButtonDisabled.GradientMirrorType = gtVertical
List.Appearance.ButtonDisabled.BorderColor = 13948116
List.Appearance.ButtonDisabled.Rounding = 2
List.Appearance.ButtonDisabled.RoundingType = rtNone
List.Appearance.ButtonDisabled.ShadowOffset = 0
List.Appearance.ButtonDisabled.Glow = gmNone
List.Appearance.Hovered.Color = 15917525
List.Appearance.Hovered.ColorTo = clNone
List.Appearance.Hovered.ColorMirror = clNone
List.Appearance.Hovered.ColorMirrorTo = clNone
List.Appearance.Hovered.GradientType = gtVertical
List.Appearance.Hovered.GradientMirrorType = gtVertical
List.Appearance.Hovered.BorderColor = 14925219
List.Appearance.Hovered.Rounding = 2
List.Appearance.Hovered.RoundingType = rtNone
List.Appearance.Hovered.ShadowOffset = 0
List.Appearance.Hovered.Glow = gmNone
List.Appearance.ButtonHovered.Color = 15917525
List.Appearance.ButtonHovered.ColorTo = clNone
List.Appearance.ButtonHovered.ColorMirror = clNone
List.Appearance.ButtonHovered.ColorMirrorTo = clNone
List.Appearance.ButtonHovered.GradientType = gtVertical
List.Appearance.ButtonHovered.GradientMirrorType = gtVertical
List.Appearance.ButtonHovered.BorderColor = 14925219
List.Appearance.ButtonHovered.Rounding = 2
List.Appearance.ButtonHovered.RoundingType = rtNone
List.Appearance.ButtonHovered.ShadowOffset = 0
List.Appearance.ButtonHovered.Glow = gmNone
List.Appearance.Selected.Color = 15917525
List.Appearance.Selected.ColorTo = clNone
List.Appearance.Selected.ColorMirror = clNone
List.Appearance.Selected.ColorMirrorTo = clNone
List.Appearance.Selected.GradientType = gtVertical
List.Appearance.Selected.GradientMirrorType = gtVertical
List.Appearance.Selected.BorderColor = 15917525
List.Appearance.Selected.Rounding = 2
List.Appearance.Selected.RoundingType = rtNone
List.Appearance.Selected.ShadowOffset = 0
List.Appearance.Selected.Glow = gmNone
List.Appearance.ButtonSelected.Color = 15917525
List.Appearance.ButtonSelected.ColorTo = clNone
List.Appearance.ButtonSelected.ColorMirror = clNone
List.Appearance.ButtonSelected.ColorMirrorTo = clNone
List.Appearance.ButtonSelected.GradientType = gtVertical
List.Appearance.ButtonSelected.GradientMirrorType = gtVertical
List.Appearance.ButtonSelected.BorderColor = 15917525
List.Appearance.ButtonSelected.Rounding = 2
List.Appearance.ButtonSelected.RoundingType = rtNone
List.Appearance.ButtonSelected.ShadowOffset = 0
List.Appearance.ButtonSelected.Glow = gmNone
List.Appearance.NormalFont.Charset = DEFAULT_CHARSET
List.Appearance.NormalFont.Color = 4474440
List.Appearance.NormalFont.Height = -11
List.Appearance.NormalFont.Name = 'Tahoma'
List.Appearance.NormalFont.Style = []
List.Appearance.DownFont.Charset = DEFAULT_CHARSET
List.Appearance.DownFont.Color = 4474440
List.Appearance.DownFont.Height = -11
List.Appearance.DownFont.Name = 'Tahoma'
List.Appearance.DownFont.Style = []
List.Appearance.DisabledFont.Charset = DEFAULT_CHARSET
List.Appearance.DisabledFont.Color = clWhite
List.Appearance.DisabledFont.Height = -11
List.Appearance.DisabledFont.Name = 'Tahoma'
List.Appearance.DisabledFont.Style = []
List.Appearance.HoveredFont.Charset = DEFAULT_CHARSET
List.Appearance.HoveredFont.Color = 4474440
List.Appearance.HoveredFont.Height = -11
List.Appearance.HoveredFont.Name = 'Tahoma'
List.Appearance.HoveredFont.Style = []
List.Appearance.SelectedFont.Charset = DEFAULT_CHARSET
List.Appearance.SelectedFont.Color = 4474440
List.Appearance.SelectedFont.Height = -11
List.Appearance.SelectedFont.Name = 'Tahoma'
List.Appearance.SelectedFont.Style = []
Fill.Color = clWhite
Fill.ColorTo = clNone
Fill.ColorMirror = clNone
Fill.ColorMirrorTo = clNone
Fill.GradientType = gtVertical
Fill.GradientMirrorType = gtSolid
Fill.BorderColor = 11250603
Fill.Rounding = 0
Fill.ShadowOffset = 0
Fill.Glow = gmNone
TabOrder = 0
ScrollType = stHandles
DoubleBuffered = True
TMSStyle = 0
object Edit1: TEdit
Left = 6
Top = 46
Width = 249
Height = 21
TabOrder = 0
Text = 'Edit1'
end
object ButtonBarItem1: TButtonBarItem
Tag = 0
X = 3
Y = 3
Height = 106
Width = 125
Level = 0
Index = 0
Status.Caption = '0'
Status.Appearance.Fill.Color = clRed
Status.Appearance.Fill.ColorMirror = clNone
Status.Appearance.Fill.ColorMirrorTo = clNone
Status.Appearance.Fill.GradientType = gtSolid
Status.Appearance.Fill.GradientMirrorType = gtSolid
Status.Appearance.Fill.BorderColor = clGray
Status.Appearance.Fill.Rounding = 0
Status.Appearance.Fill.ShadowOffset = 0
Status.Appearance.Fill.Glow = gmNone
Status.Appearance.Font.Charset = DEFAULT_CHARSET
Status.Appearance.Font.Color = clWhite
Status.Appearance.Font.Height = -11
Status.Appearance.Font.Name = 'Tahoma'
Status.Appearance.Font.Style = []
Status.Hint = 'Status Hint'
Control = Edit1
Elements = <>
end
end
end

Handles are drawn on the polylist background. If you wish that the handles are visible at all times, make sure that no other controls over these. You can do this with margins/alignwithmargins for the controls on the polylist.

Thanks Bruno for your helpful. Unfortunately margins not solved the problem.

Note another example:

This is the dfm:

object Form2: TForm2
Left = 0
Top = 0
Caption = 'Form2'
ClientHeight = 575
ClientWidth = 863
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesigned
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object CSHorizontalPolyList1: TCSHorizontalPolyList
AlignWithMargins = True
Left = 3
Top = 3
Width = 857
Height = 185
HorzScrollBar.Range = 1196
HorzScrollBar.ThumbSize = 857
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
AutoSizeType = astHeight
List.Appearance.Normal.Color = clWhite
List.Appearance.Normal.ColorTo = clNone
List.Appearance.Normal.ColorMirror = clNone
List.Appearance.Normal.ColorMirrorTo = clNone
List.Appearance.Normal.GradientType = gtVertical
List.Appearance.Normal.GradientMirrorType = gtVertical
List.Appearance.Normal.BorderColor = clNone
List.Appearance.Normal.Rounding = 2
List.Appearance.Normal.RoundingType = rtNone
List.Appearance.Normal.ShadowOffset = 0
List.Appearance.Normal.Glow = gmNone
List.Appearance.ButtonNormal.Color = clWhite
List.Appearance.ButtonNormal.ColorTo = clNone
List.Appearance.ButtonNormal.ColorMirror = clNone
List.Appearance.ButtonNormal.ColorMirrorTo = clNone
List.Appearance.ButtonNormal.GradientType = gtVertical
List.Appearance.ButtonNormal.GradientMirrorType = gtVertical
List.Appearance.ButtonNormal.BorderColor = clNone
List.Appearance.ButtonNormal.Rounding = 2
List.Appearance.ButtonNormal.RoundingType = rtNone
List.Appearance.ButtonNormal.ShadowOffset = 0
List.Appearance.ButtonNormal.Glow = gmNone
List.Appearance.Down.Color = 14925219
List.Appearance.Down.ColorTo = clNone
List.Appearance.Down.ColorMirror = clNone
List.Appearance.Down.ColorMirrorTo = clNone
List.Appearance.Down.GradientType = gtVertical
List.Appearance.Down.GradientMirrorType = gtVertical
List.Appearance.Down.BorderColor = 14925219
List.Appearance.Down.Rounding = 2
List.Appearance.Down.RoundingType = rtNone
List.Appearance.Down.ShadowOffset = 0
List.Appearance.Down.Glow = gmNone
List.Appearance.ButtonDown.Color = 14925219
List.Appearance.ButtonDown.ColorTo = clNone
List.Appearance.ButtonDown.ColorMirror = clNone
List.Appearance.ButtonDown.ColorMirrorTo = clNone
List.Appearance.ButtonDown.GradientType = gtVertical
List.Appearance.ButtonDown.GradientMirrorType = gtVertical
List.Appearance.ButtonDown.BorderColor = 14925219
List.Appearance.ButtonDown.Rounding = 2
List.Appearance.ButtonDown.RoundingType = rtNone
List.Appearance.ButtonDown.ShadowOffset = 0
List.Appearance.ButtonDown.Glow = gmNone
List.Appearance.Disabled.Color = clWhite
List.Appearance.Disabled.ColorTo = clNone
List.Appearance.Disabled.ColorMirror = clNone
List.Appearance.Disabled.ColorMirrorTo = clNone
List.Appearance.Disabled.GradientType = gtVertical
List.Appearance.Disabled.GradientMirrorType = gtVertical
List.Appearance.Disabled.BorderColor = 13948116
List.Appearance.Disabled.Rounding = 2
List.Appearance.Disabled.RoundingType = rtNone
List.Appearance.Disabled.ShadowOffset = 0
List.Appearance.Disabled.Glow = gmNone
List.Appearance.ButtonDisabled.Color = clWhite
List.Appearance.ButtonDisabled.ColorTo = clNone
List.Appearance.ButtonDisabled.ColorMirror = clNone
List.Appearance.ButtonDisabled.ColorMirrorTo = clNone
List.Appearance.ButtonDisabled.GradientType = gtVertical
List.Appearance.ButtonDisabled.GradientMirrorType = gtVertical
List.Appearance.ButtonDisabled.BorderColor = 13948116
List.Appearance.ButtonDisabled.Rounding = 2
List.Appearance.ButtonDisabled.RoundingType = rtNone
List.Appearance.ButtonDisabled.ShadowOffset = 0
List.Appearance.ButtonDisabled.Glow = gmNone
List.Appearance.Hovered.Color = 15917525
List.Appearance.Hovered.ColorTo = clNone
List.Appearance.Hovered.ColorMirror = clNone
List.Appearance.Hovered.ColorMirrorTo = clNone
List.Appearance.Hovered.GradientType = gtVertical
List.Appearance.Hovered.GradientMirrorType = gtVertical
List.Appearance.Hovered.BorderColor = 14925219
List.Appearance.Hovered.Rounding = 2
List.Appearance.Hovered.RoundingType = rtNone
List.Appearance.Hovered.ShadowOffset = 0
List.Appearance.Hovered.Glow = gmNone
List.Appearance.ButtonHovered.Color = 15917525
List.Appearance.ButtonHovered.ColorTo = clNone
List.Appearance.ButtonHovered.ColorMirror = clNone
List.Appearance.ButtonHovered.ColorMirrorTo = clNone
List.Appearance.ButtonHovered.GradientType = gtVertical
List.Appearance.ButtonHovered.GradientMirrorType = gtVertical
List.Appearance.ButtonHovered.BorderColor = 14925219
List.Appearance.ButtonHovered.Rounding = 2
List.Appearance.ButtonHovered.RoundingType = rtNone
List.Appearance.ButtonHovered.ShadowOffset = 0
List.Appearance.ButtonHovered.Glow = gmNone
List.Appearance.Selected.Color = 15917525
List.Appearance.Selected.ColorTo = clNone
List.Appearance.Selected.ColorMirror = clNone
List.Appearance.Selected.ColorMirrorTo = clNone
List.Appearance.Selected.GradientType = gtVertical
List.Appearance.Selected.GradientMirrorType = gtVertical
List.Appearance.Selected.BorderColor = 15917525
List.Appearance.Selected.Rounding = 2
List.Appearance.Selected.RoundingType = rtNone
List.Appearance.Selected.ShadowOffset = 0
List.Appearance.Selected.Glow = gmNone
List.Appearance.ButtonSelected.Color = 15917525
List.Appearance.ButtonSelected.ColorTo = clNone
List.Appearance.ButtonSelected.ColorMirror = clNone
List.Appearance.ButtonSelected.ColorMirrorTo = clNone
List.Appearance.ButtonSelected.GradientType = gtVertical
List.Appearance.ButtonSelected.GradientMirrorType = gtVertical
List.Appearance.ButtonSelected.BorderColor = 15917525
List.Appearance.ButtonSelected.Rounding = 2
List.Appearance.ButtonSelected.RoundingType = rtNone
List.Appearance.ButtonSelected.ShadowOffset = 0
List.Appearance.ButtonSelected.Glow = gmNone
List.Appearance.NormalFont.Charset = DEFAULT_CHARSET
List.Appearance.NormalFont.Color = 4474440
List.Appearance.NormalFont.Height = -11
List.Appearance.NormalFont.Name = 'Tahoma'
List.Appearance.NormalFont.Style = []
List.Appearance.DownFont.Charset = DEFAULT_CHARSET
List.Appearance.DownFont.Color = 4474440
List.Appearance.DownFont.Height = -11
List.Appearance.DownFont.Name = 'Tahoma'
List.Appearance.DownFont.Style = []
List.Appearance.DisabledFont.Charset = DEFAULT_CHARSET
List.Appearance.DisabledFont.Color = clWhite
List.Appearance.DisabledFont.Height = -11
List.Appearance.DisabledFont.Name = 'Tahoma'
List.Appearance.DisabledFont.Style = []
List.Appearance.HoveredFont.Charset = DEFAULT_CHARSET
List.Appearance.HoveredFont.Color = 4474440
List.Appearance.HoveredFont.Height = -11
List.Appearance.HoveredFont.Name = 'Tahoma'
List.Appearance.HoveredFont.Style = []
List.Appearance.SelectedFont.Charset = DEFAULT_CHARSET
List.Appearance.SelectedFont.Color = 4474440
List.Appearance.SelectedFont.Height = -11
List.Appearance.SelectedFont.Name = 'Tahoma'
List.Appearance.SelectedFont.Style = []
Fill.Color = clWhite
Fill.ColorTo = clNone
Fill.ColorMirror = clNone
Fill.ColorMirrorTo = clNone
Fill.GradientType = gtVertical
Fill.GradientMirrorType = gtSolid
Fill.BorderColor = 11250603
Fill.Rounding = 0
Fill.ShadowOffset = 0
Fill.Glow = gmNone
ListMargins.Left = 30
ListMargins.Right = 30
Align = alTop
TabOrder = 0
ScrollType = stHandles
DoubleBuffered = True
ExplicitTop = 387
TMSStyle = 0
object Edit1: TEdit
AlignWithMargins = True
Left = 60
Top = 6
Width = 440
Height = 172
TabOrder = 0
Text = 'Edit1'
end
object Edit2: TEdit
Left = 565
Top = 6
Width = 440
Height = 172
TabOrder = 1
Text = 'Edit2'
end
object Edit3: TEdit
Left = 1070
Top = 6
Width = 65
Height = 172
TabOrder = 2
Text = 'Edit3'
end
object ButtonBarItem1: TButtonBarItem
Tag = 0
X = 30
Y = 3
Height = 178
Width = 500
Level = 0
Index = 0
Status.Caption = '0'
Status.Appearance.Fill.Color = clRed
Status.Appearance.Fill.ColorMirror = clNone
Status.Appearance.Fill.ColorMirrorTo = clNone
Status.Appearance.Fill.GradientType = gtSolid
Status.Appearance.Fill.GradientMirrorType = gtSolid
Status.Appearance.Fill.BorderColor = clGray
Status.Appearance.Fill.Rounding = 0
Status.Appearance.Fill.ShadowOffset = 0
Status.Appearance.Fill.Glow = gmNone
Status.Appearance.Font.Charset = DEFAULT_CHARSET
Status.Appearance.Font.Color = clWhite
Status.Appearance.Font.Height = -11
Status.Appearance.Font.Name = 'Tahoma'
Status.Appearance.Font.Style = []
Status.Hint = 'Status Hint'
Control = Edit1
ControlMargin.Left = 30
ControlMargin.Right = 30
ControlStretched = True
Elements = <>
end
object ButtonBarItem2: TButtonBarItem
Tag = 0
X = 535
Y = 3
Height = 178
Width = 500
Level = 0
Index = 1
Status.Caption = '0'
Status.Appearance.Fill.Color = clRed
Status.Appearance.Fill.ColorMirror = clNone
Status.Appearance.Fill.ColorMirrorTo = clNone
Status.Appearance.Fill.GradientType = gtSolid
Status.Appearance.Fill.GradientMirrorType = gtSolid
Status.Appearance.Fill.BorderColor = clGray
Status.Appearance.Fill.Rounding = 0
Status.Appearance.Fill.ShadowOffset = 0
Status.Appearance.Fill.Glow = gmNone
Status.Appearance.Font.Charset = DEFAULT_CHARSET
Status.Appearance.Font.Color = clWhite
Status.Appearance.Font.Height = -11
Status.Appearance.Font.Name = 'Tahoma'
Status.Appearance.Font.Style = []
Status.Hint = 'Status Hint'
Control = Edit2
ControlMargin.Left = 30
ControlMargin.Right = 30
ControlStretched = True
Elements = <>
end
object ButtonBarItem3: TButtonBarItem
Tag = 0
X = 1040
Y = 3
Height = 178
Width = 125
Level = 0
Index = 2
Status.Caption = '0'
Status.Appearance.Fill.Color = clRed
Status.Appearance.Fill.ColorMirror = clNone
Status.Appearance.Fill.ColorMirrorTo = clNone
Status.Appearance.Fill.GradientType = gtSolid
Status.Appearance.Fill.GradientMirrorType = gtSolid
Status.Appearance.Fill.BorderColor = clGray
Status.Appearance.Fill.Rounding = 0
Status.Appearance.Fill.ShadowOffset = 0
Status.Appearance.Fill.Glow = gmNone
Status.Appearance.Font.Charset = DEFAULT_CHARSET
Status.Appearance.Font.Color = clWhite
Status.Appearance.Font.Height = -11
Status.Appearance.Font.Name = 'Tahoma'
Status.Appearance.Font.Style = []
Status.Hint = 'Status Hint'
Control = Edit3
ControlMargin.Left = 30
ControlMargin.Right = 30
ControlStretched = True
Elements = <>
end
end
end

Thanks for your attention!