Last change
on this file since 1087 was 830, checked in by Kevin Toppenberg, 14 years ago |
Upgrading to version 27
|
File size:
2.5 KB
|
Line | |
---|
1 | inherited frmPtSens: TfrmPtSens
|
---|
2 | Left = 216
|
---|
3 | Top = 373
|
---|
4 | BorderIcons = []
|
---|
5 | BorderStyle = bsDialog
|
---|
6 | Caption = 'Restricted Patient Record'
|
---|
7 | ClientHeight = 181
|
---|
8 | ClientWidth = 596
|
---|
9 | OldCreateOrder = True
|
---|
10 | Position = poScreenCenter
|
---|
11 | OnCreate = FormCreate
|
---|
12 | PixelsPerInch = 96
|
---|
13 | TextHeight = 13
|
---|
14 | object imgWarning: TImage [0]
|
---|
15 | Left = 16
|
---|
16 | Top = 16
|
---|
17 | Width = 32
|
---|
18 | Height = 32
|
---|
19 | end
|
---|
20 | object lblContinue: TStaticText [1]
|
---|
21 | Left = 64
|
---|
22 | Top = 150
|
---|
23 | Width = 267
|
---|
24 | Height = 17
|
---|
25 | Caption = 'Do you want to continue processing this patient record?'
|
---|
26 | TabOrder = 3
|
---|
27 | end
|
---|
28 | object memWarning: TMemo [2]
|
---|
29 | Left = 64
|
---|
30 | Top = 16
|
---|
31 | Width = 517
|
---|
32 | Height = 113
|
---|
33 | BorderStyle = bsNone
|
---|
34 | Color = clBtnFace
|
---|
35 | Font.Charset = DEFAULT_CHARSET
|
---|
36 | Font.Color = clWindowText
|
---|
37 | Font.Height = -11
|
---|
38 | Font.Name = 'Courier New'
|
---|
39 | Font.Style = []
|
---|
40 | Lines.Strings = (
|
---|
41 | ' *** WARNING ***'
|
---|
42 | ' *** RESTRICTED RECORD ***'
|
---|
43 |
|
---|
44 | '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ' +
|
---|
45 | '* * * * * '
|
---|
46 |
|
---|
47 | '* This record is protected by the Privacy Act of 1974. If you el' +
|
---|
48 | 'ect *'
|
---|
49 |
|
---|
50 | '* to proceed, you will be required to prove you have a need to k' +
|
---|
51 | 'now. *'
|
---|
52 |
|
---|
53 | '* Accessing this patient is tracked, and your station Security O' +
|
---|
54 | 'fficer *'
|
---|
55 |
|
---|
56 | '* will contact you for your justification. ' +
|
---|
57 | ' *'
|
---|
58 |
|
---|
59 | '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ' +
|
---|
60 | '* * * * * '
|
---|
61 | '')
|
---|
62 | ParentFont = False
|
---|
63 | ReadOnly = True
|
---|
64 | TabOrder = 0
|
---|
65 | end
|
---|
66 | object cmdYes: TButton [3]
|
---|
67 | Left = 408
|
---|
68 | Top = 144
|
---|
69 | Width = 75
|
---|
70 | Height = 25
|
---|
71 | Caption = 'Yes'
|
---|
72 | TabOrder = 1
|
---|
73 | OnClick = cmdYesClick
|
---|
74 | end
|
---|
75 | object cmdNo: TButton [4]
|
---|
76 | Left = 500
|
---|
77 | Top = 144
|
---|
78 | Width = 75
|
---|
79 | Height = 25
|
---|
80 | Caption = 'No'
|
---|
81 | Default = True
|
---|
82 | TabOrder = 2
|
---|
83 | OnClick = cmdNoClick
|
---|
84 | end
|
---|
85 | inherited amgrMain: TVA508AccessibilityManager
|
---|
86 | Data = (
|
---|
87 | (
|
---|
88 | 'Component = lblContinue'
|
---|
89 | 'Status = stsDefault')
|
---|
90 | (
|
---|
91 | 'Component = memWarning'
|
---|
92 | 'Status = stsDefault')
|
---|
93 | (
|
---|
94 | 'Component = cmdYes'
|
---|
95 | 'Status = stsDefault')
|
---|
96 | (
|
---|
97 | 'Component = cmdNo'
|
---|
98 | 'Status = stsDefault')
|
---|
99 | (
|
---|
100 | 'Component = frmPtSens'
|
---|
101 | 'Status = stsDefault'))
|
---|
102 | end
|
---|
103 | end
|
---|
Note:
See
TracBrowser
for help on using the repository browser.