TSlider (VCL)

[stahli]

Ich habe für eigene Zwecke eine kleine VCL-Komponente erstellt, die 3 Zustände darstellen und verwalten kann: Off, None, On (einstellbar durch MouseClick oder MouseMove)

Es ist eine rudimentäre Umsetzung für meine eigenen Bedürfnisse (basierend auf einem Panel).

Für den Fall, dass es jemand gebrauchen kann, hier die Unit zur freien Verwendung.

[himitsu]

IsSliderStateStored ist etwas nutlos, denn rate mal was das "default" macht.



Off, None, On = cbUnchecked, cbGrayed, cbChecked

Im Prinzip ist das doch eine CheckBox.
Wie wäre es, wenn man soeine Komponente von etwas Entsprechendem ableiten würde?
* TCheckBox oder TCustomCheckBox
* gleiches Verhalten
* leicht austauschbar, da kompatible API


Man könnte es auch von einem Button ableiten, aber ein Button eigentlich nur zwei "nutzbare" Zusände kennt und hier die Caption neben und nicht auf dem Control steht ....
Off, None, On = Up, Disabled, Down




Und bezüglich den USES da ganz unten im Code (in Implementation)
https://www.delphipraxis.net/205364-...da-noch-2.html

[stahli]

Eine Checkbox ist nicht das, was ich wollte.

Die Feinheiten und Redundanzen der VCL sind nicht mein Hauptthema (ich hatte das aus den aktuellen VCL-Controls übernommen).
Für mich reicht das so und funktioniert wie gewünscht.

Wenn das jemand optimieren möchte, gerne.