| [459] | 1 | object frmConsultsView: TfrmConsultsView | 
|---|
|  | 2 | Left = 320 | 
|---|
|  | 3 | Top = 172 | 
|---|
|  | 4 | Width = 414 | 
|---|
|  | 5 | Height = 400 | 
|---|
|  | 6 | BorderIcons = [] | 
|---|
|  | 7 | Caption = 'List Selected Consults' | 
|---|
|  | 8 | Color = clBtnFace | 
|---|
|  | 9 | Font.Charset = DEFAULT_CHARSET | 
|---|
|  | 10 | Font.Color = clWindowText | 
|---|
|  | 11 | Font.Height = -11 | 
|---|
|  | 12 | Font.Name = 'MS Sans Serif' | 
|---|
|  | 13 | Font.Style = [] | 
|---|
|  | 14 | OldCreateOrder = True | 
|---|
|  | 15 | Position = poScreenCenter | 
|---|
|  | 16 | PixelsPerInch = 96 | 
|---|
|  | 17 | TextHeight = 13 | 
|---|
|  | 18 | object pnlBase: TORAutoPanel | 
|---|
|  | 19 | Left = 0 | 
|---|
|  | 20 | Top = 0 | 
|---|
|  | 21 | Width = 406 | 
|---|
|  | 22 | Height = 373 | 
|---|
|  | 23 | Align = alClient | 
|---|
|  | 24 | BevelOuter = bvNone | 
|---|
|  | 25 | TabOrder = 0 | 
|---|
|  | 26 | object lblBeginDate: TLabel | 
|---|
|  | 27 | Left = 239 | 
|---|
|  | 28 | Top = 128 | 
|---|
|  | 29 | Width = 73 | 
|---|
|  | 30 | Height = 13 | 
|---|
|  | 31 | Caption = 'Beginning Date' | 
|---|
|  | 32 | end | 
|---|
|  | 33 | object lblEndDate: TLabel | 
|---|
|  | 34 | Left = 239 | 
|---|
|  | 35 | Top = 173 | 
|---|
|  | 36 | Width = 59 | 
|---|
|  | 37 | Height = 13 | 
|---|
|  | 38 | Caption = 'Ending Date' | 
|---|
|  | 39 | end | 
|---|
|  | 40 | object lblService: TLabel | 
|---|
|  | 41 | Left = 8 | 
|---|
|  | 42 | Top = 9 | 
|---|
|  | 43 | Width = 36 | 
|---|
|  | 44 | Height = 13 | 
|---|
|  | 45 | Caption = 'Service' | 
|---|
|  | 46 | end | 
|---|
|  | 47 | object lblStatus: TLabel | 
|---|
|  | 48 | Left = 239 | 
|---|
|  | 49 | Top = 10 | 
|---|
|  | 50 | Width = 30 | 
|---|
|  | 51 | Height = 13 | 
|---|
|  | 52 | Caption = 'Status' | 
|---|
|  | 53 | end | 
|---|
|  | 54 | object Label1: TLabel | 
|---|
|  | 55 | Left = 239 | 
|---|
|  | 56 | Top = 217 | 
|---|
|  | 57 | Width = 44 | 
|---|
|  | 58 | Height = 13 | 
|---|
|  | 59 | Caption = 'Group By' | 
|---|
|  | 60 | end | 
|---|
|  | 61 | object calBeginDate: TORDateBox | 
|---|
|  | 62 | Left = 239 | 
|---|
|  | 63 | Top = 142 | 
|---|
|  | 64 | Width = 155 | 
|---|
|  | 65 | Height = 21 | 
|---|
|  | 66 | TabOrder = 3 | 
|---|
|  | 67 | DateOnly = False | 
|---|
|  | 68 | RequireTime = False | 
|---|
|  | 69 | Caption = 'Beginning Date' | 
|---|
|  | 70 | end | 
|---|
|  | 71 | object calEndDate: TORDateBox | 
|---|
|  | 72 | Left = 239 | 
|---|
|  | 73 | Top = 187 | 
|---|
|  | 74 | Width = 155 | 
|---|
|  | 75 | Height = 21 | 
|---|
|  | 76 | TabOrder = 4 | 
|---|
|  | 77 | DateOnly = False | 
|---|
|  | 78 | RequireTime = False | 
|---|
|  | 79 | Caption = 'Ending Date' | 
|---|
|  | 80 | end | 
|---|
|  | 81 | object lstStatus: TORListBox | 
|---|
|  | 82 | Left = 239 | 
|---|
|  | 83 | Top = 24 | 
|---|
|  | 84 | Width = 156 | 
|---|
|  | 85 | Height = 96 | 
|---|
|  | 86 | ItemHeight = 13 | 
|---|
|  | 87 | MultiSelect = True | 
|---|
|  | 88 | ParentShowHint = False | 
|---|
|  | 89 | PopupMenu = popStatus | 
|---|
|  | 90 | ShowHint = True | 
|---|
|  | 91 | TabOrder = 2 | 
|---|
|  | 92 | Caption = 'Status' | 
|---|
|  | 93 | ItemTipColor = clWindow | 
|---|
|  | 94 | LongList = False | 
|---|
|  | 95 | Pieces = '2' | 
|---|
|  | 96 | end | 
|---|
|  | 97 | object radSort: TRadioGroup | 
|---|
|  | 98 | Left = 239 | 
|---|
|  | 99 | Top = 266 | 
|---|
|  | 100 | Width = 155 | 
|---|
|  | 101 | Height = 64 | 
|---|
|  | 102 | Caption = 'Sort Order' | 
|---|
|  | 103 | Items.Strings = ( | 
|---|
|  | 104 | '&Ascending (oldest first)' | 
|---|
|  | 105 | '&Descending (newest first)') | 
|---|
|  | 106 | TabOrder = 6 | 
|---|
|  | 107 | end | 
|---|
|  | 108 | object cmdOK: TButton | 
|---|
|  | 109 | Left = 239 | 
|---|
|  | 110 | Top = 340 | 
|---|
|  | 111 | Width = 72 | 
|---|
|  | 112 | Height = 21 | 
|---|
|  | 113 | Caption = 'OK' | 
|---|
|  | 114 | Default = True | 
|---|
|  | 115 | TabOrder = 7 | 
|---|
|  | 116 | OnClick = cmdOKClick | 
|---|
|  | 117 | end | 
|---|
|  | 118 | object cmdCancel: TButton | 
|---|
|  | 119 | Left = 324 | 
|---|
|  | 120 | Top = 340 | 
|---|
|  | 121 | Width = 72 | 
|---|
|  | 122 | Height = 21 | 
|---|
|  | 123 | Cancel = True | 
|---|
|  | 124 | Caption = 'Cancel' | 
|---|
|  | 125 | TabOrder = 8 | 
|---|
|  | 126 | OnClick = cmdCancelClick | 
|---|
|  | 127 | end | 
|---|
|  | 128 | object treService: TORTreeView | 
|---|
|  | 129 | Left = 8 | 
|---|
|  | 130 | Top = 57 | 
|---|
|  | 131 | Width = 214 | 
|---|
|  | 132 | Height = 304 | 
|---|
|  | 133 | HideSelection = False | 
|---|
|  | 134 | Indent = 19 | 
|---|
|  | 135 | ReadOnly = True | 
|---|
|  | 136 | TabOrder = 1 | 
|---|
|  | 137 | OnChange = treServiceChange | 
|---|
|  | 138 | Caption = 'Service' | 
|---|
|  | 139 | NodePiece = 0 | 
|---|
|  | 140 | end | 
|---|
|  | 141 | object cboService: TORComboBox | 
|---|
|  | 142 | Left = 8 | 
|---|
|  | 143 | Top = 27 | 
|---|
|  | 144 | Width = 214 | 
|---|
|  | 145 | Height = 21 | 
|---|
|  | 146 | Style = orcsDropDown | 
|---|
|  | 147 | AutoSelect = True | 
|---|
|  | 148 | Caption = 'Service' | 
|---|
|  | 149 | Color = clWindow | 
|---|
|  | 150 | DropDownCount = 8 | 
|---|
|  | 151 | ItemHeight = 13 | 
|---|
|  | 152 | ItemTipColor = clWindow | 
|---|
|  | 153 | ItemTipEnable = True | 
|---|
|  | 154 | ListItemsOnly = True | 
|---|
|  | 155 | LongList = False | 
|---|
|  | 156 | MaxLength = 0 | 
|---|
|  | 157 | Pieces = '2' | 
|---|
|  | 158 | Sorted = True | 
|---|
|  | 159 | SynonymChars = '<>' | 
|---|
|  | 160 | TabOrder = 0 | 
|---|
|  | 161 | OnKeyPause = cboServiceSelect | 
|---|
|  | 162 | OnMouseClick = cboServiceSelect | 
|---|
|  | 163 | end | 
|---|
|  | 164 | object cboGroupBy: TORComboBox | 
|---|
|  | 165 | Left = 239 | 
|---|
|  | 166 | Top = 230 | 
|---|
|  | 167 | Width = 155 | 
|---|
|  | 168 | Height = 21 | 
|---|
|  | 169 | Style = orcsDropDown | 
|---|
|  | 170 | AutoSelect = True | 
|---|
|  | 171 | Caption = 'Group By' | 
|---|
|  | 172 | Color = clWindow | 
|---|
|  | 173 | DropDownCount = 8 | 
|---|
|  | 174 | Items.Strings = ( | 
|---|
|  | 175 | '^(none)' | 
|---|
|  | 176 | 'T^Consults/Procedures' | 
|---|
|  | 177 | 'V^Service' | 
|---|
|  | 178 | 'S^Status') | 
|---|
|  | 179 | ItemHeight = 13 | 
|---|
|  | 180 | ItemTipColor = clWindow | 
|---|
|  | 181 | ItemTipEnable = True | 
|---|
|  | 182 | ListItemsOnly = False | 
|---|
|  | 183 | LongList = False | 
|---|
|  | 184 | MaxLength = 0 | 
|---|
|  | 185 | Pieces = '2' | 
|---|
|  | 186 | Sorted = False | 
|---|
|  | 187 | SynonymChars = '<>' | 
|---|
|  | 188 | TabOrder = 5 | 
|---|
|  | 189 | end | 
|---|
|  | 190 | end | 
|---|
|  | 191 | object popStatus: TPopupMenu | 
|---|
|  | 192 | Left = 284 | 
|---|
|  | 193 | Top = 51 | 
|---|
|  | 194 | object popStatusSelectNone: TMenuItem | 
|---|
|  | 195 | Caption = 'Select None' | 
|---|
|  | 196 | OnClick = popStatusSelectNoneClick | 
|---|
|  | 197 | end | 
|---|
|  | 198 | end | 
|---|
|  | 199 | end | 
|---|