source: cprs/branches/foia-cprs/CPRS-Chart/fPtSelDemog.dfm@ 1769

Last change on this file since 1769 was 459, checked in by Kevin Toppenberg, 17 years ago

Adding foia-cprs branch
File size: 3.2 KB
Line 
1object frmPtSelDemog: TfrmPtSelDemog
2 Left = 100
3 Top = 109
4 BorderStyle = bsNone
5 Caption = 'frmPtSelDemog'
6 ClientHeight = 151
7 ClientWidth = 190
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 = False
15 OnCreate = FormCreate
16 OnDestroy = FormDestroy
17 PixelsPerInch = 96
18 TextHeight = 13
19 object orapnlMain: TORAutoPanel
20 Left = 0
21 Top = 0
22 Width = 190
23 Height = 151
24 Align = alClient
25 BevelOuter = bvNone
26 TabOrder = 0
27 object Memo: TCaptionMemo
28 Left = 0
29 Top = 0
30 Width = 190
31 Height = 151
32 Align = alClient
33 HideSelection = False
34 Lines.Strings = (
35 'Memo')
36 ReadOnly = True
37 TabOrder = 12
38 Visible = False
39 WantReturns = False
40 end
41 object lblPtName: TStaticText
42 Tag = 2
43 Left = 1
44 Top = 2
45 Width = 166
46 Height = 17
47 Caption = 'Winchester,Charles Emerson'
48 Font.Charset = DEFAULT_CHARSET
49 Font.Color = clWindowText
50 Font.Height = -11
51 Font.Name = 'MS Sans Serif'
52 Font.Style = [fsBold]
53 ParentFont = False
54 TabOrder = 11
55 end
56 object lblSSN: TStaticText
57 Tag = 1
58 Left = 1
59 Top = 21
60 Width = 29
61 Height = 17
62 Caption = 'SSN:'
63 TabOrder = 0
64 end
65 object lblPtSSN: TStaticText
66 Tag = 2
67 Left = 31
68 Top = 21
69 Width = 64
70 Height = 17
71 Caption = '123-45-1234'
72 TabOrder = 1
73 end
74 object lblDOB: TStaticText
75 Tag = 1
76 Left = 1
77 Top = 39
78 Width = 30
79 Height = 17
80 Caption = 'DOB:'
81 TabOrder = 2
82 end
83 object lblPtDOB: TStaticText
84 Tag = 2
85 Left = 31
86 Top = 39
87 Width = 63
88 Height = 17
89 Caption = 'Jun 26,1957'
90 TabOrder = 3
91 end
92 object lblPtSex: TStaticText
93 Tag = 2
94 Left = 1
95 Top = 57
96 Width = 66
97 Height = 17
98 Caption = 'Male, age 39'
99 TabOrder = 4
100 end
101 object lblPtVet: TStaticText
102 Tag = 2
103 Left = 1
104 Top = 75
105 Width = 41
106 Height = 17
107 Caption = 'Veteran'
108 TabOrder = 5
109 end
110 object lblPtSC: TStaticText
111 Tag = 2
112 Left = 1
113 Top = 93
114 Width = 118
115 Height = 17
116 Caption = 'Service Connected 50%'
117 TabOrder = 6
118 end
119 object lblLocation: TStaticText
120 Tag = 1
121 Left = 1
122 Top = 111
123 Width = 48
124 Height = 17
125 Caption = 'Location:'
126 TabOrder = 7
127 end
128 object lblPtRoomBed: TStaticText
129 Tag = 2
130 Left = 61
131 Top = 131
132 Width = 32
133 Height = 17
134 Caption = '257-B'
135 ShowAccelChar = False
136 TabOrder = 8
137 end
138 object lblPtLocation: TStaticText
139 Tag = 2
140 Left = 61
141 Top = 111
142 Width = 41
143 Height = 17
144 Caption = '2 EAST'
145 ShowAccelChar = False
146 TabOrder = 9
147 end
148 object lblRoomBed: TStaticText
149 Tag = 1
150 Left = 1
151 Top = 131
152 Width = 57
153 Height = 17
154 Caption = 'Room-Bed:'
155 TabOrder = 10
156 end
157 end
158end
Note: See TracBrowser for help on using the repository browser.