-
Notifications
You must be signed in to change notification settings - Fork 5
/
statistik_u.lfm
151 lines (151 loc) · 3.52 KB
/
statistik_u.lfm
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
object statistikForm: TstatistikForm
Left = 338
Height = 387
Top = 185
Width = 623
ActiveControl = Panel1
Caption = 'Statistik'
ClientHeight = 387
ClientWidth = 623
OnCreate = FormCreate
OnDestroy = FormDestroy
OnResize = FormResize
OnShow = FormShow
LCLVersion = '2.0.0.4'
Scaled = False
object PaintBox1: TPaintBox
AnchorSideTop.Control = Panel1
Left = 0
Height = 299
Top = 45
Width = 623
Align = alClient
Anchors = [akLeft, akRight, akBottom]
OnMouseMove = PaintBox1MouseMove
OnPaint = PaintBox1Paint
OnResize = PaintBox1Resize
end
object Panel1: TPanel
Left = 3
Height = 39
Top = 3
Width = 617
Align = alTop
AutoSize = True
BorderSpacing.Around = 3
BevelOuter = bvNone
ChildSizing.TopBottomSpacing = 3
ChildSizing.VerticalSpacing = 3
ClientHeight = 39
ClientWidth = 617
TabOrder = 0
object ComboBox1: TComboBox
AnchorSideLeft.Control = ComboBox2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrCenter
Left = 284
Height = 31
Top = 4
Width = 109
BorderSpacing.Around = 4
ItemHeight = 0
Items.Strings = (
'Tag'
'Woche'
'Monat'
'Jahr'
)
OnSelect = ComboBox1Select
Style = csDropDownList
TabOrder = 0
end
object CheckBox1: TCheckBox
AnchorSideLeft.Control = ComboBox1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrCenter
Left = 397
Height = 21
Top = 7
Width = 135
BorderSpacing.Around = 4
Caption = 'Summe anzeigen'
Checked = True
OnClick = CheckBox1Click
State = cbChecked
TabOrder = 1
end
object CheckBox2: TCheckBox
AnchorSideLeft.Control = CheckBox1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrCenter
Left = 536
Height = 21
Top = 7
Width = 59
BorderSpacing.Around = 4
Caption = 'füllen'
OnChange = CheckBox2Change
TabOrder = 2
end
object ComboBox2: TComboBox
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Side = asrCenter
Left = 4
Height = 31
Top = 4
Width = 276
BorderSpacing.Around = 4
ItemHeight = 0
ItemIndex = 0
Items.Strings = (
'Anzahl ausgeliehener Bücher per:'
'Anzahl neu ausgeliehener Bücher per:'
)
OnSelect = ComboBox1Select
Style = csDropDownList
TabOrder = 3
Text = 'Anzahl ausgeliehener Bücher per:'
end
end
object Panel2: TPanel
Left = 0
Height = 43
Top = 344
Width = 623
Align = alBottom
AutoSize = True
ClientHeight = 43
ClientWidth = 623
TabOrder = 1
object mausInfo: TLabel
AnchorSideTop.Control = Panel2
AnchorSideTop.Side = asrCenter
Left = 1
Height = 19
Top = 12
Width = 37
Caption = 'Maus:'
ParentColor = False
end
object Button1: TButton
AnchorSideTop.Control = Panel2
AnchorSideTop.Side = asrCenter
Left = 540
Height = 41
Top = 1
Width = 80
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.InnerBorder = 4
Caption = 'Schließen'
OnClick = Button1Click
TabOrder = 0
end
end
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
Left = 119
Top = 87
end
end