Die "Schieberegler" sind die
TThumbs
. Diese besitzen einen eigenen Style
vthumbstyle
(vertikal) und
hthumbstyle
(horizontal).
Klatsch dir ein StyleBook auf die Form und einen beherzten Doppelklick auf selbiges.
Dann ein
TLayout
reinklatschen (
StyleName
auf
vthumbstyle setzen) und in das Layout ein
TRectangle
(
HitTest = false; Align = Contents
) und das jetzt farblich anpassen.
Das gleiche nochmal für den
hthumbstyle
und fertig ist der Keks.
Code:
object TStyleContainer
object TLayout
StyleName = 'hthumbstyle'
Position.X = 752.000000000000000000
Position.Y = 472.000000000000000000
Visible = False
TabOrder = 0
object TRectangle
StyleName = 'rectangle1style'
Align = Contents
Fill.Color = claCrimson
HitTest = False
Size.Width = 50.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
end
end
object TLayout
StyleName = 'vthumbstyle'
Position.X = 752.000000000000000000
Position.Y = 472.000000000000000000
Visible = False
TabOrder = 1
object TRectangle
StyleName = 'rectangle1style'
Align = Contents
Fill.Color = claCrimson
HitTest = False
Size.Width = 50.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
XRadius = 3.000000000000000000
YRadius = 3.000000000000000000
end
end
end
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)