diff options
Diffstat (limited to 'examples/gui/widgettest/scrollbarform.frm')
-rw-r--r-- | examples/gui/widgettest/scrollbarform.frm | 175 |
1 files changed, 175 insertions, 0 deletions
diff --git a/examples/gui/widgettest/scrollbarform.frm b/examples/gui/widgettest/scrollbarform.frm new file mode 100644 index 00000000..5c238e23 --- /dev/null +++ b/examples/gui/widgettest/scrollbarform.frm @@ -0,0 +1,175 @@ +object ScrollBarForm: TScrollBarForm + BorderWidth = 8 + Text = 'Scroll bar test' + object VertBox: TBoxLayout + Orientation = Vertical + object GrayCheckBox: TCheckBox + Text = 'Gray everything' + OnClick = GrayCheckBoxClick + end + object HorzBox: TBoxLayout + object HorzGrid: TGridLayout + ColCount = 3 + RowCount = 6 + ColSpacing = 8 + GridPositions = < + item + x = 2 + Widget = Col3Label + end + item + y = 1 + Widget = Label1 + end + item + x = 1 + y = 1 + Widget = ScrollBar1 + end + item + x = 2 + y = 1 + Widget = PosLabel1 + end + item + y = 2 + Widget = Label2 + end + item + x = 1 + y = 2 + Widget = ScrollBar2 + end + item + x = 2 + y = 2 + Widget = PosLabel2 + end + item + y = 3 + Widget = Label3 + end + item + x = 1 + y = 3 + Widget = ScrollBar3 + end + item + x = 2 + y = 3 + Widget = PosLabel3 + end + item + y = 4 + Widget = Label4 + end + item + x = 1 + y = 4 + Widget = ScrollBar4 + end + item + x = 2 + y = 4 + Widget = PosLabel4 + end + item + y = 5 + Widget = Label5 + end + item + x = 1 + y = 5 + Widget = ScrollBar5 + end + item + x = 2 + y = 5 + Widget = PosLabel5 + end> + object Col3Label: TLabel + Alignment = taCenter + Text = 'Position' + end + object Label1: TLabel + Alignment = taRightJustify + Text = '0..1, PageSize=0:' + end + object ScrollBar1: TScrollBar + Min = 0 + Max = 1 + OnChange = ScrollBar1Change + end + object PosLabel1: TLabel + Alignment = taCenter + Text = '---' + end + object Label2: TLabel + Alignment = taRightJustify + Text = '0..1, PageSize=1:' + end + object ScrollBar2: TScrollBar + Max = 1 + PageSize = 1 + OnChange = ScrollBar2Change + end + object PosLabel2: TLabel + Alignment = taCenter + Text = '---' + end + object Label3: TLabel + Alignment = taRightJustify + Text = '-2..3, PageSize=0:' + end + object ScrollBar3: TScrollBar + Min = -2 + Max = 3 + OnChange = ScrollBar3Change + end + object PosLabel3: TLabel + Alignment = taCenter + Text = '---' + end + object Label4: TLabel + Alignment = taRightJustify + Text = '-5..9, PageSize=4:' + end + object ScrollBar4: TScrollBar + Min = -5 + Max = 9 + PageSize = 4 + OnChange = ScrollBar4Change + end + object PosLabel4: TLabel + Alignment = taCenter + Text = '---' + end + object Label5: TLabel + Alignment = taRightJustify + Text = '-100..200, PageSize=7:' + end + object ScrollBar5: TScrollBar + Min = -100 + Max = 200 + PageSize = 7 + OnChange = ScrollBar5Change + end + object PosLabel5: TLabel + Alignment = taCenter + Text = '---' + end + end + object VertBar: TSeparator + Orientation = Vertical + end + object VertLabel: TLabel + Text = 'Vertical:' + end + object VertScrollBar: TScrollBar + Orientation = Vertical + Min = -2 + Max = 3 + end + end + end +end |