[456] | 1 | inherited frmDCSumm: TfrmDCSumm
|
---|
[830] | 2 | Left = 1291
|
---|
| 3 | Top = 197
|
---|
[456] | 4 | HelpContext = 7000
|
---|
| 5 | Caption = 'Discharge Summary Page'
|
---|
[830] | 6 | ClientHeight = 382
|
---|
| 7 | ClientWidth = 679
|
---|
[456] | 8 | HelpFile = 'overvw'
|
---|
| 9 | Menu = mnuSumms
|
---|
| 10 | OnDestroy = FormDestroy
|
---|
[830] | 11 | ExplicitWidth = 687
|
---|
| 12 | ExplicitHeight = 428
|
---|
[456] | 13 | PixelsPerInch = 96
|
---|
| 14 | TextHeight = 13
|
---|
| 15 | inherited shpPageBottom: TShape
|
---|
[830] | 16 | Top = 377
|
---|
[456] | 17 | Width = 679
|
---|
[830] | 18 | ExplicitTop = 358
|
---|
| 19 | ExplicitWidth = 679
|
---|
[456] | 20 | end
|
---|
| 21 | inherited sptHorz: TSplitter
|
---|
| 22 | Left = 64
|
---|
| 23 | Width = 3
|
---|
[830] | 24 | Height = 377
|
---|
[456] | 25 | OnCanResize = sptHorzCanResize
|
---|
[830] | 26 | ExplicitLeft = 64
|
---|
| 27 | ExplicitWidth = 3
|
---|
| 28 | ExplicitHeight = 358
|
---|
[456] | 29 | end
|
---|
| 30 | inherited pnlLeft: TPanel
|
---|
| 31 | Width = 64
|
---|
[830] | 32 | Height = 377
|
---|
| 33 | ExplicitWidth = 64
|
---|
| 34 | ExplicitHeight = 377
|
---|
[456] | 35 | object lblSumms: TOROffsetLabel
|
---|
| 36 | Left = 0
|
---|
| 37 | Top = 0
|
---|
| 38 | Width = 64
|
---|
| 39 | Height = 19
|
---|
| 40 | Align = alTop
|
---|
| 41 | Caption = 'Last 100 Summaries'
|
---|
| 42 | HorzOffset = 2
|
---|
| 43 | ParentShowHint = False
|
---|
| 44 | ShowHint = True
|
---|
| 45 | Transparent = True
|
---|
| 46 | VertOffset = 6
|
---|
| 47 | WordWrap = False
|
---|
| 48 | end
|
---|
| 49 | object lblSpace1: TLabel
|
---|
| 50 | Left = 0
|
---|
[830] | 51 | Top = 353
|
---|
[456] | 52 | Width = 64
|
---|
| 53 | Height = 3
|
---|
| 54 | Align = alBottom
|
---|
| 55 | AutoSize = False
|
---|
| 56 | Caption = ' '
|
---|
[830] | 57 | ExplicitTop = 334
|
---|
[456] | 58 | end
|
---|
| 59 | object cmdNewSumm: TORAlignButton
|
---|
| 60 | Left = 0
|
---|
[830] | 61 | Top = 332
|
---|
[456] | 62 | Width = 64
|
---|
| 63 | Height = 21
|
---|
[830] | 64 | Align = alBottom
|
---|
[456] | 65 | Caption = 'New Summary'
|
---|
| 66 | TabOrder = 1
|
---|
| 67 | OnClick = cmdNewSummClick
|
---|
| 68 | end
|
---|
| 69 | object cmdPCE: TORAlignButton
|
---|
| 70 | Left = 0
|
---|
[830] | 71 | Top = 356
|
---|
[456] | 72 | Width = 64
|
---|
| 73 | Height = 21
|
---|
[830] | 74 | Align = alBottom
|
---|
[456] | 75 | Caption = 'Encounter'
|
---|
| 76 | TabOrder = 2
|
---|
| 77 | Visible = False
|
---|
| 78 | OnClick = cmdPCEClick
|
---|
| 79 | end
|
---|
| 80 | object pnlDrawers: TPanel
|
---|
| 81 | Left = 0
|
---|
| 82 | Top = 19
|
---|
| 83 | Width = 64
|
---|
[830] | 84 | Height = 313
|
---|
[456] | 85 | Align = alClient
|
---|
| 86 | BevelOuter = bvNone
|
---|
| 87 | TabOrder = 0
|
---|
| 88 | object splDrawers: TSplitter
|
---|
| 89 | Left = 0
|
---|
[830] | 90 | Top = 310
|
---|
[456] | 91 | Width = 64
|
---|
| 92 | Height = 3
|
---|
| 93 | Cursor = crVSplit
|
---|
| 94 | Align = alBottom
|
---|
[830] | 95 | ExplicitTop = 291
|
---|
[456] | 96 | end
|
---|
| 97 | object lstSumms: TORListBox
|
---|
| 98 | Left = 0
|
---|
| 99 | Top = 0
|
---|
| 100 | Width = 64
|
---|
| 101 | Height = 33
|
---|
| 102 | TabStop = False
|
---|
| 103 | Ctl3D = True
|
---|
| 104 | ItemHeight = 13
|
---|
| 105 | ParentCtl3D = False
|
---|
| 106 | ParentShowHint = False
|
---|
| 107 | PopupMenu = popSummList
|
---|
| 108 | ShowHint = True
|
---|
| 109 | TabOrder = 0
|
---|
| 110 | Visible = False
|
---|
| 111 | OnClick = lstSummsClick
|
---|
| 112 | ItemTipColor = clWindow
|
---|
| 113 | LongList = False
|
---|
| 114 | Pieces = '2,3'
|
---|
| 115 | TabPositions = '10,20'
|
---|
| 116 | end
|
---|
| 117 | object tvSumms: TORTreeView
|
---|
| 118 | Left = 0
|
---|
| 119 | Top = 0
|
---|
| 120 | Width = 64
|
---|
[830] | 121 | Height = 310
|
---|
[456] | 122 | Align = alClient
|
---|
| 123 | Constraints.MinWidth = 30
|
---|
| 124 | HideSelection = False
|
---|
[830] | 125 | Images = dmodShared.imgNotes
|
---|
[456] | 126 | Indent = 19
|
---|
| 127 | PopupMenu = popSummList
|
---|
| 128 | ReadOnly = True
|
---|
[830] | 129 | StateImages = dmodShared.imgImages
|
---|
[456] | 130 | TabOrder = 1
|
---|
| 131 | OnChange = tvSummsChange
|
---|
| 132 | OnClick = tvSummsClick
|
---|
| 133 | OnCollapsed = tvSummsCollapsed
|
---|
| 134 | OnDragDrop = tvSummsDragDrop
|
---|
| 135 | OnDragOver = tvSummsDragOver
|
---|
| 136 | OnExpanded = tvSummsExpanded
|
---|
| 137 | OnStartDrag = tvSummsStartDrag
|
---|
| 138 | Caption = 'Last 100 Summaries'
|
---|
| 139 | NodePiece = 0
|
---|
| 140 | ShortNodeCaptions = True
|
---|
| 141 | end
|
---|
| 142 | end
|
---|
| 143 | end
|
---|
| 144 | inherited pnlRight: TPanel
|
---|
| 145 | Left = 67
|
---|
| 146 | Width = 612
|
---|
[830] | 147 | Height = 377
|
---|
| 148 | ExplicitLeft = 67
|
---|
| 149 | ExplicitWidth = 612
|
---|
| 150 | ExplicitHeight = 377
|
---|
[456] | 151 | object sptVert: TSplitter
|
---|
| 152 | Left = 0
|
---|
[830] | 153 | Top = 328
|
---|
[456] | 154 | Width = 612
|
---|
| 155 | Height = 4
|
---|
| 156 | Cursor = crVSplit
|
---|
| 157 | Align = alBottom
|
---|
[830] | 158 | ExplicitTop = 309
|
---|
[456] | 159 | end
|
---|
| 160 | object memPCEShow: TRichEdit
|
---|
| 161 | Left = 0
|
---|
[830] | 162 | Top = 332
|
---|
[456] | 163 | Width = 612
|
---|
| 164 | Height = 45
|
---|
| 165 | Align = alBottom
|
---|
| 166 | Color = clCream
|
---|
| 167 | Lines.Strings = (
|
---|
| 168 | '<No encounter information entered>')
|
---|
| 169 | PlainText = True
|
---|
| 170 | ReadOnly = True
|
---|
| 171 | ScrollBars = ssVertical
|
---|
| 172 | TabOrder = 2
|
---|
| 173 | WantReturns = False
|
---|
| 174 | WordWrap = False
|
---|
| 175 | end
|
---|
| 176 | object pnlWrite: TPanel
|
---|
| 177 | Left = 0
|
---|
| 178 | Top = 0
|
---|
| 179 | Width = 612
|
---|
[830] | 180 | Height = 328
|
---|
[456] | 181 | Align = alClient
|
---|
| 182 | BevelOuter = bvNone
|
---|
| 183 | TabOrder = 1
|
---|
| 184 | Visible = False
|
---|
| 185 | OnResize = pnlWriteResize
|
---|
| 186 | object memNewSumm: TRichEdit
|
---|
| 187 | Left = 0
|
---|
| 188 | Top = 52
|
---|
| 189 | Width = 612
|
---|
[830] | 190 | Height = 276
|
---|
[456] | 191 | Align = alClient
|
---|
| 192 | Font.Charset = DEFAULT_CHARSET
|
---|
| 193 | Font.Color = clWindowText
|
---|
| 194 | Font.Height = -11
|
---|
| 195 | Font.Name = 'Courier New'
|
---|
| 196 | Font.Style = []
|
---|
| 197 | ParentFont = False
|
---|
| 198 | PlainText = True
|
---|
| 199 | PopupMenu = popSummMemo
|
---|
| 200 | ScrollBars = ssVertical
|
---|
| 201 | TabOrder = 1
|
---|
| 202 | WantTabs = True
|
---|
| 203 | OnChange = memNewSummChange
|
---|
| 204 | OnKeyUp = memNewSummKeyUp
|
---|
| 205 | end
|
---|
| 206 | object pnlFields: TORAutoPanel
|
---|
| 207 | Left = 0
|
---|
| 208 | Top = 0
|
---|
| 209 | Width = 612
|
---|
| 210 | Height = 52
|
---|
| 211 | Align = alTop
|
---|
| 212 | BevelOuter = bvNone
|
---|
| 213 | TabOrder = 0
|
---|
| 214 | DesignSize = (
|
---|
| 215 | 612
|
---|
| 216 | 52)
|
---|
| 217 | object bvlNewTitle: TBevel
|
---|
| 218 | Left = 5
|
---|
| 219 | Top = 5
|
---|
| 220 | Width = 102
|
---|
| 221 | Height = 15
|
---|
| 222 | end
|
---|
| 223 | object lblNewTitle: TStaticText
|
---|
| 224 | Left = 6
|
---|
| 225 | Top = 6
|
---|
| 226 | Width = 104
|
---|
| 227 | Height = 17
|
---|
| 228 | Hint = 'Press "Change..." to select a different title.'
|
---|
| 229 | Caption = ' Discharge Summary '
|
---|
| 230 | Color = clCream
|
---|
| 231 | Font.Charset = DEFAULT_CHARSET
|
---|
| 232 | Font.Color = clWindowText
|
---|
| 233 | Font.Height = -11
|
---|
| 234 | Font.Name = 'MS Sans Serif'
|
---|
| 235 | Font.Style = []
|
---|
| 236 | ParentColor = False
|
---|
| 237 | ParentFont = False
|
---|
| 238 | ParentShowHint = False
|
---|
| 239 | ShowAccelChar = False
|
---|
| 240 | ShowHint = True
|
---|
| 241 | TabOrder = 1
|
---|
| 242 | end
|
---|
| 243 | object lblVisit: TStaticText
|
---|
| 244 | Left = 6
|
---|
| 245 | Top = 21
|
---|
| 246 | Width = 123
|
---|
| 247 | Height = 17
|
---|
| 248 | Caption = 'Adm: 10/20/99 2BMED'
|
---|
| 249 | ShowAccelChar = False
|
---|
| 250 | TabOrder = 2
|
---|
| 251 | end
|
---|
| 252 | object lblRefDate: TStaticText
|
---|
| 253 | Left = 237
|
---|
| 254 | Top = 6
|
---|
| 255 | Width = 101
|
---|
| 256 | Height = 17
|
---|
| 257 | Hint = 'Press "Change..." to change date/time of summary.'
|
---|
| 258 | Alignment = taCenter
|
---|
| 259 | Caption = 'Oct 20,1999@15:30'
|
---|
| 260 | ParentShowHint = False
|
---|
| 261 | ShowAccelChar = False
|
---|
| 262 | ShowHint = True
|
---|
| 263 | TabOrder = 3
|
---|
| 264 | end
|
---|
| 265 | object lblCosigner: TStaticText
|
---|
| 266 | Left = 307
|
---|
| 267 | Top = 21
|
---|
| 268 | Width = 199
|
---|
| 269 | Height = 13
|
---|
| 270 | Hint = 'Press "Change..." to select a different attending.'
|
---|
| 271 | Alignment = taRightJustify
|
---|
| 272 | Anchors = [akTop, akRight]
|
---|
| 273 | AutoSize = False
|
---|
| 274 | Caption = 'Attending: Winchester,Charles Emerson III'
|
---|
| 275 | ParentShowHint = False
|
---|
| 276 | ShowAccelChar = False
|
---|
| 277 | ShowHint = True
|
---|
| 278 | TabOrder = 4
|
---|
| 279 | end
|
---|
| 280 | object lblDictator: TStaticText
|
---|
| 281 | Left = 402
|
---|
| 282 | Top = 6
|
---|
| 283 | Width = 152
|
---|
| 284 | Height = 17
|
---|
| 285 | Hint = 'Press "Change..." to select a different author.'
|
---|
| 286 | Alignment = taRightJustify
|
---|
| 287 | Anchors = [akTop, akRight]
|
---|
| 288 | Caption = 'Winchester,Charles Emerson III'
|
---|
| 289 | ParentShowHint = False
|
---|
| 290 | ShowAccelChar = False
|
---|
| 291 | ShowHint = True
|
---|
| 292 | TabOrder = 5
|
---|
| 293 | end
|
---|
| 294 | object lblDischarge: TStaticText
|
---|
| 295 | Left = 6
|
---|
| 296 | Top = 34
|
---|
| 297 | Width = 71
|
---|
| 298 | Height = 17
|
---|
| 299 | Caption = 'Dis: 03/20/00'
|
---|
| 300 | ShowAccelChar = False
|
---|
| 301 | TabOrder = 6
|
---|
| 302 | end
|
---|
| 303 | object cmdChange: TButton
|
---|
| 304 | Left = 554
|
---|
| 305 | Top = 10
|
---|
| 306 | Width = 58
|
---|
| 307 | Height = 21
|
---|
| 308 | Anchors = [akTop, akRight]
|
---|
| 309 | Caption = 'Change...'
|
---|
| 310 | TabOrder = 0
|
---|
| 311 | OnClick = cmdChangeClick
|
---|
| 312 | end
|
---|
| 313 | end
|
---|
| 314 | end
|
---|
| 315 | object pnlRead: TPanel
|
---|
| 316 | Left = 0
|
---|
| 317 | Top = 0
|
---|
| 318 | Width = 612
|
---|
[830] | 319 | Height = 328
|
---|
[456] | 320 | Align = alClient
|
---|
| 321 | BevelOuter = bvNone
|
---|
| 322 | TabOrder = 0
|
---|
| 323 | object lblTitle: TOROffsetLabel
|
---|
| 324 | Left = 0
|
---|
| 325 | Top = 0
|
---|
| 326 | Width = 612
|
---|
| 327 | Height = 19
|
---|
| 328 | Hint = 'No Discharge Summaries Found'
|
---|
| 329 | Align = alTop
|
---|
| 330 | Caption = 'No Discharge Summaries Found'
|
---|
| 331 | Font.Charset = DEFAULT_CHARSET
|
---|
| 332 | Font.Color = clWindowText
|
---|
| 333 | Font.Height = -11
|
---|
| 334 | Font.Name = 'MS Sans Serif'
|
---|
| 335 | Font.Style = []
|
---|
| 336 | HorzOffset = 2
|
---|
| 337 | ParentFont = False
|
---|
| 338 | ParentShowHint = False
|
---|
| 339 | ShowHint = True
|
---|
| 340 | Transparent = False
|
---|
| 341 | VertOffset = 6
|
---|
| 342 | WordWrap = False
|
---|
| 343 | end
|
---|
| 344 | object sptList: TSplitter
|
---|
| 345 | Left = 0
|
---|
| 346 | Top = 113
|
---|
| 347 | Width = 612
|
---|
| 348 | Height = 3
|
---|
| 349 | Cursor = crVSplit
|
---|
| 350 | Align = alTop
|
---|
| 351 | end
|
---|
| 352 | object memSumm: TRichEdit
|
---|
| 353 | Left = 0
|
---|
| 354 | Top = 116
|
---|
| 355 | Width = 612
|
---|
[830] | 356 | Height = 212
|
---|
[456] | 357 | Align = alClient
|
---|
| 358 | Color = clCream
|
---|
| 359 | Ctl3D = True
|
---|
| 360 | Font.Charset = DEFAULT_CHARSET
|
---|
| 361 | Font.Color = clWindowText
|
---|
| 362 | Font.Height = -11
|
---|
| 363 | Font.Name = 'Courier New'
|
---|
| 364 | Font.Style = []
|
---|
| 365 | Lines.Strings = (
|
---|
| 366 |
|
---|
| 367 | 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRUSTVWXYZabcdefghijkl' +
|
---|
| 368 | 'mnopqrstuvwxyz12')
|
---|
| 369 | ParentCtl3D = False
|
---|
| 370 | ParentFont = False
|
---|
| 371 | PlainText = True
|
---|
| 372 | PopupMenu = popSummMemo
|
---|
| 373 | ReadOnly = True
|
---|
| 374 | ScrollBars = ssBoth
|
---|
| 375 | TabOrder = 0
|
---|
| 376 | WantReturns = False
|
---|
| 377 | WordWrap = False
|
---|
| 378 | end
|
---|
| 379 | object lvSumms: TCaptionListView
|
---|
| 380 | Left = 0
|
---|
| 381 | Top = 19
|
---|
| 382 | Width = 612
|
---|
| 383 | Height = 94
|
---|
| 384 | Align = alTop
|
---|
| 385 | Columns = <
|
---|
| 386 | item
|
---|
| 387 | Caption = 'Date'
|
---|
| 388 | Width = 100
|
---|
| 389 | end
|
---|
| 390 | item
|
---|
| 391 | AutoSize = True
|
---|
| 392 | Caption = 'Title'
|
---|
| 393 | end
|
---|
| 394 | item
|
---|
| 395 | AutoSize = True
|
---|
| 396 | Caption = 'Subject'
|
---|
| 397 | end
|
---|
| 398 | item
|
---|
| 399 | AutoSize = True
|
---|
| 400 | Caption = 'Author'
|
---|
| 401 | end
|
---|
| 402 | item
|
---|
| 403 | AutoSize = True
|
---|
| 404 | Caption = 'Location'
|
---|
| 405 | end
|
---|
| 406 | item
|
---|
| 407 | Caption = 'fmdate'
|
---|
| 408 | Width = 0
|
---|
| 409 | end
|
---|
| 410 | item
|
---|
| 411 | Caption = 'TIUDA'
|
---|
| 412 | Width = 0
|
---|
| 413 | end>
|
---|
| 414 | Constraints.MinHeight = 50
|
---|
| 415 | HideSelection = False
|
---|
| 416 | ReadOnly = True
|
---|
| 417 | RowSelect = True
|
---|
[830] | 418 | SmallImages = dmodShared.imgNotes
|
---|
| 419 | StateImages = dmodShared.imgImages
|
---|
[456] | 420 | TabOrder = 1
|
---|
| 421 | ViewStyle = vsReport
|
---|
| 422 | Visible = False
|
---|
| 423 | OnColumnClick = lvSummsColumnClick
|
---|
| 424 | OnCompare = lvSummsCompare
|
---|
| 425 | OnResize = lvSummsResize
|
---|
| 426 | OnSelectItem = lvSummsSelectItem
|
---|
| 427 | Caption = 'No Discharge Summaries Found'
|
---|
| 428 | end
|
---|
| 429 | end
|
---|
| 430 | end
|
---|
[830] | 431 | inherited amgrMain: TVA508AccessibilityManager
|
---|
| 432 | Data = (
|
---|
| 433 | (
|
---|
| 434 | 'Component = cmdNewSumm'
|
---|
| 435 | 'Status = stsDefault')
|
---|
| 436 | (
|
---|
| 437 | 'Component = cmdPCE'
|
---|
| 438 | 'Status = stsDefault')
|
---|
| 439 | (
|
---|
| 440 | 'Component = pnlDrawers'
|
---|
| 441 | 'Status = stsDefault')
|
---|
| 442 | (
|
---|
| 443 | 'Component = lstSumms'
|
---|
| 444 | 'Status = stsDefault')
|
---|
| 445 | (
|
---|
| 446 | 'Component = tvSumms'
|
---|
| 447 | 'Status = stsDefault')
|
---|
| 448 | (
|
---|
| 449 | 'Component = memPCEShow'
|
---|
| 450 | 'Status = stsDefault')
|
---|
| 451 | (
|
---|
| 452 | 'Component = pnlWrite'
|
---|
| 453 | 'Status = stsDefault')
|
---|
| 454 | (
|
---|
| 455 | 'Component = memNewSumm'
|
---|
| 456 | 'Status = stsDefault')
|
---|
| 457 | (
|
---|
| 458 | 'Component = pnlFields'
|
---|
| 459 | 'Status = stsDefault')
|
---|
| 460 | (
|
---|
| 461 | 'Component = lblNewTitle'
|
---|
| 462 | 'Status = stsDefault')
|
---|
| 463 | (
|
---|
| 464 | 'Component = lblVisit'
|
---|
| 465 | 'Status = stsDefault')
|
---|
| 466 | (
|
---|
| 467 | 'Component = lblRefDate'
|
---|
| 468 | 'Status = stsDefault')
|
---|
| 469 | (
|
---|
| 470 | 'Component = lblCosigner'
|
---|
| 471 | 'Status = stsDefault')
|
---|
| 472 | (
|
---|
| 473 | 'Component = lblDictator'
|
---|
| 474 | 'Status = stsDefault')
|
---|
| 475 | (
|
---|
| 476 | 'Component = lblDischarge'
|
---|
| 477 | 'Status = stsDefault')
|
---|
| 478 | (
|
---|
| 479 | 'Component = cmdChange'
|
---|
| 480 | 'Status = stsDefault')
|
---|
| 481 | (
|
---|
| 482 | 'Component = pnlRead'
|
---|
| 483 | 'Status = stsDefault')
|
---|
| 484 | (
|
---|
| 485 | 'Component = memSumm'
|
---|
| 486 | 'Status = stsDefault')
|
---|
| 487 | (
|
---|
| 488 | 'Component = lvSumms'
|
---|
| 489 | 'Status = stsDefault')
|
---|
| 490 | (
|
---|
| 491 | 'Component = pnlLeft'
|
---|
| 492 | 'Status = stsDefault')
|
---|
| 493 | (
|
---|
| 494 | 'Component = pnlRight'
|
---|
| 495 | 'Status = stsDefault')
|
---|
| 496 | (
|
---|
| 497 | 'Component = frmDCSumm'
|
---|
| 498 | 'Status = stsDefault'))
|
---|
| 499 | end
|
---|
[456] | 500 | object mnuSumms: TMainMenu
|
---|
| 501 | Left = 596
|
---|
| 502 | Top = 305
|
---|
| 503 | object mnuView: TMenuItem
|
---|
| 504 | Caption = '&View'
|
---|
| 505 | GroupIndex = 3
|
---|
| 506 | object mnuViewChart: TMenuItem
|
---|
| 507 | Caption = 'Chart &Tab'
|
---|
| 508 | object mnuChartCover: TMenuItem
|
---|
| 509 | Tag = 1
|
---|
| 510 | Caption = 'Cover &Sheet'
|
---|
| 511 | ShortCut = 16467
|
---|
| 512 | OnClick = mnuChartTabClick
|
---|
| 513 | end
|
---|
| 514 | object mnuChartProbs: TMenuItem
|
---|
| 515 | Tag = 2
|
---|
| 516 | Caption = '&Problem List'
|
---|
| 517 | ShortCut = 16464
|
---|
| 518 | OnClick = mnuChartTabClick
|
---|
| 519 | end
|
---|
| 520 | object mnuChartMeds: TMenuItem
|
---|
| 521 | Tag = 3
|
---|
| 522 | Caption = '&Medications'
|
---|
| 523 | ShortCut = 16461
|
---|
| 524 | OnClick = mnuChartTabClick
|
---|
| 525 | end
|
---|
| 526 | object mnuChartOrders: TMenuItem
|
---|
| 527 | Tag = 4
|
---|
| 528 | Caption = '&Orders'
|
---|
| 529 | ShortCut = 16463
|
---|
| 530 | OnClick = mnuChartTabClick
|
---|
| 531 | end
|
---|
| 532 | object mnuChartSumms: TMenuItem
|
---|
| 533 | Tag = 6
|
---|
| 534 | Caption = 'Progress &Notes'
|
---|
| 535 | ShortCut = 16462
|
---|
| 536 | OnClick = mnuChartTabClick
|
---|
| 537 | end
|
---|
| 538 | object mnuChartCslts: TMenuItem
|
---|
| 539 | Tag = 7
|
---|
| 540 | Caption = 'Consul&ts'
|
---|
| 541 | ShortCut = 16468
|
---|
| 542 | OnClick = mnuChartTabClick
|
---|
| 543 | end
|
---|
| 544 | object mnuChartSurgery: TMenuItem
|
---|
| 545 | Tag = 11
|
---|
| 546 | Caption = 'S&urgery'
|
---|
| 547 | ShortCut = 16469
|
---|
| 548 | OnClick = mnuChartTabClick
|
---|
| 549 | end
|
---|
| 550 | object mnuChartDCSumm: TMenuItem
|
---|
| 551 | Tag = 8
|
---|
| 552 | Caption = '&Discharge Summaries'
|
---|
| 553 | ShortCut = 16452
|
---|
| 554 | OnClick = mnuChartTabClick
|
---|
| 555 | end
|
---|
| 556 | object mnuChartLabs: TMenuItem
|
---|
| 557 | Tag = 9
|
---|
| 558 | Caption = '&Laboratory'
|
---|
| 559 | ShortCut = 16460
|
---|
| 560 | OnClick = mnuChartTabClick
|
---|
| 561 | end
|
---|
| 562 | object mnuChartReports: TMenuItem
|
---|
| 563 | Tag = 10
|
---|
| 564 | Caption = '&Reports'
|
---|
| 565 | ShortCut = 16466
|
---|
| 566 | OnClick = mnuChartTabClick
|
---|
| 567 | end
|
---|
| 568 | end
|
---|
| 569 | object mnuViewInformation: TMenuItem
|
---|
| 570 | Caption = 'Information'
|
---|
| 571 | OnClick = mnuViewInformationClick
|
---|
| 572 | object mnuViewDemo: TMenuItem
|
---|
| 573 | Tag = 1
|
---|
| 574 | Caption = 'De&mographics...'
|
---|
| 575 | OnClick = ViewInfo
|
---|
| 576 | end
|
---|
| 577 | object mnuViewVisits: TMenuItem
|
---|
| 578 | Tag = 2
|
---|
| 579 | Caption = 'Visits/Pr&ovider...'
|
---|
| 580 | OnClick = ViewInfo
|
---|
| 581 | end
|
---|
| 582 | object mnuViewPrimaryCare: TMenuItem
|
---|
| 583 | Tag = 3
|
---|
| 584 | Caption = 'Primary &Care...'
|
---|
| 585 | OnClick = ViewInfo
|
---|
| 586 | end
|
---|
| 587 | object mnuViewMyHealtheVet: TMenuItem
|
---|
| 588 | Tag = 4
|
---|
| 589 | Caption = 'MyHealthe&Vet...'
|
---|
| 590 | OnClick = ViewInfo
|
---|
| 591 | end
|
---|
| 592 | object mnuInsurance: TMenuItem
|
---|
| 593 | Tag = 5
|
---|
| 594 | Caption = '&Insurance...'
|
---|
| 595 | OnClick = ViewInfo
|
---|
| 596 | end
|
---|
| 597 | object mnuViewFlags: TMenuItem
|
---|
| 598 | Tag = 6
|
---|
| 599 | Caption = '&Flags...'
|
---|
| 600 | OnClick = ViewInfo
|
---|
| 601 | end
|
---|
| 602 | object mnuViewRemoteData: TMenuItem
|
---|
| 603 | Tag = 7
|
---|
| 604 | Caption = 'Remote &Data...'
|
---|
| 605 | OnClick = ViewInfo
|
---|
| 606 | end
|
---|
| 607 | object mnuViewReminders: TMenuItem
|
---|
| 608 | Tag = 8
|
---|
| 609 | Caption = '&Reminders...'
|
---|
| 610 | Enabled = False
|
---|
| 611 | OnClick = ViewInfo
|
---|
| 612 | end
|
---|
| 613 | object mnuViewPostings: TMenuItem
|
---|
| 614 | Tag = 9
|
---|
| 615 | Caption = '&Postings...'
|
---|
| 616 | OnClick = ViewInfo
|
---|
| 617 | end
|
---|
| 618 | end
|
---|
| 619 | object Z3: TMenuItem
|
---|
| 620 | Caption = '-'
|
---|
| 621 | end
|
---|
| 622 | object mnuViewAll: TMenuItem
|
---|
| 623 | Tag = 1
|
---|
| 624 | Caption = '&Signed Summaries (All)'
|
---|
| 625 | OnClick = mnuViewClick
|
---|
| 626 | end
|
---|
| 627 | object mnuViewByAuthor: TMenuItem
|
---|
| 628 | Tag = 4
|
---|
| 629 | Caption = 'Signed Summaries by &Author'
|
---|
| 630 | OnClick = mnuViewClick
|
---|
| 631 | end
|
---|
| 632 | object mnuViewByDate: TMenuItem
|
---|
| 633 | Tag = 5
|
---|
| 634 | Caption = 'Signed Summaries by Date &Range'
|
---|
| 635 | OnClick = mnuViewClick
|
---|
| 636 | end
|
---|
| 637 | object mnuViewUncosigned: TMenuItem
|
---|
| 638 | Tag = 3
|
---|
| 639 | Caption = 'Un&cosigned Summaries'
|
---|
| 640 | OnClick = mnuViewClick
|
---|
| 641 | end
|
---|
| 642 | object mnuViewUnsigned: TMenuItem
|
---|
| 643 | Tag = 2
|
---|
| 644 | Caption = '&Unsigned Summaries'
|
---|
| 645 | OnClick = mnuViewClick
|
---|
| 646 | end
|
---|
| 647 | object mnuViewCustom: TMenuItem
|
---|
| 648 | Tag = 6
|
---|
| 649 | Caption = 'Custo&m View'
|
---|
| 650 | OnClick = mnuViewClick
|
---|
| 651 | end
|
---|
| 652 | object N1: TMenuItem
|
---|
| 653 | Caption = '-'
|
---|
| 654 | end
|
---|
| 655 | object mnuViewSaveAsDefault: TMenuItem
|
---|
| 656 | Caption = 'Sa&ve as Default View'
|
---|
| 657 | OnClick = mnuViewSaveAsDefaultClick
|
---|
| 658 | end
|
---|
| 659 | object mnuViewReturnToDefault: TMenuItem
|
---|
| 660 | Caption = 'Return to De&fault View'
|
---|
| 661 | OnClick = mnuViewReturntoDefaultClick
|
---|
| 662 | end
|
---|
| 663 | object Z1: TMenuItem
|
---|
| 664 | Caption = '-'
|
---|
| 665 | end
|
---|
| 666 | object mnuViewDetail: TMenuItem
|
---|
| 667 | Caption = '&Details'
|
---|
| 668 | OnClick = mnuViewDetailClick
|
---|
| 669 | end
|
---|
| 670 | object N7: TMenuItem
|
---|
| 671 | Caption = '-'
|
---|
| 672 | end
|
---|
| 673 | object mnuIconLegend: TMenuItem
|
---|
| 674 | Caption = 'Icon Legend'
|
---|
| 675 | OnClick = mnuIconLegendClick
|
---|
| 676 | end
|
---|
| 677 | end
|
---|
| 678 | object mnuAct: TMenuItem
|
---|
| 679 | Caption = '&Action'
|
---|
| 680 | GroupIndex = 4
|
---|
| 681 | object mnuActNew: TMenuItem
|
---|
| 682 | Caption = '&New Discharge Summary...'
|
---|
| 683 | Hint = 'Creates a new Discharge Summary'
|
---|
| 684 | ShortCut = 24654
|
---|
| 685 | OnClick = mnuActNewClick
|
---|
| 686 | end
|
---|
| 687 | object mnuActAddend: TMenuItem
|
---|
| 688 | Caption = '&Make Addendum...'
|
---|
| 689 | Hint = 'Makes an addendum for the currently selected Discharge Summary'
|
---|
| 690 | ShortCut = 24653
|
---|
| 691 | OnClick = mnuActAddendClick
|
---|
| 692 | end
|
---|
| 693 | object mnuActAddIDEntry: TMenuItem
|
---|
| 694 | Caption = 'Add Ne&w Entry to Interdisciplinary Note'
|
---|
| 695 | OnClick = mnuActAddIDEntryClick
|
---|
| 696 | end
|
---|
| 697 | object mnuActAttachtoIDParent: TMenuItem
|
---|
| 698 | Caption = 'A&ttach to Interdisciplinary Note'
|
---|
| 699 | OnClick = mnuActAttachtoIDParentClick
|
---|
| 700 | end
|
---|
| 701 | object mnuActDetachFromIDParent: TMenuItem
|
---|
| 702 | Caption = 'Detac&h from Interdisciplinary Note'
|
---|
| 703 | OnClick = mnuActDetachFromIDParentClick
|
---|
| 704 | end
|
---|
| 705 | object Z2: TMenuItem
|
---|
| 706 | Caption = '-'
|
---|
| 707 | end
|
---|
| 708 | object mnuActChange: TMenuItem
|
---|
| 709 | Caption = '&Change Title...'
|
---|
| 710 | ShortCut = 24643
|
---|
| 711 | OnClick = mnuActChangeClick
|
---|
| 712 | end
|
---|
| 713 | object mnuActLoadBoiler: TMenuItem
|
---|
| 714 | Caption = 'Reload &Boilerplate Text'
|
---|
| 715 | OnClick = mnuActLoadBoilerClick
|
---|
| 716 | end
|
---|
| 717 | object Z4: TMenuItem
|
---|
| 718 | Caption = '-'
|
---|
| 719 | end
|
---|
| 720 | object mnuActSignList: TMenuItem
|
---|
| 721 | Caption = 'Add to Signature &List'
|
---|
| 722 | Hint =
|
---|
| 723 | 'Adds the currently displayed Discharge Summary to list of things' +
|
---|
| 724 | ' to be signed'
|
---|
| 725 | OnClick = mnuActSignListClick
|
---|
| 726 | end
|
---|
| 727 | object mnuActDelete: TMenuItem
|
---|
| 728 | Caption = '&Delete Discharge Summary...'
|
---|
| 729 | ShortCut = 24644
|
---|
| 730 | OnClick = mnuActDeleteClick
|
---|
| 731 | end
|
---|
| 732 | object mnuActEdit: TMenuItem
|
---|
| 733 | Caption = '&Edit Discharge Summary...'
|
---|
| 734 | ShortCut = 24645
|
---|
| 735 | OnClick = mnuActEditClick
|
---|
| 736 | end
|
---|
| 737 | object mnuActSave: TMenuItem
|
---|
| 738 | Caption = 'S&ave without Signature'
|
---|
| 739 | Hint = 'Saves the Discharge Summary that is being edited'
|
---|
| 740 | ShortCut = 24641
|
---|
| 741 | OnClick = mnuActSaveClick
|
---|
| 742 | end
|
---|
| 743 | object mnuActSign: TMenuItem
|
---|
| 744 | Caption = 'Si&gn Discharge Summary Now...'
|
---|
| 745 | ShortCut = 24647
|
---|
| 746 | OnClick = mnuActSignClick
|
---|
| 747 | end
|
---|
| 748 | object mnuActIdentifyAddlSigners: TMenuItem
|
---|
| 749 | Caption = '&Identify Additional Signers'
|
---|
| 750 | OnClick = mnuActIdentifyAddlSignersClick
|
---|
| 751 | end
|
---|
| 752 | end
|
---|
| 753 | object mnuOptions: TMenuItem
|
---|
| 754 | Caption = '&Options'
|
---|
| 755 | GroupIndex = 4
|
---|
| 756 | OnClick = mnuOptionsClick
|
---|
| 757 | object mnuEditTemplates: TMenuItem
|
---|
| 758 | Caption = 'Edit &Templates...'
|
---|
| 759 | OnClick = mnuEditTemplatesClick
|
---|
| 760 | end
|
---|
| 761 | object mnuNewTemplate: TMenuItem
|
---|
| 762 | Caption = 'Create &New Template...'
|
---|
| 763 | OnClick = mnuNewTemplateClick
|
---|
| 764 | end
|
---|
| 765 | object N3: TMenuItem
|
---|
| 766 | Caption = '-'
|
---|
| 767 | end
|
---|
| 768 | object mnuEditSharedTemplates: TMenuItem
|
---|
| 769 | Caption = 'Edit &Shared Templates...'
|
---|
| 770 | OnClick = mnuEditSharedTemplatesClick
|
---|
| 771 | end
|
---|
| 772 | object mnuNewSharedTemplate: TMenuItem
|
---|
| 773 | Caption = '&Create New Shared Template...'
|
---|
| 774 | OnClick = mnuNewSharedTemplateClick
|
---|
| 775 | end
|
---|
| 776 | object N4: TMenuItem
|
---|
| 777 | Caption = '-'
|
---|
| 778 | end
|
---|
| 779 | object mnuEditDialgFields: TMenuItem
|
---|
| 780 | Caption = 'Edit Template &Fields'
|
---|
| 781 | OnClick = mnuEditDialgFieldsClick
|
---|
| 782 | end
|
---|
| 783 | end
|
---|
| 784 | end
|
---|
| 785 | object popSummMemo: TPopupMenu
|
---|
| 786 | OnPopup = popSummMemoPopup
|
---|
| 787 | Left = 539
|
---|
| 788 | Top = 304
|
---|
| 789 | object popSummMemoCut: TMenuItem
|
---|
| 790 | Caption = 'Cu&t'
|
---|
| 791 | ShortCut = 16472
|
---|
| 792 | OnClick = popSummMemoCutClick
|
---|
| 793 | end
|
---|
| 794 | object popSummMemoCopy: TMenuItem
|
---|
| 795 | Caption = '&Copy'
|
---|
| 796 | ShortCut = 16451
|
---|
| 797 | OnClick = popSummMemoCopyClick
|
---|
| 798 | end
|
---|
| 799 | object popSummMemoPaste: TMenuItem
|
---|
| 800 | Caption = '&Paste'
|
---|
| 801 | ShortCut = 16470
|
---|
| 802 | OnClick = popSummMemoPasteClick
|
---|
| 803 | end
|
---|
| 804 | object popSummMemoPaste2: TMenuItem
|
---|
| 805 | Caption = 'Paste2'
|
---|
| 806 | ShortCut = 8237
|
---|
| 807 | Visible = False
|
---|
| 808 | OnClick = popSummMemoPasteClick
|
---|
| 809 | end
|
---|
| 810 | object popSummMemoReformat: TMenuItem
|
---|
| 811 | Caption = 'Re&format Paragraph'
|
---|
| 812 | ShortCut = 24658
|
---|
| 813 | OnClick = popSummMemoReformatClick
|
---|
| 814 | end
|
---|
| 815 | object popSummMemoSaveContinue: TMenuItem
|
---|
| 816 | Caption = 'Save && Continue Editing'
|
---|
| 817 | ShortCut = 24659
|
---|
| 818 | Visible = False
|
---|
| 819 | OnClick = popSummMemoSaveContinueClick
|
---|
| 820 | end
|
---|
| 821 | object Z11: TMenuItem
|
---|
| 822 | Caption = '-'
|
---|
| 823 | end
|
---|
| 824 | object popSummMemoFind: TMenuItem
|
---|
| 825 | Caption = '&Find in Selected Summary'
|
---|
| 826 | OnClick = popSummMemoFindClick
|
---|
| 827 | end
|
---|
| 828 | object popSummMemoReplace: TMenuItem
|
---|
| 829 | Caption = '&Replace Text'
|
---|
| 830 | OnClick = popSummMemoReplaceClick
|
---|
| 831 | end
|
---|
| 832 | object N8: TMenuItem
|
---|
| 833 | Caption = '-'
|
---|
| 834 | end
|
---|
| 835 | object popSummMemoGrammar: TMenuItem
|
---|
| 836 | Caption = 'Check &Grammar'
|
---|
| 837 | OnClick = popSummMemoGrammarClick
|
---|
| 838 | end
|
---|
| 839 | object popSummMemoSpell: TMenuItem
|
---|
| 840 | Caption = 'C&heck Spelling'
|
---|
| 841 | OnClick = popSummMemoSpellClick
|
---|
| 842 | end
|
---|
| 843 | object N2: TMenuItem
|
---|
| 844 | Caption = '-'
|
---|
| 845 | end
|
---|
| 846 | object popSummMemoTemplate: TMenuItem
|
---|
| 847 | Caption = 'Copy Into New &Template'
|
---|
| 848 | OnClick = popSummMemoTemplateClick
|
---|
| 849 | end
|
---|
| 850 | object Z10: TMenuItem
|
---|
| 851 | Caption = '-'
|
---|
| 852 | end
|
---|
| 853 | object popSummMemoSignList: TMenuItem
|
---|
| 854 | Caption = 'Add to Signature &List'
|
---|
| 855 | OnClick = mnuActSignListClick
|
---|
| 856 | end
|
---|
| 857 | object popSummMemoDelete: TMenuItem
|
---|
| 858 | Caption = '&Delete Discharge Summary...'
|
---|
| 859 | OnClick = mnuActDeleteClick
|
---|
| 860 | end
|
---|
| 861 | object popSummMemoEdit: TMenuItem
|
---|
| 862 | Caption = '&Edit Discharge Summary...'
|
---|
| 863 | OnClick = mnuActEditClick
|
---|
| 864 | end
|
---|
| 865 | object popSummMemoAddend: TMenuItem
|
---|
| 866 | Caption = '&Make Addendum...'
|
---|
| 867 | OnClick = mnuActAddendClick
|
---|
| 868 | end
|
---|
| 869 | object popSummMemoSave: TMenuItem
|
---|
| 870 | Caption = 'S&ave without Signature'
|
---|
| 871 | OnClick = mnuActSaveClick
|
---|
| 872 | end
|
---|
| 873 | object popSummMemoSign: TMenuItem
|
---|
| 874 | Caption = '&Sign Discharge Summary Now...'
|
---|
| 875 | OnClick = mnuActSignClick
|
---|
| 876 | end
|
---|
| 877 | object popSummMemoAddlSign: TMenuItem
|
---|
| 878 | Caption = '&Identify Additional Signers'
|
---|
| 879 | OnClick = popSummMemoAddlSignClick
|
---|
| 880 | end
|
---|
| 881 | object N9: TMenuItem
|
---|
| 882 | Caption = '-'
|
---|
| 883 | end
|
---|
| 884 | object popSummMemoPreview: TMenuItem
|
---|
| 885 | Caption = 'Previe&w/Print Current Template'
|
---|
| 886 | ShortCut = 16471
|
---|
| 887 | OnClick = popSummMemoPreviewClick
|
---|
| 888 | end
|
---|
| 889 | object popSummMemoInsTemplate: TMenuItem
|
---|
| 890 | Caption = 'Insert Current Template'
|
---|
| 891 | ShortCut = 16429
|
---|
| 892 | OnClick = popSummMemoInsTemplateClick
|
---|
| 893 | end
|
---|
| 894 | object popSummMemoEncounter: TMenuItem
|
---|
| 895 | Caption = 'Edit Encounter Information'
|
---|
| 896 | ShortCut = 16453
|
---|
| 897 | OnClick = cmdPCEClick
|
---|
| 898 | end
|
---|
| 899 | end
|
---|
| 900 | object popSummList: TPopupMenu
|
---|
| 901 | OnPopup = popSummListPopup
|
---|
| 902 | Left = 500
|
---|
| 903 | Top = 304
|
---|
| 904 | object popSummListAll: TMenuItem
|
---|
| 905 | Tag = 1
|
---|
| 906 | Caption = '&Signed Discharge Summaries (All)'
|
---|
| 907 | OnClick = mnuViewClick
|
---|
| 908 | end
|
---|
| 909 | object popSummListByAuthor: TMenuItem
|
---|
| 910 | Tag = 4
|
---|
| 911 | Caption = 'Signed Discharge Summaries by &Author'
|
---|
| 912 | OnClick = mnuViewClick
|
---|
| 913 | end
|
---|
| 914 | object popSummListByDate: TMenuItem
|
---|
| 915 | Tag = 5
|
---|
| 916 | Caption = 'Signed Discharge Summaries by Date &Range'
|
---|
| 917 | OnClick = mnuViewClick
|
---|
| 918 | end
|
---|
| 919 | object popSummListUncosigned: TMenuItem
|
---|
| 920 | Tag = 3
|
---|
| 921 | Caption = 'Un&cosigned Discharge Summaries'
|
---|
| 922 | OnClick = mnuViewClick
|
---|
| 923 | end
|
---|
| 924 | object popSummListUnsigned: TMenuItem
|
---|
| 925 | Tag = 2
|
---|
| 926 | Caption = '&Unsigned Discharge Summaries'
|
---|
| 927 | OnClick = mnuViewClick
|
---|
| 928 | end
|
---|
| 929 | object popSummListCustom: TMenuItem
|
---|
| 930 | Tag = 6
|
---|
| 931 | Caption = 'Cus&tom View'
|
---|
| 932 | OnClick = mnuViewClick
|
---|
| 933 | end
|
---|
| 934 | object N5: TMenuItem
|
---|
| 935 | Caption = '-'
|
---|
| 936 | end
|
---|
| 937 | object popSummListExpandSelected: TMenuItem
|
---|
| 938 | Caption = '&Expand Selected'
|
---|
| 939 | OnClick = popSummListExpandSelectedClick
|
---|
| 940 | end
|
---|
| 941 | object popSummListExpandAll: TMenuItem
|
---|
| 942 | Caption = 'E&xpand All'
|
---|
| 943 | OnClick = popSummListExpandAllClick
|
---|
| 944 | end
|
---|
| 945 | object popSummListCollapseSelected: TMenuItem
|
---|
| 946 | Caption = 'C&ollapse Selected'
|
---|
| 947 | OnClick = popSummListCollapseSelectedClick
|
---|
| 948 | end
|
---|
| 949 | object popSummListCollapseAll: TMenuItem
|
---|
| 950 | Caption = 'Co&llapse All'
|
---|
| 951 | OnClick = popSummListCollapseAllClick
|
---|
| 952 | end
|
---|
| 953 | object N6: TMenuItem
|
---|
| 954 | Caption = '-'
|
---|
| 955 | end
|
---|
| 956 | object popSummListAddIDEntry: TMenuItem
|
---|
| 957 | Caption = 'Add Ne&w Entry to Interdisciplinary Note'
|
---|
| 958 | OnClick = mnuActAddIDEntryClick
|
---|
| 959 | end
|
---|
| 960 | object popSummListAttachtoIDParent: TMenuItem
|
---|
| 961 | Caption = 'A&ttach to Interdisciplinary Note'
|
---|
| 962 | OnClick = mnuActAttachtoIDParentClick
|
---|
| 963 | end
|
---|
| 964 | object popSummListDetachFromIDParent: TMenuItem
|
---|
| 965 | Caption = 'Detac&h from Interdisciplinary Note'
|
---|
| 966 | OnClick = mnuActDetachFromIDParentClick
|
---|
| 967 | end
|
---|
| 968 | end
|
---|
| 969 | object timAutoSave: TTimer
|
---|
| 970 | Enabled = False
|
---|
| 971 | Interval = 300000
|
---|
| 972 | OnTimer = timAutoSaveTimer
|
---|
| 973 | Left = 560
|
---|
| 974 | Top = 61
|
---|
| 975 | end
|
---|
| 976 | object dlgFindText: TFindDialog
|
---|
| 977 | Options = [frDown, frHideUpDown]
|
---|
| 978 | OnFind = dlgFindTextFind
|
---|
| 979 | Left = 452
|
---|
| 980 | Top = 312
|
---|
| 981 | end
|
---|
| 982 | object dlgReplaceText: TReplaceDialog
|
---|
| 983 | OnFind = dlgReplaceTextFind
|
---|
| 984 | OnReplace = dlgReplaceTextReplace
|
---|
| 985 | Left = 409
|
---|
| 986 | Top = 313
|
---|
| 987 | end
|
---|
[830] | 988 | object imgLblNotes: TVA508ImageListLabeler
|
---|
| 989 | Components = <
|
---|
| 990 | item
|
---|
| 991 | Component = lvSumms
|
---|
| 992 | end
|
---|
| 993 | item
|
---|
| 994 | Component = tvSumms
|
---|
| 995 | end>
|
---|
| 996 | Labels = <>
|
---|
| 997 | RemoteLabeler = dmodShared.imgLblNotes
|
---|
| 998 | Left = 16
|
---|
| 999 | Top = 171
|
---|
| 1000 | end
|
---|
| 1001 | object imgLblImages: TVA508ImageListLabeler
|
---|
| 1002 | Components = <
|
---|
| 1003 | item
|
---|
| 1004 | Component = lvSumms
|
---|
| 1005 | end
|
---|
| 1006 | item
|
---|
| 1007 | Component = tvSumms
|
---|
| 1008 | end>
|
---|
| 1009 | Labels = <>
|
---|
| 1010 | RemoteLabeler = dmodShared.imgLblImages
|
---|
| 1011 | Left = 16
|
---|
| 1012 | Top = 203
|
---|
| 1013 | end
|
---|
[456] | 1014 | end
|
---|