1object TimePopupForm: TTimePopupForm
2  Left = 376
3  Height = 185
4  Top = 246
5  Width = 294
6  AutoSize = True
7  BorderIcons = []
8  BorderStyle = bsNone
9  Caption = 'TimePopupForm'
10  ClientHeight = 185
11  ClientWidth = 294
12  OnClose = FormClose
13  OnCreate = FormCreate
14  OnDeactivate = FormDeactivate
15  PopupMode = pmAuto
16  LCLVersion = '1.7'
17  Scaled = True
18  object MainPanel: TPanel
19    Left = 0
20    Height = 185
21    Top = 0
22    Width = 294
23    Align = alClient
24    AutoSize = True
25    BevelOuter = bvNone
26    BorderWidth = 1
27    BorderStyle = bsSingle
28    ClientHeight = 181
29    ClientWidth = 290
30    Color = clWindow
31    ParentColor = False
32    TabOrder = 0
33    UseDockManager = False
34    object HoursGrid: TStringGrid
35      Left = 1
36      Height = 43
37      Top = 1
38      Width = 288
39      Align = alTop
40      AutoFillColumns = True
41      BorderStyle = bsNone
42      Color = clBtnFace
43      ColCount = 12
44      Constraints.MinHeight = 42
45      Constraints.MinWidth = 280
46      ExtendedSelect = False
47      FixedCols = 0
48      FixedRows = 0
49      GridLineWidth = 0
50      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goSmoothScroll, goSelectionActive]
51      RowCount = 2
52      ScrollBars = ssNone
53      TabOrder = 0
54      UseXORFeatures = True
55      OnDblClick = GridsDblClick
56      OnKeyDown = GridsKeyDown
57      OnPrepareCanvas = GridPrepareCanvas
58      ColWidths = (
59        24
60        24
61        24
62        24
63        24
64        24
65        24
66        24
67        24
68        24
69        24
70        24
71      )
72      Cells = (
73        24
74        0
75        0
76        '00'
77        0
78        1
79        '12'
80        1
81        0
82        '01'
83        1
84        1
85        '13'
86        2
87        0
88        '02'
89        2
90        1
91        '14'
92        3
93        0
94        '03'
95        3
96        1
97        '15'
98        4
99        0
100        '04'
101        4
102        1
103        '16'
104        5
105        0
106        '05'
107        5
108        1
109        '17'
110        6
111        0
112        '06'
113        6
114        1
115        '18'
116        7
117        0
118        '07'
119        7
120        1
121        '19'
122        8
123        0
124        '08'
125        8
126        1
127        '20'
128        9
129        0
130        '09'
131        9
132        1
133        '21'
134        10
135        0
136        '10'
137        10
138        1
139        '22'
140        11
141        0
142        '11'
143        11
144        1
145        '23'
146      )
147    end
148    object MinutesGrid: TStringGrid
149      Left = 1
150      Height = 59
151      Top = 61
152      Width = 288
153      Align = alTop
154      AutoFillColumns = True
155      BorderStyle = bsNone
156      ColCount = 6
157      Constraints.MinWidth = 280
158      FixedCols = 0
159      FixedRows = 0
160      Flat = True
161      GridLineWidth = 0
162      Options = [goFixedVertLine, goDrawFocusSelected, goSmoothScroll]
163      RowCount = 2
164      ScrollBars = ssNone
165      TabOrder = 1
166      UseXORFeatures = True
167      OnDblClick = GridsDblClick
168      OnKeyDown = GridsKeyDown
169      OnPrepareCanvas = GridPrepareCanvas
170      ColWidths = (
171        48
172        48
173        48
174        48
175        48
176        48
177      )
178      Cells = (
179        12
180        0
181        0
182        '00'
183        0
184        1
185        '30'
186        1
187        0
188        '05'
189        1
190        1
191        '35'
192        2
193        0
194        '10'
195        2
196        1
197        '40'
198        3
199        0
200        '15'
201        3
202        1
203        '45'
204        4
205        0
206        '20'
207        4
208        1
209        '50'
210        5
211        0
212        '25'
213        5
214        1
215        '55'
216      )
217    end
218    object Bevel1: TBevel
219      Left = 1
220      Height = 10
221      Top = 51
222      Width = 288
223      Align = alTop
224      BorderSpacing.Top = 7
225      Shape = bsTopLine
226    end
227    object MoreLessBtn: TBitBtn
228      AnchorSideTop.Control = MinutesGrid
229      AnchorSideTop.Side = asrBottom
230      AnchorSideRight.Control = MainPanel
231      AnchorSideRight.Side = asrBottom
232      Left = 155
233      Height = 22
234      Hint = 'Ctrl + >'
235      Top = 125
236      Width = 134
237      Anchors = [akTop, akLeft, akRight]
238      BorderSpacing.Top = 5
239      Caption = '>>'
240      OnClick = MoreLessBtnClick
241      TabOrder = 2
242    end
243  end
244end
245