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