source: cprs/branches/foia-cprs/CPRS-Chart/fPtDemo.dfm@ 1376

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

Adding foia-cprs branch

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