[459] | 1 | inherited frmReports: TfrmReports
|
---|
| 2 | Left = 215
|
---|
| 3 | Top = 126
|
---|
| 4 | Width = 786
|
---|
| 5 | Height = 377
|
---|
| 6 | HelpContext = 9000
|
---|
| 7 | Caption = 'Reports Page'
|
---|
| 8 | HelpFile = 'qnoback'
|
---|
| 9 | OnDestroy = FormDestroy
|
---|
| 10 | OnShow = FormShow
|
---|
| 11 | PixelsPerInch = 96
|
---|
| 12 | TextHeight = 13
|
---|
| 13 | inherited shpPageBottom: TShape
|
---|
| 14 | Top = 340
|
---|
| 15 | Width = 778
|
---|
| 16 | Height = 10
|
---|
| 17 | end
|
---|
| 18 | inherited sptHorz: TSplitter
|
---|
| 19 | Left = 119
|
---|
| 20 | Height = 340
|
---|
| 21 | end
|
---|
| 22 | inherited pnlLeft: TPanel
|
---|
| 23 | Width = 119
|
---|
| 24 | Height = 340
|
---|
| 25 | object Splitter1: TSplitter
|
---|
| 26 | Left = 0
|
---|
| 27 | Top = 91
|
---|
| 28 | Width = 119
|
---|
| 29 | Height = 10
|
---|
| 30 | Cursor = crVSplit
|
---|
| 31 | Align = alBottom
|
---|
| 32 | OnCanResize = Splitter1CanResize
|
---|
| 33 | end
|
---|
| 34 | object pnlLefTop: TPanel
|
---|
| 35 | Left = 0
|
---|
| 36 | Top = 0
|
---|
| 37 | Width = 119
|
---|
| 38 | Height = 91
|
---|
| 39 | Align = alClient
|
---|
| 40 | BevelOuter = bvNone
|
---|
| 41 | Constraints.MinWidth = 30
|
---|
| 42 | TabOrder = 0
|
---|
| 43 | object lblTypes: TOROffsetLabel
|
---|
| 44 | Left = 0
|
---|
| 45 | Top = 0
|
---|
| 46 | Width = 119
|
---|
| 47 | Height = 19
|
---|
| 48 | Align = alTop
|
---|
| 49 | Caption = 'Available Reports'
|
---|
| 50 | HorzOffset = 3
|
---|
| 51 | Transparent = True
|
---|
| 52 | VertOffset = 6
|
---|
| 53 | WordWrap = False
|
---|
| 54 | end
|
---|
| 55 | object tvReports: TORTreeView
|
---|
| 56 | Left = 0
|
---|
| 57 | Top = 19
|
---|
| 58 | Width = 119
|
---|
| 59 | Height = 72
|
---|
| 60 | Align = alClient
|
---|
| 61 | HideSelection = False
|
---|
| 62 | Indent = 18
|
---|
| 63 | ReadOnly = True
|
---|
| 64 | TabOrder = 0
|
---|
| 65 | OnClick = tvReportsClick
|
---|
| 66 | OnCollapsing = tvReportsCollapsing
|
---|
| 67 | OnExpanding = tvReportsExpanding
|
---|
| 68 | OnKeyDown = tvReportsKeyDown
|
---|
| 69 | Caption = 'Available Reports'
|
---|
| 70 | NodePiece = 0
|
---|
| 71 | end
|
---|
| 72 | end
|
---|
| 73 | object pnlLeftBottom: TPanel
|
---|
| 74 | Left = 0
|
---|
| 75 | Top = 201
|
---|
| 76 | Width = 119
|
---|
| 77 | Height = 139
|
---|
| 78 | Align = alBottom
|
---|
| 79 | BevelOuter = bvNone
|
---|
| 80 | TabOrder = 1
|
---|
| 81 | object lblQualifier: TOROffsetLabel
|
---|
| 82 | Left = 0
|
---|
| 83 | Top = 0
|
---|
| 84 | Width = 119
|
---|
| 85 | Height = 20
|
---|
| 86 | Align = alTop
|
---|
| 87 | HorzOffset = 3
|
---|
| 88 | Transparent = True
|
---|
| 89 | VertOffset = 4
|
---|
| 90 | WordWrap = False
|
---|
| 91 | end
|
---|
| 92 | object lblHeaders: TLabel
|
---|
| 93 | Left = 0
|
---|
| 94 | Top = 20
|
---|
| 95 | Width = 119
|
---|
| 96 | Height = 13
|
---|
| 97 | Align = alTop
|
---|
| 98 | Caption = 'Headings'
|
---|
| 99 | Transparent = True
|
---|
| 100 | Visible = False
|
---|
| 101 | end
|
---|
| 102 | object lstHeaders: TORListBox
|
---|
| 103 | Left = 0
|
---|
| 104 | Top = 33
|
---|
| 105 | Width = 119
|
---|
| 106 | Height = 106
|
---|
| 107 | Align = alClient
|
---|
| 108 | ItemHeight = 13
|
---|
| 109 | ParentShowHint = False
|
---|
| 110 | ShowHint = True
|
---|
| 111 | TabOrder = 0
|
---|
| 112 | Visible = False
|
---|
| 113 | OnClick = lstHeadersClick
|
---|
| 114 | Caption = 'Headings'
|
---|
| 115 | ItemTipColor = clWindow
|
---|
| 116 | LongList = False
|
---|
| 117 | Pieces = '2'
|
---|
| 118 | end
|
---|
| 119 | object lstQualifier: TORListBox
|
---|
| 120 | Left = 0
|
---|
| 121 | Top = 33
|
---|
| 122 | Width = 119
|
---|
| 123 | Height = 106
|
---|
| 124 | Style = lbOwnerDrawFixed
|
---|
| 125 | Align = alClient
|
---|
| 126 | ItemHeight = 13
|
---|
| 127 | ParentShowHint = False
|
---|
| 128 | ShowHint = True
|
---|
| 129 | TabOrder = 1
|
---|
| 130 | OnClick = lstQualifierClick
|
---|
| 131 | OnDrawItem = lstQualifierDrawItem
|
---|
| 132 | ItemTipColor = clWindow
|
---|
| 133 | LongList = False
|
---|
| 134 | Pieces = '2,3'
|
---|
| 135 | TabPositions = '10'
|
---|
| 136 | end
|
---|
| 137 | end
|
---|
| 138 | object pnlProcedures: TPanel
|
---|
| 139 | Left = 0
|
---|
| 140 | Top = 101
|
---|
| 141 | Width = 119
|
---|
| 142 | Height = 100
|
---|
| 143 | Align = alBottom
|
---|
| 144 | BevelOuter = bvNone
|
---|
| 145 | TabOrder = 2
|
---|
| 146 | object lblProcedures: TOROffsetLabel
|
---|
| 147 | Left = 0
|
---|
| 148 | Top = 0
|
---|
| 149 | Width = 119
|
---|
| 150 | Height = 15
|
---|
| 151 | Align = alTop
|
---|
| 152 | Caption = 'Radiology Procedures'
|
---|
| 153 | HorzOffset = 2
|
---|
| 154 | Transparent = False
|
---|
| 155 | VertOffset = 2
|
---|
| 156 | WordWrap = False
|
---|
| 157 | end
|
---|
| 158 | object tvProcedures: TORTreeView
|
---|
| 159 | Left = 0
|
---|
| 160 | Top = 15
|
---|
| 161 | Width = 119
|
---|
| 162 | Height = 85
|
---|
| 163 | Align = alClient
|
---|
| 164 | HideSelection = False
|
---|
| 165 | Indent = 19
|
---|
| 166 | ReadOnly = True
|
---|
| 167 | TabOrder = 0
|
---|
| 168 | OnChange = tvProceduresChange
|
---|
| 169 | OnClick = tvProceduresClick
|
---|
| 170 | OnCollapsing = tvProceduresCollapsing
|
---|
| 171 | OnExpanding = tvProceduresExpanding
|
---|
| 172 | OnKeyDown = tvProceduresKeyDown
|
---|
| 173 | Caption = 'tvProcedures'
|
---|
| 174 | NodePiece = 0
|
---|
| 175 | end
|
---|
| 176 | end
|
---|
| 177 | end
|
---|
| 178 | inherited pnlRight: TPanel
|
---|
| 179 | Left = 123
|
---|
| 180 | Width = 655
|
---|
| 181 | Height = 340
|
---|
| 182 | object sptHorzRight: TSplitter
|
---|
| 183 | Left = 0
|
---|
| 184 | Top = 177
|
---|
| 185 | Width = 655
|
---|
| 186 | Height = 4
|
---|
| 187 | Cursor = crVSplit
|
---|
| 188 | Align = alTop
|
---|
| 189 | Visible = False
|
---|
| 190 | OnCanResize = sptHorzRightCanResize
|
---|
| 191 | end
|
---|
| 192 | object pnlRightTop: TPanel
|
---|
| 193 | Left = 0
|
---|
| 194 | Top = 0
|
---|
| 195 | Width = 655
|
---|
| 196 | Height = 57
|
---|
| 197 | Align = alTop
|
---|
| 198 | BevelOuter = bvNone
|
---|
| 199 | TabOrder = 0
|
---|
| 200 | object lblTitle: TOROffsetLabel
|
---|
| 201 | Left = 0
|
---|
| 202 | Top = 17
|
---|
| 203 | Width = 655
|
---|
| 204 | Height = 25
|
---|
| 205 | Align = alTop
|
---|
| 206 | HorzOffset = 3
|
---|
| 207 | Transparent = True
|
---|
| 208 | VertOffset = 6
|
---|
| 209 | WordWrap = False
|
---|
| 210 | end
|
---|
| 211 | object lblProcTypeMsg: TOROffsetLabel
|
---|
| 212 | Left = 0
|
---|
| 213 | Top = 0
|
---|
| 214 | Width = 655
|
---|
| 215 | Height = 17
|
---|
| 216 | Align = alTop
|
---|
| 217 | HorzOffset = 3
|
---|
| 218 | Transparent = False
|
---|
| 219 | VertOffset = 2
|
---|
| 220 | WordWrap = False
|
---|
| 221 | end
|
---|
| 222 | object TabControl1: TTabControl
|
---|
| 223 | Left = 0
|
---|
| 224 | Top = 40
|
---|
| 225 | Width = 655
|
---|
| 226 | Height = 17
|
---|
| 227 | Align = alBottom
|
---|
| 228 | HotTrack = True
|
---|
| 229 | TabOrder = 0
|
---|
| 230 | TabStop = False
|
---|
| 231 | Visible = False
|
---|
| 232 | OnChange = TabControl1Change
|
---|
| 233 | end
|
---|
| 234 | end
|
---|
| 235 | object pnlRightBottom: TPanel
|
---|
| 236 | Left = 0
|
---|
| 237 | Top = 181
|
---|
| 238 | Width = 655
|
---|
| 239 | Height = 159
|
---|
| 240 | Align = alClient
|
---|
| 241 | TabOrder = 2
|
---|
| 242 | object Memo1: TMemo
|
---|
| 243 | Left = 1
|
---|
| 244 | Top = 1
|
---|
| 245 | Width = 653
|
---|
| 246 | Height = 30
|
---|
| 247 | TabStop = False
|
---|
| 248 | Align = alTop
|
---|
| 249 | Font.Charset = ANSI_CHARSET
|
---|
| 250 | Font.Color = clWindowText
|
---|
| 251 | Font.Height = -12
|
---|
| 252 | Font.Name = 'Courier New'
|
---|
| 253 | Font.Style = []
|
---|
| 254 | ParentFont = False
|
---|
| 255 | ScrollBars = ssVertical
|
---|
| 256 | TabOrder = 0
|
---|
| 257 | Visible = False
|
---|
| 258 | WantTabs = True
|
---|
| 259 | OnKeyUp = Memo1KeyUp
|
---|
| 260 | end
|
---|
| 261 | object WebBrowser1: TWebBrowser
|
---|
| 262 | Left = 1
|
---|
| 263 | Top = 31
|
---|
| 264 | Width = 653
|
---|
| 265 | Height = 127
|
---|
| 266 | TabStop = False
|
---|
| 267 | Align = alClient
|
---|
| 268 | TabOrder = 1
|
---|
| 269 | OnDocumentComplete = WebBrowser1DocumentComplete
|
---|
| 270 | ControlData = {
|
---|
| 271 | 4C0000007D430000200D00000000000000000000000000000000000000000000
|
---|
| 272 | 000000004C000000000000000000000001000000E0D057007335CF11AE690800
|
---|
| 273 | 2B2E126208000000000000004C0000000114020000000000C000000000000046
|
---|
| 274 | 8000000000000000000000000000000000000000000000000000000000000000
|
---|
| 275 | 00000000000000000100000000000000000000000000000000000000}
|
---|
| 276 | end
|
---|
| 277 | object memText: TRichEdit
|
---|
| 278 | Left = 1
|
---|
| 279 | Top = 31
|
---|
| 280 | Width = 653
|
---|
| 281 | Height = 127
|
---|
| 282 | Align = alClient
|
---|
| 283 | Color = clCream
|
---|
| 284 | Font.Charset = ANSI_CHARSET
|
---|
| 285 | Font.Color = clWindowText
|
---|
| 286 | Font.Height = -12
|
---|
| 287 | Font.Name = 'Courier New'
|
---|
| 288 | Font.Style = []
|
---|
| 289 | ParentFont = False
|
---|
| 290 | PlainText = True
|
---|
| 291 | PopupMenu = PopupMenu1
|
---|
| 292 | ReadOnly = True
|
---|
| 293 | ScrollBars = ssBoth
|
---|
| 294 | TabOrder = 2
|
---|
| 295 | WantReturns = False
|
---|
| 296 | WordWrap = False
|
---|
| 297 | end
|
---|
| 298 | end
|
---|
| 299 | object pnlRightMiddle: TPanel
|
---|
| 300 | Left = 0
|
---|
| 301 | Top = 57
|
---|
| 302 | Width = 655
|
---|
| 303 | Height = 120
|
---|
| 304 | Align = alTop
|
---|
| 305 | TabOrder = 1
|
---|
| 306 | Visible = False
|
---|
| 307 | object lvReports: TCaptionListView
|
---|
| 308 | Left = 1
|
---|
| 309 | Top = 1
|
---|
| 310 | Width = 653
|
---|
| 311 | Height = 118
|
---|
| 312 | Hint = 'To sort, click on column headers|'
|
---|
| 313 | Align = alClient
|
---|
| 314 | Columns = <>
|
---|
| 315 | Constraints.MinHeight = 50
|
---|
| 316 | HideSelection = False
|
---|
| 317 | MultiSelect = True
|
---|
| 318 | ReadOnly = True
|
---|
| 319 | RowSelect = True
|
---|
| 320 | ParentShowHint = False
|
---|
| 321 | PopupMenu = PopupMenu2
|
---|
| 322 | ShowHint = True
|
---|
| 323 | TabOrder = 0
|
---|
| 324 | ViewStyle = vsReport
|
---|
| 325 | OnColumnClick = lvReportsColumnClick
|
---|
| 326 | OnCompare = lvReportsCompare
|
---|
| 327 | OnKeyUp = lvReportsKeyUp
|
---|
| 328 | OnSelectItem = lvReportsSelectItem
|
---|
| 329 | end
|
---|
| 330 | end
|
---|
| 331 | end
|
---|
| 332 | object PopupMenu1: TPopupMenu
|
---|
| 333 | OnPopup = PopupMenu1Popup
|
---|
| 334 | Left = 229
|
---|
| 335 | Top = 176
|
---|
| 336 | object Print2: TMenuItem
|
---|
| 337 | Caption = 'Print'
|
---|
| 338 | ShortCut = 16464
|
---|
| 339 | OnClick = Print2Click
|
---|
| 340 | end
|
---|
| 341 | object Copy2: TMenuItem
|
---|
| 342 | Caption = 'Copy'
|
---|
| 343 | ShortCut = 16451
|
---|
| 344 | OnClick = Copy2Click
|
---|
| 345 | end
|
---|
| 346 | object SelectAll2: TMenuItem
|
---|
| 347 | Caption = 'Select All'
|
---|
| 348 | ShortCut = 16449
|
---|
| 349 | OnClick = SelectAll2Click
|
---|
| 350 | end
|
---|
| 351 | object GotoTop1: TMenuItem
|
---|
| 352 | Caption = 'Go to Top'
|
---|
| 353 | Enabled = False
|
---|
| 354 | OnClick = GotoTop1Click
|
---|
| 355 | end
|
---|
| 356 | object GotoBottom1: TMenuItem
|
---|
| 357 | Caption = 'Go to Bottom'
|
---|
| 358 | OnClick = GotoBottom1Click
|
---|
| 359 | end
|
---|
| 360 | object FreezeText1: TMenuItem
|
---|
| 361 | Caption = 'Freeze Text'
|
---|
| 362 | Enabled = False
|
---|
| 363 | OnClick = FreezeText1Click
|
---|
| 364 | end
|
---|
| 365 | object UnFreezeText1: TMenuItem
|
---|
| 366 | Caption = 'Un-Freeze Text'
|
---|
| 367 | Enabled = False
|
---|
| 368 | OnClick = UnFreezeText1Click
|
---|
| 369 | end
|
---|
| 370 | end
|
---|
| 371 | object calApptRng: TORDateRangeDlg
|
---|
| 372 | DateOnly = False
|
---|
| 373 | Instruction = 'Enter a date range -'
|
---|
| 374 | LabelStart = 'Begin Date'
|
---|
| 375 | LabelStop = 'End Date'
|
---|
| 376 | RequireTime = False
|
---|
| 377 | Format = 'mmm d,yy@hh:nn'
|
---|
| 378 | Left = 325
|
---|
| 379 | Top = 176
|
---|
| 380 | end
|
---|
| 381 | object Timer1: TTimer
|
---|
| 382 | Enabled = False
|
---|
| 383 | OnTimer = Timer1Timer
|
---|
| 384 | Left = 389
|
---|
| 385 | Top = 176
|
---|
| 386 | end
|
---|
| 387 | object PopupMenu2: TPopupMenu
|
---|
| 388 | Left = 267
|
---|
| 389 | Top = 174
|
---|
| 390 | object Print1: TMenuItem
|
---|
| 391 | Caption = 'Print'
|
---|
| 392 | ShortCut = 16464
|
---|
| 393 | OnClick = Print1Click
|
---|
| 394 | end
|
---|
| 395 | object Copy1: TMenuItem
|
---|
| 396 | Caption = 'Copy Data From Table'
|
---|
| 397 | ShortCut = 16451
|
---|
| 398 | OnClick = Copy1Click
|
---|
| 399 | end
|
---|
| 400 | object SelectAll1: TMenuItem
|
---|
| 401 | Caption = 'Select All From Table'
|
---|
| 402 | ShortCut = 16449
|
---|
| 403 | OnClick = SelectAll1Click
|
---|
| 404 | end
|
---|
| 405 | end
|
---|
| 406 | end
|
---|