Changeset 830 for cprs/trunk/CPRS-Chart/fMeds.dfm
- Timestamp:
- Jul 7, 2010, 4:51:54 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/trunk/CPRS-Chart/fMeds.dfm
r456 r830 1 1 inherited frmMeds: TfrmMeds 2 Left = 93 3 Top = 250 4 Width = 709 5 Height = 686 2 Left = 333 3 Top = 55 6 4 HelpContext = 3000 7 5 VertScrollBar.Visible = False 8 6 Caption = 'Medications Page' 7 ClientHeight = 651 8 ClientWidth = 701 9 9 HelpFile = 'qnoback' 10 10 Menu = mnuMeds … … 14 14 OnResize = FormResize 15 15 OnShow = FormShow 16 ExplicitWidth = 709 17 ExplicitHeight = 697 16 18 PixelsPerInch = 96 17 19 TextHeight = 13 … … 21 23 Height = -4 22 24 Align = alCustom 23 end 24 object splitTop: TSplitter 25 ExplicitTop = 524 26 ExplicitWidth = 1028 27 ExplicitHeight = -4 28 end 29 object splitTop: TSplitter [1] 25 30 Left = 0 26 Top = 4 2131 Top = 440 27 32 Width = 701 28 33 Height = 4 … … 36 41 ParentColor = False 37 42 OnMoved = splitTopMoved 38 end 39 object pnlBottom: TORAutoPanel 43 ExplicitTop = 429 44 end 45 object pnlBottom: TORAutoPanel [2] 40 46 Left = 0 41 Top = 4 2547 Top = 444 42 48 Width = 701 43 49 Height = 207 … … 46 52 Ctl3D = False 47 53 ParentCtl3D = False 48 TabOrder = 054 TabOrder = 2 49 55 object splitBottom: TSplitter 50 56 Left = 1 … … 99 105 Height = 16 100 106 BiDiMode = bdLeftToRight 101 DragReorder = False102 107 Constraints.MinHeight = 16 103 108 Sections = < … … 178 183 Height = 16 179 184 BiDiMode = bdLeftToRight 180 DragReorder = False181 185 Constraints.MinHeight = 16 182 186 Sections = < … … 214 218 end 215 219 end 216 object pnlTop: TORAutoPanel 220 object pnlTop: TORAutoPanel [3] 217 221 Left = 0 218 Top = 0222 Top = 22 219 223 Width = 701 220 Height = 4 21224 Height = 418 221 225 Align = alClient 222 226 Ctl3D = True … … 228 232 Top = 17 229 233 Width = 699 230 Height = 40 3234 Height = 400 231 235 Style = lbOwnerDrawVariable 232 236 Align = alClient … … 252 256 Height = 16 253 257 BiDiMode = bdLeftToRight 254 DragReorder = False255 258 Constraints.MinHeight = 16 256 259 Sections = < … … 298 301 OnResize = hdrMedsOutResize 299 302 end 303 end 304 object pnlView: TPanel [4] 305 Left = 0 306 Top = 0 307 Width = 701 308 Height = 22 309 Align = alTop 310 TabOrder = 0 311 object txtView: TVA508StaticText 312 Name = 'txtView' 313 Left = 9 314 Top = 3 315 Width = 36 316 Height = 15 317 Alignment = taLeftJustify 318 Caption = 'txtView' 319 TabOrder = 0 320 ShowAccelChar = True 321 end 322 end 323 inherited amgrMain: TVA508AccessibilityManager 324 Left = 16 325 Top = 152 326 Data = ( 327 ( 328 'Component = pnlBottom' 329 'Status = stsDefault') 330 ( 331 'Component = pnlMedIn' 332 'Status = stsDefault') 333 ( 334 'Component = lstMedsIn' 335 'Status = stsDefault') 336 ( 337 'Component = hdrMedsIn' 338 'Status = stsDefault') 339 ( 340 'Component = pnlNonVA' 341 'Status = stsDefault') 342 ( 343 'Component = lstMedsNonVA' 344 'Status = stsDefault') 345 ( 346 'Component = hdrMedsNonVA' 347 'Status = stsDefault') 348 ( 349 'Component = pnlTop' 350 'Status = stsDefault') 351 ( 352 'Component = lstMedsOut' 353 'Status = stsDefault') 354 ( 355 'Component = hdrMedsOut' 356 'Status = stsDefault') 357 ( 358 'Component = frmMeds' 359 'Status = stsDefault') 360 ( 361 'Component = pnlView' 362 'Status = stsDefault') 363 ( 364 'Component = txtView' 365 'Status = stsDefault')) 300 366 end 301 367 object mnuMeds: TMainMenu … … 438 504 Visible = False 439 505 end 506 object Z4: TMenuItem 507 Caption = '-' 508 Visible = False 509 end 510 object mnuViewDetail: TMenuItem 511 Caption = '&Details...' 512 OnClick = mnuViewDetailClick 513 end 440 514 object mnuViewSortName: TMenuItem 441 515 Caption = 'Sort by Drug &Name' 442 516 Visible = False 443 517 end 444 object Z4: TMenuItem445 Caption = '-'446 Visible = False447 end448 object mnuViewDetail: TMenuItem449 Caption = '&Details...'450 OnClick = mnuViewDetailClick451 end452 518 object mnuViewHistory: TMenuItem 453 519 Caption = 'Administration &History...' 454 520 OnClick = mnuViewHistoryClick 521 end 522 object N3: TMenuItem 523 Caption = '-' 524 end 525 object SortbyStatusthenLocation1: TMenuItem 526 Caption = 'Sort by Status/Exp. Date (IMO first on Inpt)' 527 OnClick = SortbyStatusthenLocation1Click 528 end 529 object SortbyClinicOrderthenStatusthenStopDate1: TMenuItem 530 Caption = 'Sort by Status Group/Status/Location/Drug Name' 531 OnClick = SortbyClinicOrderthenStatusthenStopDate1Click 532 end 533 object SortbyDrugalphabeticallystatusactivestatusrecentexpired1: TMenuItem 534 Caption = 535 'Sort by Drug (alphabetically), status active, status recent expi' + 536 'red' 537 OnClick = SortbyDrugalphabeticallystatusactivestatusrecentexpired1Click 455 538 end 456 539 end
Note:
See TracChangeset
for help on using the changeset viewer.