source: cprs/branches/tmg-cprs/CPRS-Chart/fDupPts.dfm@ 1163

Last change on this file since 1163 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 2.8 KB
RevLine 
[453]1object frmDupPts: TfrmDupPts
2 Left = 160
3 Top = 190
4 Width = 471
5 Height = 214
6 HorzScrollBar.Visible = False
7 VertScrollBar.Visible = False
8 Caption = 'Similar Patients'
9 Color = clBtnFace
10 Font.Charset = DEFAULT_CHARSET
11 Font.Color = clWindowText
12 Font.Height = -11
13 Font.Name = 'MS Sans Serif'
14 Font.Style = []
15 KeyPreview = True
16 OldCreateOrder = False
17 Position = poScreenCenter
18 OnCreate = FormCreate
19 OnKeyDown = FormKeyDown
20 PixelsPerInch = 96
21 TextHeight = 13
22 object pnlDupPts: TPanel
23 Left = 0
24 Top = 0
25 Width = 463
26 Height = 180
27 Align = alClient
28 TabOrder = 0
29 DesignSize = (
30 463
31 180)
32 object lblSelDupPts: TLabel
33 Left = 6
34 Top = 3
35 Width = 155
36 Height = 13
37 Caption = 'Please select the correct patient:'
38 end
39 object btnOK: TButton
40 Left = 296
41 Top = 150
42 Width = 75
43 Height = 25
44 Anchors = [akRight, akBottom]
45 Caption = '&OK'
46 Default = True
47 TabOrder = 0
48 OnClick = btnOKClick
49 end
50 object btnCancel: TButton
51 Left = 381
52 Top = 150
53 Width = 75
54 Height = 25
55 Anchors = [akRight, akBottom]
56 Caption = '&Cancel'
57 ModalResult = 2
58 TabOrder = 1
59 OnClick = btnCancelClick
60 end
61 object pnlSelDupPt: TPanel
62 Left = 2
63 Top = 19
64 Width = 461
65 Height = 120
66 Anchors = [akLeft, akTop, akRight, akBottom]
67 TabOrder = 2
68 object lblDupPts: TLabel
69 Left = 4
70 Top = 2
71 Width = 364
72 Height = 13
73 Caption =
74 ' Name DOB' +
75 ' SSN'
76 end
77 object lboSelPt: TORListBox
78 Left = 1
79 Top = 16
80 Width = 459
81 Height = 103
82 Align = alBottom
83 Anchors = [akLeft, akTop, akRight, akBottom]
84 ItemHeight = 13
85 ParentShowHint = False
86 ShowHint = True
87 TabOrder = 0
88 OnDblClick = lboSelPtDblClick
89 Caption = 'Please select the correct patient'
90 ItemTipColor = clWindow
91 LongList = False
92 Pieces = '2,3,4'
93 TabPositions = '33,57'
94 end
95 end
96 end
97 object DKLanguageController1: TDKLanguageController
98 Left = 224
99 Top = 96
100 LangData = {
101 090066726D447570507473010100000001000000070043617074696F6E010700
102 00000900706E6C44757050747300000C006C626C53656C447570507473010100
103 000002000000070043617074696F6E00050062746E4F4B010100000003000000
104 070043617074696F6E00090062746E43616E63656C0101000000040000000700
105 43617074696F6E000B00706E6C53656C4475705074000009006C626C44757050
106 7473010100000005000000070043617074696F6E0008006C626F53656C507401
107 0100000006000000070043617074696F6E00}
108 end
109end
Note: See TracBrowser for help on using the repository browser.