[SOLVED] Horizontal TSpinEdit?

[jamie]

Wow, such a compromise.

[VTwin]

Yes, it is too bad. I have tried arrows. Unfortunately they do not increment when holding them down like an updown does.

I just noted it in case the OP was hoping the solution was cross platform.

[jamie]

If you want such a look, you could create a TFrame with all the needed items within and then just include it later.

[VTwin]

I have not tried TFrames, I will have a look. Thanks.

I try to stick with native controls if possible, and the TUpDown is not a huge issue for me. Just a heads up that a horiz one is not cross platform.

[winni]

Yes, it is too bad. I have tried arrows. Unfortunately they do not increment when holding them down like an updown does.

I just noted it in case the OP was hoping the solution was cross platform.

Hi!

Use OnMouseDown and OnMouseUp:

Increment the Edit in a loop until OnMouseUp.
The loop needs perhaps a little sleep between the incrementations.
And definitly an Application.ProcessMessages

Winni

[del]

I jumped over to Windows for a while to play with that android subsystem, and I brought a bunch of my work over from the Linux side and FWIW it works on Windows 11 too.

[Blaazen]

This can be do with TECSpinBtns or TECSpinEdit from EC-Controls. There is property GlyphStyle (or Buttons.GlyphStyle). Horizontal arrows are egsPlayer and egsComparison. Screenshot added but It's even more configurable.