[456] | 1 | inherited frmVisitType: TfrmVisitType
|
---|
[829] | 2 | Left = 260
|
---|
[456] | 3 | Caption = 'Encounter VisitType'
|
---|
[829] | 4 | ClientHeight = 438
|
---|
| 5 | ClientWidth = 592
|
---|
| 6 | Constraints.MinHeight = 465
|
---|
| 7 | Constraints.MinWidth = 600
|
---|
[456] | 8 | OnCloseQuery = FormCloseQuery
|
---|
[829] | 9 | ExplicitWidth = 600
|
---|
[1693] | 10 | ExplicitHeight = 465
|
---|
[456] | 11 | PixelsPerInch = 96
|
---|
| 12 | TextHeight = 13
|
---|
| 13 | inherited btnOK: TBitBtn
|
---|
[829] | 14 | Left = 436
|
---|
| 15 | Top = 414
|
---|
| 16 | TabOrder = 3
|
---|
| 17 | ExplicitLeft = 474
|
---|
| 18 | ExplicitTop = 459
|
---|
[456] | 19 | end
|
---|
[829] | 20 | object pnlTop: TPanel [1]
|
---|
| 21 | Left = 0
|
---|
| 22 | Top = 0
|
---|
| 23 | Width = 592
|
---|
| 24 | Height = 105
|
---|
| 25 | Align = alTop
|
---|
[456] | 26 | BevelOuter = bvNone
|
---|
| 27 | TabOrder = 0
|
---|
[829] | 28 | ExplicitWidth = 630
|
---|
[456] | 29 | object splLeft: TSplitter
|
---|
| 30 | Left = 145
|
---|
| 31 | Top = 0
|
---|
[829] | 32 | Height = 105
|
---|
| 33 | ExplicitLeft = 154
|
---|
| 34 | ExplicitTop = 7
|
---|
| 35 | ExplicitHeight = 145
|
---|
[456] | 36 | end
|
---|
| 37 | object splRight: TSplitter
|
---|
[829] | 38 | Left = 361
|
---|
[456] | 39 | Top = 0
|
---|
[829] | 40 | Height = 105
|
---|
| 41 | ExplicitLeft = 634
|
---|
[456] | 42 | end
|
---|
| 43 | object pnlLeft: TPanel
|
---|
| 44 | Left = 0
|
---|
| 45 | Top = 0
|
---|
| 46 | Width = 145
|
---|
[829] | 47 | Height = 105
|
---|
[456] | 48 | Align = alLeft
|
---|
| 49 | BevelOuter = bvNone
|
---|
| 50 | TabOrder = 0
|
---|
[829] | 51 | ExplicitHeight = 145
|
---|
| 52 | object lblVTypeSection: TLabel
|
---|
| 53 | Left = 0
|
---|
| 54 | Top = 0
|
---|
| 55 | Width = 145
|
---|
| 56 | Height = 13
|
---|
| 57 | Align = alTop
|
---|
| 58 | Caption = 'Type of Visit'
|
---|
| 59 | ExplicitWidth = 58
|
---|
| 60 | end
|
---|
[456] | 61 | object lstVTypeSection: TORListBox
|
---|
| 62 | Tag = 10
|
---|
| 63 | Left = 0
|
---|
[829] | 64 | Top = 13
|
---|
[456] | 65 | Width = 145
|
---|
| 66 | Height = 92
|
---|
[829] | 67 | Align = alClient
|
---|
[456] | 68 | ItemHeight = 13
|
---|
| 69 | ParentShowHint = False
|
---|
| 70 | ShowHint = True
|
---|
| 71 | TabOrder = 0
|
---|
| 72 | OnClick = lstVTypeSectionClick
|
---|
| 73 | Caption = 'Type of Visit'
|
---|
| 74 | ItemTipColor = clWindow
|
---|
| 75 | LongList = False
|
---|
| 76 | Pieces = '3'
|
---|
| 77 | CheckEntireLine = True
|
---|
| 78 | end
|
---|
| 79 | end
|
---|
[829] | 80 | object pnlModifiers: TPanel
|
---|
| 81 | Left = 364
|
---|
| 82 | Top = 0
|
---|
| 83 | Width = 228
|
---|
| 84 | Height = 105
|
---|
| 85 | Align = alClient
|
---|
| 86 | BevelOuter = bvNone
|
---|
| 87 | TabOrder = 2
|
---|
| 88 | ExplicitLeft = 431
|
---|
| 89 | ExplicitWidth = 199
|
---|
| 90 | ExplicitHeight = 145
|
---|
| 91 | object lblMod: TLabel
|
---|
| 92 | Left = 0
|
---|
| 93 | Top = 0
|
---|
| 94 | Width = 228
|
---|
| 95 | Height = 13
|
---|
| 96 | Hint = 'Modifiers'
|
---|
| 97 | Align = alTop
|
---|
| 98 | Caption = 'Modifiers'
|
---|
| 99 | ParentShowHint = False
|
---|
| 100 | ShowHint = True
|
---|
| 101 | ExplicitWidth = 42
|
---|
| 102 | end
|
---|
| 103 | object lbMods: TORListBox
|
---|
| 104 | Left = 0
|
---|
| 105 | Top = 13
|
---|
| 106 | Width = 228
|
---|
| 107 | Height = 92
|
---|
| 108 | Style = lbOwnerDrawFixed
|
---|
| 109 | Align = alClient
|
---|
| 110 | Font.Charset = DEFAULT_CHARSET
|
---|
| 111 | Font.Color = clWindowText
|
---|
| 112 | Font.Height = -11
|
---|
| 113 | Font.Name = 'MS Sans Serif'
|
---|
| 114 | Font.Style = []
|
---|
| 115 | ItemHeight = 14
|
---|
| 116 | ParentFont = False
|
---|
| 117 | ParentShowHint = False
|
---|
| 118 | ShowHint = True
|
---|
| 119 | TabOrder = 0
|
---|
| 120 | Caption = 'Modifiers'
|
---|
| 121 | ItemTipColor = clWindow
|
---|
| 122 | LongList = False
|
---|
| 123 | Pieces = '2,3'
|
---|
| 124 | TabPosInPixels = True
|
---|
| 125 | CheckBoxes = True
|
---|
| 126 | CheckEntireLine = True
|
---|
| 127 | OnClickCheck = lbModsClickCheck
|
---|
| 128 | ExplicitWidth = 199
|
---|
| 129 | ExplicitHeight = 132
|
---|
| 130 | end
|
---|
| 131 | end
|
---|
| 132 | object pnlSection: TPanel
|
---|
[456] | 133 | Left = 148
|
---|
| 134 | Top = 0
|
---|
[829] | 135 | Width = 213
|
---|
| 136 | Height = 105
|
---|
| 137 | Align = alLeft
|
---|
| 138 | BevelOuter = bvNone
|
---|
| 139 | Caption = 'pnlSection'
|
---|
[456] | 140 | TabOrder = 1
|
---|
[829] | 141 | object lblVType: TLabel
|
---|
| 142 | Left = 0
|
---|
| 143 | Top = 0
|
---|
| 144 | Width = 213
|
---|
| 145 | Height = 13
|
---|
| 146 | Align = alTop
|
---|
| 147 | Caption = 'Section Name'
|
---|
| 148 | ExplicitWidth = 67
|
---|
| 149 | end
|
---|
| 150 | object lbxVisits: TORListBox
|
---|
| 151 | Tag = 10
|
---|
| 152 | Left = 0
|
---|
| 153 | Top = 13
|
---|
| 154 | Width = 213
|
---|
| 155 | Height = 92
|
---|
| 156 | Style = lbOwnerDrawFixed
|
---|
| 157 | Align = alClient
|
---|
| 158 | ItemHeight = 16
|
---|
| 159 | ParentShowHint = False
|
---|
| 160 | ShowHint = True
|
---|
| 161 | TabOrder = 0
|
---|
| 162 | OnClick = lbxVisitsClick
|
---|
| 163 | Caption = 'Section Name'
|
---|
| 164 | ItemTipColor = clWindow
|
---|
| 165 | LongList = False
|
---|
| 166 | Pieces = '3,4,5'
|
---|
| 167 | TabPosInPixels = True
|
---|
| 168 | CheckBoxes = True
|
---|
| 169 | CheckEntireLine = True
|
---|
| 170 | OnClickCheck = lbxVisitsClickCheck
|
---|
| 171 | ExplicitLeft = -3
|
---|
| 172 | ExplicitTop = 7
|
---|
| 173 | ExplicitWidth = 281
|
---|
| 174 | end
|
---|
[456] | 175 | end
|
---|
[829] | 176 | end
|
---|
| 177 | object pnlMiddle: TPanel [2]
|
---|
| 178 | Left = 0
|
---|
| 179 | Top = 105
|
---|
| 180 | Width = 592
|
---|
| 181 | Height = 164
|
---|
| 182 | Align = alTop
|
---|
| 183 | BevelOuter = bvNone
|
---|
| 184 | TabOrder = 1
|
---|
| 185 | ExplicitTop = 145
|
---|
| 186 | ExplicitWidth = 630
|
---|
| 187 | inline fraVisitRelated: TfraVisitRelated
|
---|
| 188 | Left = 384
|
---|
[456] | 189 | Top = 0
|
---|
[829] | 190 | Width = 208
|
---|
| 191 | Height = 164
|
---|
[456] | 192 | Align = alRight
|
---|
[829] | 193 | TabOrder = 1
|
---|
[1693] | 194 | ExplicitLeft = 422
|
---|
[829] | 195 | ExplicitWidth = 208
|
---|
| 196 | ExplicitHeight = 164
|
---|
| 197 | inherited gbVisitRelatedTo: TGroupBox
|
---|
| 198 | Width = 208
|
---|
| 199 | Height = 164
|
---|
| 200 | ExplicitWidth = 208
|
---|
| 201 | ExplicitHeight = 164
|
---|
| 202 | inherited chkMSTYes: TCheckBox
|
---|
| 203 | Top = 127
|
---|
| 204 | ExplicitTop = 127
|
---|
| 205 | end
|
---|
| 206 | inherited chkMSTNo: TCheckBox
|
---|
| 207 | Top = 127
|
---|
| 208 | ExplicitTop = 127
|
---|
| 209 | end
|
---|
| 210 | inherited chkHNCYes: TCheckBox
|
---|
| 211 | Top = 143
|
---|
| 212 | ExplicitTop = 143
|
---|
| 213 | end
|
---|
| 214 | inherited chkHNCNo: TCheckBox
|
---|
| 215 | Top = 142
|
---|
| 216 | Width = 150
|
---|
| 217 | Height = 18
|
---|
| 218 | Caption = 'Head and/or Neck Cancer No'
|
---|
| 219 | ExplicitTop = 142
|
---|
| 220 | ExplicitWidth = 150
|
---|
| 221 | ExplicitHeight = 18
|
---|
| 222 | end
|
---|
| 223 | end
|
---|
| 224 | end
|
---|
| 225 | object pnlSC: TPanel
|
---|
| 226 | Left = 0
|
---|
| 227 | Top = 0
|
---|
| 228 | Width = 384
|
---|
| 229 | Height = 164
|
---|
| 230 | Align = alClient
|
---|
| 231 | BevelOuter = bvNone
|
---|
| 232 | TabOrder = 0
|
---|
| 233 | ExplicitWidth = 422
|
---|
| 234 | object lblSCDisplay: TLabel
|
---|
| 235 | Left = 0
|
---|
| 236 | Top = 0
|
---|
| 237 | Width = 384
|
---|
| 238 | Height = 13
|
---|
| 239 | Align = alTop
|
---|
| 240 | Caption = 'Service Connection && Rated Disabilities'
|
---|
| 241 | ExplicitWidth = 186
|
---|
| 242 | end
|
---|
| 243 | object memSCDisplay: TCaptionMemo
|
---|
| 244 | Left = 0
|
---|
| 245 | Top = 13
|
---|
| 246 | Width = 384
|
---|
| 247 | Height = 151
|
---|
| 248 | Align = alClient
|
---|
| 249 | Color = clBtnFace
|
---|
| 250 | Lines.Strings = (
|
---|
| 251 | '')
|
---|
| 252 | ReadOnly = True
|
---|
| 253 | ScrollBars = ssVertical
|
---|
| 254 | TabOrder = 0
|
---|
| 255 | OnEnter = memSCDisplayEnter
|
---|
| 256 | Caption = 'Service Connection && Rated Disabilities'
|
---|
[1693] | 257 | ExplicitWidth = 422
|
---|
[829] | 258 | end
|
---|
| 259 | end
|
---|
| 260 | end
|
---|
| 261 | object pnlBottom: TPanel [3]
|
---|
| 262 | Left = 0
|
---|
| 263 | Top = 269
|
---|
| 264 | Width = 592
|
---|
| 265 | Height = 141
|
---|
| 266 | Align = alTop
|
---|
| 267 | BevelOuter = bvNone
|
---|
| 268 | TabOrder = 2
|
---|
| 269 | ExplicitTop = 309
|
---|
| 270 | ExplicitWidth = 630
|
---|
| 271 | object btnAdd: TButton
|
---|
| 272 | Left = 260
|
---|
| 273 | Top = 35
|
---|
| 274 | Width = 75
|
---|
| 275 | Height = 21
|
---|
| 276 | Caption = 'Add'
|
---|
| 277 | TabOrder = 1
|
---|
| 278 | OnClick = btnAddClick
|
---|
| 279 | end
|
---|
| 280 | object btnDelete: TButton
|
---|
| 281 | Left = 260
|
---|
| 282 | Top = 72
|
---|
| 283 | Width = 75
|
---|
| 284 | Height = 21
|
---|
| 285 | Caption = 'Remove'
|
---|
[456] | 286 | TabOrder = 2
|
---|
[829] | 287 | OnClick = btnDeleteClick
|
---|
[456] | 288 | end
|
---|
[829] | 289 | object btnPrimary: TButton
|
---|
| 290 | Left = 260
|
---|
| 291 | Top = 112
|
---|
| 292 | Width = 75
|
---|
| 293 | Height = 21
|
---|
| 294 | Caption = 'Primary'
|
---|
| 295 | TabOrder = 3
|
---|
| 296 | OnClick = btnPrimaryClick
|
---|
| 297 | end
|
---|
| 298 | object pnlBottomLeft: TPanel
|
---|
| 299 | Left = 0
|
---|
| 300 | Top = 0
|
---|
| 301 | Width = 240
|
---|
| 302 | Height = 141
|
---|
| 303 | Align = alLeft
|
---|
| 304 | BevelOuter = bvNone
|
---|
| 305 | TabOrder = 0
|
---|
| 306 | object lblProvider: TLabel
|
---|
| 307 | Left = 0
|
---|
| 308 | Top = 0
|
---|
| 309 | Width = 240
|
---|
| 310 | Height = 13
|
---|
| 311 | Align = alTop
|
---|
| 312 | Caption = 'Available providers'
|
---|
| 313 | ExplicitWidth = 89
|
---|
| 314 | end
|
---|
| 315 | object cboPtProvider: TORComboBox
|
---|
| 316 | Left = 0
|
---|
| 317 | Top = 13
|
---|
| 318 | Width = 240
|
---|
| 319 | Height = 128
|
---|
| 320 | Style = orcsSimple
|
---|
| 321 | Align = alClient
|
---|
| 322 | AutoSelect = True
|
---|
| 323 | Caption = 'Available providers'
|
---|
| 324 | Color = clWindow
|
---|
| 325 | DropDownCount = 8
|
---|
| 326 | ItemHeight = 13
|
---|
| 327 | ItemTipColor = clWindow
|
---|
| 328 | ItemTipEnable = True
|
---|
| 329 | ListItemsOnly = True
|
---|
| 330 | LongList = True
|
---|
| 331 | LookupPiece = 2
|
---|
| 332 | MaxLength = 0
|
---|
| 333 | Pieces = '2,3'
|
---|
| 334 | Sorted = False
|
---|
| 335 | SynonymChars = '<>'
|
---|
| 336 | TabOrder = 0
|
---|
| 337 | CheckEntireLine = True
|
---|
| 338 | OnChange = cboPtProviderChange
|
---|
| 339 | OnDblClick = cboPtProviderDblClick
|
---|
| 340 | OnNeedData = cboPtProviderNeedData
|
---|
| 341 | CharsNeedMatch = 1
|
---|
| 342 | ExplicitWidth = 260
|
---|
| 343 | end
|
---|
| 344 | end
|
---|
| 345 | object pnlBottomRight: TPanel
|
---|
| 346 | Left = 352
|
---|
| 347 | Top = 0
|
---|
| 348 | Width = 240
|
---|
| 349 | Height = 141
|
---|
| 350 | Align = alRight
|
---|
| 351 | BevelOuter = bvNone
|
---|
| 352 | TabOrder = 4
|
---|
| 353 | object lblCurrentProv: TLabel
|
---|
| 354 | Left = 0
|
---|
| 355 | Top = 0
|
---|
| 356 | Width = 240
|
---|
| 357 | Height = 13
|
---|
| 358 | Align = alTop
|
---|
| 359 | Caption = 'Current providers for this encounter'
|
---|
| 360 | ExplicitWidth = 165
|
---|
| 361 | end
|
---|
| 362 | object lbProviders: TORListBox
|
---|
| 363 | Left = 0
|
---|
| 364 | Top = 13
|
---|
| 365 | Width = 240
|
---|
| 366 | Height = 128
|
---|
| 367 | Align = alClient
|
---|
| 368 | ItemHeight = 13
|
---|
| 369 | ParentShowHint = False
|
---|
| 370 | ShowHint = True
|
---|
| 371 | TabOrder = 0
|
---|
| 372 | OnDblClick = lbProvidersDblClick
|
---|
| 373 | Caption = 'Current providers for this encounter'
|
---|
| 374 | ItemTipColor = clWindow
|
---|
| 375 | LongList = False
|
---|
| 376 | Pieces = '2'
|
---|
| 377 | OnChange = lbProvidersChange
|
---|
| 378 | CheckEntireLine = True
|
---|
| 379 | ExplicitTop = 11
|
---|
| 380 | ExplicitWidth = 220
|
---|
| 381 | end
|
---|
| 382 | end
|
---|
[456] | 383 | end
|
---|
[829] | 384 | inherited btnCancel: TBitBtn
|
---|
| 385 | Left = 517
|
---|
| 386 | Top = 414
|
---|
[456] | 387 | TabOrder = 4
|
---|
[829] | 388 | ExplicitLeft = 555
|
---|
| 389 | ExplicitTop = 459
|
---|
[456] | 390 | end
|
---|
[829] | 391 | inherited amgrMain: TVA508AccessibilityManager
|
---|
| 392 | Left = 8
|
---|
| 393 | Top = 24
|
---|
| 394 | Data = (
|
---|
| 395 | (
|
---|
| 396 | 'Component = btnOK'
|
---|
| 397 | 'Status = stsDefault')
|
---|
| 398 | (
|
---|
| 399 | 'Component = btnCancel'
|
---|
| 400 | 'Status = stsDefault')
|
---|
| 401 | (
|
---|
| 402 | 'Component = frmVisitType'
|
---|
| 403 | 'Status = stsDefault')
|
---|
| 404 | (
|
---|
| 405 | 'Component = pnlTop'
|
---|
| 406 | 'Status = stsDefault')
|
---|
| 407 | (
|
---|
| 408 | 'Component = pnlLeft'
|
---|
| 409 | 'Status = stsDefault')
|
---|
| 410 | (
|
---|
| 411 | 'Component = lstVTypeSection'
|
---|
| 412 | 'Label = lblVTypeSection'
|
---|
| 413 | 'Status = stsOK')
|
---|
| 414 | (
|
---|
| 415 | 'Component = pnlMiddle'
|
---|
| 416 | 'Status = stsDefault')
|
---|
| 417 | (
|
---|
| 418 | 'Component = fraVisitRelated'
|
---|
| 419 | 'Status = stsDefault')
|
---|
| 420 | (
|
---|
| 421 | 'Component = fraVisitRelated.gbVisitRelatedTo'
|
---|
| 422 | 'Status = stsDefault')
|
---|
| 423 | (
|
---|
| 424 | 'Component = fraVisitRelated.chkSCYes'
|
---|
| 425 | 'Status = stsDefault')
|
---|
| 426 | (
|
---|
| 427 | 'Component = fraVisitRelated.chkAOYes'
|
---|
| 428 | 'Status = stsDefault')
|
---|
| 429 | (
|
---|
| 430 | 'Component = fraVisitRelated.chkIRYes'
|
---|
| 431 | 'Status = stsDefault')
|
---|
| 432 | (
|
---|
| 433 | 'Component = fraVisitRelated.chkECYes'
|
---|
| 434 | 'Status = stsDefault')
|
---|
| 435 | (
|
---|
| 436 | 'Component = fraVisitRelated.chkMSTYes'
|
---|
| 437 | 'Status = stsDefault')
|
---|
| 438 | (
|
---|
| 439 | 'Component = fraVisitRelated.chkMSTNo'
|
---|
| 440 | 'Status = stsDefault')
|
---|
| 441 | (
|
---|
| 442 | 'Component = fraVisitRelated.chkECNo'
|
---|
| 443 | 'Status = stsDefault')
|
---|
| 444 | (
|
---|
| 445 | 'Component = fraVisitRelated.chkIRNo'
|
---|
| 446 | 'Status = stsDefault')
|
---|
| 447 | (
|
---|
| 448 | 'Component = fraVisitRelated.chkAONo'
|
---|
| 449 | 'Status = stsDefault')
|
---|
| 450 | (
|
---|
| 451 | 'Component = fraVisitRelated.chkSCNo'
|
---|
| 452 | 'Status = stsDefault')
|
---|
| 453 | (
|
---|
| 454 | 'Component = fraVisitRelated.chkHNCYes'
|
---|
| 455 | 'Status = stsDefault')
|
---|
| 456 | (
|
---|
| 457 | 'Component = fraVisitRelated.chkHNCNo'
|
---|
| 458 | 'Status = stsDefault')
|
---|
| 459 | (
|
---|
| 460 | 'Component = fraVisitRelated.chkCVYes'
|
---|
| 461 | 'Status = stsDefault')
|
---|
| 462 | (
|
---|
| 463 | 'Component = fraVisitRelated.chkCVNo'
|
---|
| 464 | 'Status = stsDefault')
|
---|
| 465 | (
|
---|
| 466 | 'Component = fraVisitRelated.chkSHDYes'
|
---|
| 467 | 'Status = stsDefault')
|
---|
| 468 | (
|
---|
| 469 | 'Component = fraVisitRelated.chkSHDNo'
|
---|
| 470 | 'Status = stsDefault')
|
---|
| 471 | (
|
---|
| 472 | 'Component = fraVisitRelated.lblSCNo'
|
---|
| 473 | 'Status = stsDefault')
|
---|
| 474 | (
|
---|
| 475 | 'Component = fraVisitRelated.lblSCYes'
|
---|
| 476 | 'Status = stsDefault')
|
---|
| 477 | (
|
---|
| 478 | 'Component = pnlSC'
|
---|
| 479 | 'Status = stsDefault')
|
---|
| 480 | (
|
---|
| 481 | 'Component = memSCDisplay'
|
---|
| 482 | 'Label = lblSCDisplay'
|
---|
| 483 | 'Status = stsOK')
|
---|
| 484 | (
|
---|
| 485 | 'Component = pnlBottom'
|
---|
| 486 | 'Status = stsDefault')
|
---|
| 487 | (
|
---|
| 488 | 'Component = btnAdd'
|
---|
| 489 | 'Status = stsDefault')
|
---|
| 490 | (
|
---|
| 491 | 'Component = btnDelete'
|
---|
| 492 | 'Status = stsDefault')
|
---|
| 493 | (
|
---|
| 494 | 'Component = btnPrimary'
|
---|
| 495 | 'Status = stsDefault')
|
---|
| 496 | (
|
---|
| 497 | 'Component = pnlBottomLeft'
|
---|
| 498 | 'Status = stsDefault')
|
---|
| 499 | (
|
---|
| 500 | 'Component = cboPtProvider'
|
---|
| 501 | 'Label = lblProvider'
|
---|
| 502 | 'Status = stsOK')
|
---|
| 503 | (
|
---|
| 504 | 'Component = pnlBottomRight'
|
---|
| 505 | 'Status = stsDefault')
|
---|
| 506 | (
|
---|
| 507 | 'Component = lbProviders'
|
---|
| 508 | 'Label = lblCurrentProv'
|
---|
| 509 | 'Status = stsOK')
|
---|
| 510 | (
|
---|
| 511 | 'Component = pnlModifiers'
|
---|
| 512 | 'Status = stsDefault')
|
---|
| 513 | (
|
---|
| 514 | 'Component = lbMods'
|
---|
| 515 | 'Label = lblMod'
|
---|
| 516 | 'Status = stsOK')
|
---|
| 517 | (
|
---|
| 518 | 'Component = pnlSection'
|
---|
| 519 | 'Status = stsDefault')
|
---|
| 520 | (
|
---|
| 521 | 'Component = lbxVisits'
|
---|
| 522 | 'Label = lblVType'
|
---|
| 523 | 'Status = stsOK'))
|
---|
[456] | 524 | end
|
---|
| 525 | end
|
---|