|
Last change
on this file since 1342 was 830, checked in by Kevin Toppenberg, 14 years ago |
|
Upgrading to version 27
|
|
File size:
2.6 KB
|
| Rev | Line | |
|---|
| [456] | 1 | inherited frmPtCWAD: TfrmPtCWAD
|
|---|
| 2 | Left = 245
|
|---|
| 3 | Top = 268
|
|---|
| 4 | BorderIcons = [biSystemMenu]
|
|---|
| 5 | Caption = 'Patient Postings'
|
|---|
| [830] | 6 | ClientHeight = 275
|
|---|
| 7 | ClientWidth = 435
|
|---|
| [456] | 8 | Position = poScreenCenter
|
|---|
| 9 | OnCreate = FormCreate
|
|---|
| 10 | OnKeyUp = FormKeyUp
|
|---|
| [830] | 11 | ExplicitWidth = 443
|
|---|
| 12 | ExplicitHeight = 302
|
|---|
| [456] | 13 | PixelsPerInch = 96
|
|---|
| 14 | TextHeight = 13
|
|---|
| [830] | 15 | object lblNotes: TOROffsetLabel [0]
|
|---|
| [456] | 16 | Left = 0
|
|---|
| 17 | Top = 127
|
|---|
| 18 | Width = 435
|
|---|
| 19 | Height = 24
|
|---|
| 20 | Align = alTop
|
|---|
| 21 | Caption = 'Crisis Notes, Warning Notes, Directives'
|
|---|
| 22 | HorzOffset = 2
|
|---|
| 23 | Transparent = False
|
|---|
| 24 | VertOffset = 6
|
|---|
| 25 | WordWrap = False
|
|---|
| 26 | end
|
|---|
| [830] | 27 | object lblAllergies: TOROffsetLabel [1]
|
|---|
| [456] | 28 | Left = 0
|
|---|
| 29 | Top = 0
|
|---|
| 30 | Width = 435
|
|---|
| 31 | Height = 21
|
|---|
| 32 | Align = alTop
|
|---|
| 33 | Caption =
|
|---|
| 34 | 'Allergies Severity' +
|
|---|
| 35 | ' Signs / Symptoms'
|
|---|
| 36 | HorzOffset = 2
|
|---|
| 37 | Transparent = False
|
|---|
| 38 | VertOffset = 6
|
|---|
| 39 | WordWrap = False
|
|---|
| 40 | end
|
|---|
| [830] | 41 | object lstAllergies: TORListBox [2]
|
|---|
| [456] | 42 | Left = 0
|
|---|
| 43 | Top = 21
|
|---|
| 44 | Width = 435
|
|---|
| 45 | Height = 106
|
|---|
| 46 | Align = alTop
|
|---|
| 47 | ItemHeight = 13
|
|---|
| 48 | ParentShowHint = False
|
|---|
| 49 | ShowHint = True
|
|---|
| 50 | TabOrder = 0
|
|---|
| 51 | OnClick = lstAllergiesClick
|
|---|
| 52 | Caption = 'Allergies'
|
|---|
| 53 | ItemTipColor = clWindow
|
|---|
| 54 | LongList = False
|
|---|
| 55 | Pieces = '2,3,4'
|
|---|
| 56 | TabPositions = '30,45'
|
|---|
| 57 | end
|
|---|
| [830] | 58 | object lstNotes: TORListBox [3]
|
|---|
| [456] | 59 | Left = 0
|
|---|
| 60 | Top = 151
|
|---|
| 61 | Width = 435
|
|---|
| 62 | Height = 97
|
|---|
| 63 | Align = alClient
|
|---|
| 64 | ItemHeight = 13
|
|---|
| 65 | ParentShowHint = False
|
|---|
| 66 | ShowHint = True
|
|---|
| 67 | TabOrder = 1
|
|---|
| 68 | OnClick = lstNotesClick
|
|---|
| 69 | Caption = 'Crisis Notes, Warning Notes, Directives'
|
|---|
| 70 | ItemTipColor = clWindow
|
|---|
| 71 | LongList = False
|
|---|
| 72 | Pieces = '2,3'
|
|---|
| 73 | TabPositions = '20'
|
|---|
| 74 | end
|
|---|
| [830] | 75 | object pnlBottom: TPanel [4]
|
|---|
| [456] | 76 | Left = 0
|
|---|
| 77 | Top = 248
|
|---|
| 78 | Width = 435
|
|---|
| 79 | Height = 27
|
|---|
| 80 | Align = alBottom
|
|---|
| 81 | BevelOuter = bvNone
|
|---|
| 82 | TabOrder = 4
|
|---|
| 83 | DesignSize = (
|
|---|
| 84 | 435
|
|---|
| 85 | 27)
|
|---|
| 86 | object btnClose: TButton
|
|---|
| 87 | Left = 359
|
|---|
| 88 | Top = 4
|
|---|
| 89 | Width = 75
|
|---|
| 90 | Height = 21
|
|---|
| 91 | Anchors = [akTop, akRight]
|
|---|
| 92 | Cancel = True
|
|---|
| 93 | Caption = 'Close'
|
|---|
| 94 | TabOrder = 0
|
|---|
| 95 | OnClick = btnCloseClick
|
|---|
| 96 | end
|
|---|
| 97 | end
|
|---|
| [830] | 98 | inherited amgrMain: TVA508AccessibilityManager
|
|---|
| 99 | Data = (
|
|---|
| 100 | (
|
|---|
| 101 | 'Component = lstAllergies'
|
|---|
| 102 | 'Status = stsDefault')
|
|---|
| 103 | (
|
|---|
| 104 | 'Component = lstNotes'
|
|---|
| 105 | 'Status = stsDefault')
|
|---|
| 106 | (
|
|---|
| 107 | 'Component = pnlBottom'
|
|---|
| 108 | 'Status = stsDefault')
|
|---|
| 109 | (
|
|---|
| 110 | 'Component = btnClose'
|
|---|
| 111 | 'Status = stsDefault')
|
|---|
| 112 | (
|
|---|
| 113 | 'Component = frmPtCWAD'
|
|---|
| 114 | 'Status = stsDefault'))
|
|---|
| 115 | end
|
|---|
| [456] | 116 | end
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
