|
Last change
on this file since 896 was 830, checked in by Kevin Toppenberg, 14 years ago |
|
Upgrading to version 27
|
|
File size:
2.6 KB
|
| Rev | Line | |
|---|
| [830] | 1 | inherited frmDupPts: TfrmDupPts
|
|---|
| [456] | 2 | Left = 160
|
|---|
| 3 | Top = 190
|
|---|
| 4 | HorzScrollBar.Visible = False
|
|---|
| 5 | VertScrollBar.Visible = False
|
|---|
| 6 | Caption = 'Similar Patients'
|
|---|
| [830] | 7 | ClientHeight = 187
|
|---|
| 8 | ClientWidth = 463
|
|---|
| [456] | 9 | Position = poScreenCenter
|
|---|
| 10 | OnCreate = FormCreate
|
|---|
| 11 | PixelsPerInch = 96
|
|---|
| 12 | TextHeight = 13
|
|---|
| [830] | 13 | object pnlDupPts: TPanel [0]
|
|---|
| [456] | 14 | Left = 0
|
|---|
| 15 | Top = 0
|
|---|
| 16 | Width = 463
|
|---|
| [830] | 17 | Height = 187
|
|---|
| [456] | 18 | Align = alClient
|
|---|
| 19 | TabOrder = 0
|
|---|
| 20 | DesignSize = (
|
|---|
| 21 | 463
|
|---|
| [830] | 22 | 187)
|
|---|
| [456] | 23 | object lblSelDupPts: TLabel
|
|---|
| 24 | Left = 6
|
|---|
| 25 | Top = 3
|
|---|
| 26 | Width = 155
|
|---|
| 27 | Height = 13
|
|---|
| 28 | Caption = 'Please select the correct patient:'
|
|---|
| 29 | end
|
|---|
| 30 | object btnOK: TButton
|
|---|
| 31 | Left = 296
|
|---|
| 32 | Top = 150
|
|---|
| 33 | Width = 75
|
|---|
| 34 | Height = 25
|
|---|
| 35 | Anchors = [akRight, akBottom]
|
|---|
| 36 | Caption = '&OK'
|
|---|
| 37 | Default = True
|
|---|
| 38 | TabOrder = 0
|
|---|
| 39 | OnClick = btnOKClick
|
|---|
| 40 | end
|
|---|
| 41 | object btnCancel: TButton
|
|---|
| 42 | Left = 381
|
|---|
| 43 | Top = 150
|
|---|
| 44 | Width = 75
|
|---|
| 45 | Height = 25
|
|---|
| 46 | Anchors = [akRight, akBottom]
|
|---|
| 47 | Caption = '&Cancel'
|
|---|
| 48 | ModalResult = 2
|
|---|
| 49 | TabOrder = 1
|
|---|
| 50 | OnClick = btnCancelClick
|
|---|
| 51 | end
|
|---|
| 52 | object pnlSelDupPt: TPanel
|
|---|
| 53 | Left = 2
|
|---|
| 54 | Top = 19
|
|---|
| 55 | Width = 461
|
|---|
| 56 | Height = 120
|
|---|
| 57 | Anchors = [akLeft, akTop, akRight, akBottom]
|
|---|
| 58 | TabOrder = 2
|
|---|
| 59 | object lblDupPts: TLabel
|
|---|
| 60 | Left = 4
|
|---|
| 61 | Top = 2
|
|---|
| 62 | Width = 364
|
|---|
| 63 | Height = 13
|
|---|
| 64 | Caption =
|
|---|
| 65 | ' Name DOB' +
|
|---|
| 66 | ' SSN'
|
|---|
| 67 | end
|
|---|
| 68 | object lboSelPt: TORListBox
|
|---|
| 69 | Left = 1
|
|---|
| 70 | Top = 16
|
|---|
| 71 | Width = 459
|
|---|
| 72 | Height = 103
|
|---|
| 73 | Align = alBottom
|
|---|
| 74 | Anchors = [akLeft, akTop, akRight, akBottom]
|
|---|
| 75 | ItemHeight = 13
|
|---|
| 76 | ParentShowHint = False
|
|---|
| 77 | ShowHint = True
|
|---|
| 78 | TabOrder = 0
|
|---|
| 79 | OnDblClick = lboSelPtDblClick
|
|---|
| 80 | Caption = 'Please select the correct patient'
|
|---|
| 81 | ItemTipColor = clWindow
|
|---|
| 82 | LongList = False
|
|---|
| 83 | Pieces = '2,3,4'
|
|---|
| 84 | TabPositions = '33,57'
|
|---|
| 85 | end
|
|---|
| 86 | end
|
|---|
| 87 | end
|
|---|
| [830] | 88 | inherited amgrMain: TVA508AccessibilityManager
|
|---|
| 89 | Data = (
|
|---|
| 90 | (
|
|---|
| 91 | 'Component = pnlDupPts'
|
|---|
| 92 | 'Status = stsDefault')
|
|---|
| 93 | (
|
|---|
| 94 | 'Component = btnOK'
|
|---|
| 95 | 'Status = stsDefault')
|
|---|
| 96 | (
|
|---|
| 97 | 'Component = btnCancel'
|
|---|
| 98 | 'Status = stsDefault')
|
|---|
| 99 | (
|
|---|
| 100 | 'Component = pnlSelDupPt'
|
|---|
| 101 | 'Status = stsDefault')
|
|---|
| 102 | (
|
|---|
| 103 | 'Component = lboSelPt'
|
|---|
| 104 | 'Status = stsDefault')
|
|---|
| 105 | (
|
|---|
| 106 | 'Component = frmDupPts'
|
|---|
| 107 | 'Status = stsDefault'))
|
|---|
| 108 | end
|
|---|
| [456] | 109 | end
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
