paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 13:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added scrollbar and listbox to the unicode example

Browse Source 
git-svn-id: branches/unicodekvm@48783 -
This commit is contained in:
nickysn 2021-02-22 04:14:14 +00:00
parent c669b8ac83
commit 46586902f4
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -98,7 +98,7 @@ end;
procedure TMyUnicodeApp.Window3; procedure TMyUnicodeApp.Window3;
VAR R: TRect; P: PGroup; B: PScrollBar; VAR R: TRect; P: PGroup; B: PScrollBar;
List: PStrCollection; Lb: PListBox; List: PUnicodeStringCollection; Lb: PListBox;
begin begin
{ Create a basic dialog box. In it are buttons, } { Create a basic dialog box. In it are buttons, }
{ list boxes, scrollbars, inputlines, checkboxes } { list boxes, scrollbars, inputlines, checkboxes }
@ -123,27 +123,27 @@ begin
//R.Assign(5, 13, 20, 14); { Assign area } //R.Assign(5, 13, 20, 14); { Assign area }
//P^.Insert(New(PInputLine, Init(R, 60))); { Create input line } //P^.Insert(New(PInputLine, Init(R, 60))); { Create input line }
//R.Assign(40, 8, 41, 14); { Assign area } R.Assign(40, 8, 41, 14); { Assign area }
//B := New(PScrollBar, Init(R)); { Create scrollbar } B := New(PScrollBar, Init(R)); { Create scrollbar }
//P^.Insert(B); { Insert scrollbar } P^.Insert(B); { Insert scrollbar }
//R.Assign(25, 8, 40, 14); { Assign area } R.Assign(25, 8, 40, 14); { Assign area }
//Lb := New(PListBox, Init(R, 1, B)); { Create listbox } Lb := New(PListBox, Init(R, 1, B)); { Create listbox }
//P^.Insert(Lb); { Insert listbox } P^.Insert(Lb); { Insert listbox }
//List := New(PStrCollection, Init(10, 5)); { Create string list } List := New(PUnicodeStringCollection, Init(10, 5)); { Create string list }
//List^.AtInsert(0, NewStr('Zebra')); { Insert text } List^.AtInsert(0, 'Zebra'); { Insert text }
//List^.AtInsert(1, NewStr('Apple')); { Insert text } List^.AtInsert(1, 'Apple'); { Insert text }
//List^.AtInsert(2, NewStr('Third')); { Insert text } List^.AtInsert(2, 'Third'); { Insert text }
//List^.AtInsert(3, NewStr('Peach')); { Insert text } List^.AtInsert(3, 'Peach'); { Insert text }
//List^.AtInsert(4, NewStr('Rabbit')); { Insert text } List^.AtInsert(4, 'Rabbit'); { Insert text }
//List^.AtInsert(5, NewStr('Item six')); { Insert text } List^.AtInsert(5, 'Item six'); { Insert text }
//List^.AtInsert(6, NewStr('Jaguar')); { Insert text } List^.AtInsert(6, 'Jaguar'); { Insert text }
//List^.AtInsert(7, NewStr('Melon')); { Insert text } List^.AtInsert(7, 'Melon'); { Insert text }
//List^.AtInsert(8, NewStr('Ninth')); { Insert text } List^.AtInsert(8, 'Ninth'); { Insert text }
//List^.AtInsert(9, NewStr('Last item')); { Insert text } List^.AtInsert(9, 'Last item'); { Insert text }
//Lb^.Newlist(List); { Give list to listbox } Lb^.Newlist(List); { Give list to listbox }
//R.Assign(30, 2, 40, 4); { Assign area } R.Assign(30, 2, 40, 4); { Assign area }
P^.Insert(New(PButton, Init(R, '好的', 100, bfGrabFocus)));{ Create okay button } P^.Insert(New(PButton, Init(R, '好的', 100, bfGrabFocus)));{ Create okay button }
R.Assign(30, 15, 40, 17); { Assign area } R.Assign(30, 15, 40, 17); { Assign area }