如何制作垂直滑块？答案

【问题标题】：How to make a vertical slider?如何制作垂直滑块？
【发布时间】：2020-11-29 23:00:14
【问题描述】：

我需要一个类似于标准滑块的垂直滑块。有没有办法修改现有的或者我需要制作一个新的？

标准滑块对我有用。我只需要它垂直工作。

也许我应该更好地澄清标准滑块的问题。是的，我可以拖动滑块的大小，它将是垂直的。问题是，当您选择滑块的值以显示文本时，当您一直向下滑动时，文本会隐藏在滑块的下侧。它基本上被截断，只显示滑块值字符的上半部分。我没有办法通过将显示的文本向上移动一点来纠正这个问题，所以一切都显示出来了。我看不到在属性设置中更改文本垂直或偏移位置的方法。文本设置仅允许您将文本格式更改为右对齐、居中对齐和左对齐。没有设置可以将文本向上移动以防止在滑块一直到较低或向下位置时将其切断。值文本在滑块顶部显示为 ok。当您将滑块设置为垂直时，问题出在底部。看起来显示值设置没有将值放在滑块的顶层，它隐藏在滑块对象中的其他内容后面。 LC9，Windows 10

【问题讨论】：

标签： livecode

【解决方案1】：

我想我理解你的问题。如果只是调整水平滑块控件的大小，使宽度小于高度，滑块控件的方向会自动变为垂直。

【讨论】：

【解决方案2】：

显然这是这个版本的 LC 中的一个错误。至少在我正在测试的 Win 中。
当滚动条到达底部时，垂直放置滚动条会削减值。
但我找到了一个解决方案，使它不会被削减。玩弄字体的属性。比如大小和家庭。在我的情况下，它通过将字体大小降低一个像素来正常工作。
默认值：Segoe UI 字体，12 号
我只是将大小设置为 11，它不再切割了。

【讨论】：

小字体可以工作，但我的应用程序是在 27 英寸的显示器上，所以小字体不适合我。您认为将其发送给 bugzilla 会解决问题吗？
把它寄过来，也许他们很快就会修好。但是同时可以使用一个字段来放滚动条的值。虽然他们修复了这个错误

【解决方案3】：

不管怎样，我在 Mac 上看不到这个问题。垂直滑块的工作原理与宣传的一样。字体大小没有区别。

你是说在水平模式下你看不到这个，但是当改为垂直模式时你会看到？

【讨论】：

是的...我在 Windows 上..在水平上工作正常..问题只在垂直上

【解决方案4】：

尝试创建滚动条和文本字段。将滚动条的 showValue 属性设置为 false 并将以下脚本复制到滚动条。请注意，您的字段必须称为“滚动值”。

on scrollbarDrag pNewPosition
   local tLoc
   lock screen
   
   # The Current Loc of Field
   put the loc of field "scroll value" into tLoc
   
   # New Position of scrollbar
   put pNewPosition into field "scroll value"
   
   # New Loc of Field
   put the mouseV into the item 2 of tLoc
   set the loc of field "scroll value" to tLoc
   set the left of field "scroll value" to the right of me

   unlock screen
end scrollbarDrag

【讨论】：