blob: 9508c21e7c750f161c7364afa488a0a51a2dc81e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
object MainForm: TMainForm
Text = 'DBF test'
BorderWidth = 8
OnCreate = FormCreate
object Box: TBoxLayout
Spacing = 8
Orientation = Vertical
object ListBox: TListBox
end
object CurDatasetLabel: TLabel
Text = 'Current dataset:'
end
object CurNameText: TDBText
Text = '<name>'
end
object CurEMailText: TDBText
Text = '<e-mail>'
end
object Navi: TBoxLayout
object FirstDataset: TButton
Text = 'First'
OnClick = FirstDatasetClick
end
object PrevDataset: TButton
Text = 'Previous'
OnClick = PrevDatasetClick
end
object NextDataset: TButton
Text = 'Next'
OnClick = NextDatasetClick
end
object LastDataset: TButton
Text = 'Last'
OnClick = LastDatasetClick
end
end
end
end
|