paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added horizontal scrollbar to the demo

Browse Source 
git-svn-id: branches/unicodekvm@48786 -
This commit is contained in:
nickysn 2021-02-22 04:22:48 +00:00
parent 6bef792f33
commit 028c062192
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fv/examples/testuapp.pas
View File

@ -111,13 +111,13 @@ begin
NewSITem('Item 2', Nil))))); { Insert check box }
R.Assign(5, 2, 20, 3); { Assign area }
//B := New(PScrollBar, Init(R)); { Insert scroll bar }
//If (B <> Nil) Then Begin { Scrollbar valid }
// B^.SetRange(0, 100); { Set scrollbar range }
// B^.SetValue(50); { Set position }
// P^.Insert(B); { Insert scrollbar }
//End;
//R.Assign(5, 10, 20, 11); { Assign area }
B := New(PScrollBar, Init(R)); { Insert scroll bar }
If (B <> Nil) Then Begin { Scrollbar valid }
B^.SetRange(0, 100); { Set scrollbar range }
B^.SetValue(50); { Set position }
P^.Insert(B); { Insert scrollbar }
End;
R.Assign(5, 10, 20, 11); { Assign area }
//P^.Insert(New(PInputLine, Init(R, 60))); { Create input line }
//R.Assign(5, 13, 20, 14); { Assign area }