Last change
on this file since 836 was 830, checked in by Kevin Toppenberg, 14 years ago |
Upgrading to version 27
|
File size:
1.9 KB
|
Line | |
---|
1 | inherited frmEffectDate: TfrmEffectDate
|
---|
2 | Left = 335
|
---|
3 | Top = 133
|
---|
4 | BorderIcons = []
|
---|
5 | BorderStyle = bsDialog
|
---|
6 | Caption = 'Discharge Date'
|
---|
7 | ClientHeight = 127
|
---|
8 | ClientWidth = 254
|
---|
9 | Position = poScreenCenter
|
---|
10 | OnCreate = FormCreate
|
---|
11 | ExplicitWidth = 320
|
---|
12 | ExplicitHeight = 240
|
---|
13 | PixelsPerInch = 96
|
---|
14 | TextHeight = 13
|
---|
15 | object Label2: TLabel [0]
|
---|
16 | Left = 68
|
---|
17 | Top = 48
|
---|
18 | Width = 68
|
---|
19 | Height = 13
|
---|
20 | Caption = 'Effective Date'
|
---|
21 | end
|
---|
22 | object Label3: TStaticText [1]
|
---|
23 | Left = 8
|
---|
24 | Top = 8
|
---|
25 | Width = 244
|
---|
26 | Height = 17
|
---|
27 | Caption = 'Enter the date this discharge will become effective.'
|
---|
28 | TabOrder = 3
|
---|
29 | end
|
---|
30 | object Label4: TStaticText [2]
|
---|
31 | Left = 8
|
---|
32 | Top = 22
|
---|
33 | Width = 224
|
---|
34 | Height = 17
|
---|
35 | Caption = '(This aids pharmacy in preparing prescriptions.)'
|
---|
36 | TabOrder = 4
|
---|
37 | end
|
---|
38 | object calEffective: TORDateBox [3]
|
---|
39 | Left = 68
|
---|
40 | Top = 62
|
---|
41 | Width = 120
|
---|
42 | Height = 21
|
---|
43 | TabOrder = 0
|
---|
44 | Text = 'Today'
|
---|
45 | DateOnly = True
|
---|
46 | RequireTime = False
|
---|
47 | Caption = 'Effective Date'
|
---|
48 | end
|
---|
49 | object cmdOK: TButton [4]
|
---|
50 | Left = 51
|
---|
51 | Top = 95
|
---|
52 | Width = 72
|
---|
53 | Height = 21
|
---|
54 | Caption = 'OK'
|
---|
55 | Default = True
|
---|
56 | TabOrder = 1
|
---|
57 | OnClick = cmdOKClick
|
---|
58 | end
|
---|
59 | object cmdCancel: TButton [5]
|
---|
60 | Left = 133
|
---|
61 | Top = 95
|
---|
62 | Width = 72
|
---|
63 | Height = 21
|
---|
64 | Cancel = True
|
---|
65 | Caption = 'Cancel'
|
---|
66 | TabOrder = 2
|
---|
67 | OnClick = cmdCancelClick
|
---|
68 | end
|
---|
69 | inherited amgrMain: TVA508AccessibilityManager
|
---|
70 | Data = (
|
---|
71 | (
|
---|
72 | 'Component = Label3'
|
---|
73 | 'Status = stsDefault')
|
---|
74 | (
|
---|
75 | 'Component = Label4'
|
---|
76 | 'Status = stsDefault')
|
---|
77 | (
|
---|
78 | 'Component = calEffective'
|
---|
79 | 'Status = stsDefault')
|
---|
80 | (
|
---|
81 | 'Component = cmdOK'
|
---|
82 | 'Status = stsDefault')
|
---|
83 | (
|
---|
84 | 'Component = cmdCancel'
|
---|
85 | 'Status = stsDefault')
|
---|
86 | (
|
---|
87 | 'Component = frmEffectDate'
|
---|
88 | 'Status = stsDefault'))
|
---|
89 | end
|
---|
90 | end
|
---|
Note:
See
TracBrowser
for help on using the repository browser.