source: cprs/trunk/CPRS-Chart/fPtDemo.dfm@ 1720

Last change on this file since 1720 was 830, checked in by Kevin Toppenberg, 14 years ago

Upgrading to version 27

File size: 2.5 KB
Line 
1inherited frmPtDemo: TfrmPtDemo
2 Left = 248
3 Top = 283
4 BorderIcons = [biSystemMenu]
5 Caption = 'Patient Inquiry'
6 ClientHeight = 271
7 ClientWidth = 580
8 OldCreateOrder = True
9 Position = poScreenCenter
10 OnCreate = FormCreate
11 ExplicitWidth = 588
12 ExplicitHeight = 305
13 PixelsPerInch = 96
14 TextHeight = 13
15 object lblFontTest: TLabel [0]
16 Left = 264
17 Top = 148
18 Width = 77
19 Height = 14
20 Caption = 'lblFontTest'
21 Font.Charset = ANSI_CHARSET
22 Font.Color = clWindowText
23 Font.Height = -11
24 Font.Name = 'Courier New'
25 Font.Style = []
26 ParentFont = False
27 Visible = False
28 end
29 object memPtDemo: TRichEdit [1]
30 Left = 0
31 Top = 0
32 Width = 580
33 Height = 234
34 Align = alClient
35 Color = clCream
36 Font.Charset = ANSI_CHARSET
37 Font.Color = clWindowText
38 Font.Height = -11
39 Font.Name = 'Courier New'
40 Font.Style = []
41 Lines.Strings = (
42
43 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123ABCDEFGHIJKLMNOPQRSTUVWXYZ0123abcd' +
44 'efghijklmnopqrs')
45 ParentFont = False
46 PlainText = True
47 ReadOnly = True
48 ScrollBars = ssBoth
49 TabOrder = 0
50 WantReturns = False
51 WordWrap = False
52 end
53 object pnlTop: TORAutoPanel [2]
54 Left = 0
55 Top = 234
56 Width = 580
57 Height = 37
58 Align = alBottom
59 BevelOuter = bvNone
60 TabOrder = 1
61 object cmdNewPt: TButton
62 Left = 8
63 Top = 8
64 Width = 121
65 Height = 21
66 Caption = 'Select New Patient'
67 TabOrder = 0
68 OnClick = cmdNewPtClick
69 end
70 object cmdClose: TButton
71 Left = 501
72 Top = 8
73 Width = 72
74 Height = 21
75 Cancel = True
76 Caption = 'Close'
77 Default = True
78 TabOrder = 2
79 OnClick = cmdCloseClick
80 end
81 object cmdPrint: TButton
82 Left = 411
83 Top = 8
84 Width = 75
85 Height = 21
86 Caption = 'Print'
87 TabOrder = 1
88 OnClick = cmdPrintClick
89 end
90 end
91 inherited amgrMain: TVA508AccessibilityManager
92 Data = (
93 (
94 'Component = memPtDemo'
95 'Status = stsDefault')
96 (
97 'Component = pnlTop'
98 'Status = stsDefault')
99 (
100 'Component = cmdNewPt'
101 'Status = stsDefault')
102 (
103 'Component = cmdClose'
104 'Status = stsDefault')
105 (
106 'Component = cmdPrint'
107 'Status = stsDefault')
108 (
109 'Component = frmPtDemo'
110 'Status = stsDefault'))
111 end
112 object dlgPrintReport: TPrintDialog
113 Left = 265
114 Top = 245
115 end
116end
Note: See TracBrowser for help on using the repository browser.