source: cprs/branches/tmg-cprs/CPRS-Chart/fPtDemo.dfm@ 1593

Last change on this file since 1593 was 729, checked in by Kevin Toppenberg, 15 years ago

Added functions to Templates, and Images tab

File size: 3.1 KB
RevLine 
[453]1object frmPtDemo: TfrmPtDemo
[729]2 Left = 285
3 Top = 185
4 Width = 613
[453]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
[729]36 Width = 605
[453]37 Height = 229
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 = 229
[729]60 Width = 605
[453]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
[729]72 WordWrap = True
[453]73 OnClick = cmdNewPtClick
74 end
75 object cmdClose: TButton
76 Left = 501
77 Top = 8
78 Width = 72
79 Height = 21
80 Cancel = True
81 Caption = 'Close'
82 Default = True
83 TabOrder = 2
84 OnClick = cmdCloseClick
85 end
86 object cmdPrint: TButton
87 Left = 411
88 Top = 8
89 Width = 75
90 Height = 21
91 Caption = 'Print'
92 TabOrder = 1
93 OnClick = cmdPrintClick
94 end
95 object EditaPtButton: TButton
96 Left = 144
97 Top = 8
98 Width = 145
99 Height = 21
[729]100 BiDiMode = bdRightToLeftNoAlign
[453]101 Caption = '&Edit Patient Demographics'
[729]102 ParentBiDiMode = False
[453]103 TabOrder = 3
[729]104 WordWrap = True
[453]105 OnClick = EditaPtButtonClick
106 end
107 end
108 object dlgPrintReport: TPrintDialog
109 Left = 289
110 Top = 237
111 end
112 object DKLanguageController1: TDKLanguageController
113 Left = 328
114 Top = 237
115 LangData = {
116 090066726D507444656D6F010100000001000000070043617074696F6E010800
117 00000B006C626C466F6E7454657374010100000002000000070043617074696F
118 6E0009006D656D507444656D6F01010000000300000005004C696E6573000600
119 706E6C546F7000000800636D644E657750740101000000040000000700436170
120 74696F6E000800636D64436C6F7365010100000005000000070043617074696F
121 6E000800636D645072696E74010100000006000000070043617074696F6E000E
122 00646C675072696E745265706F727400000D0045646974615074427574746F6E
123 010100000007000000070043617074696F6E00}
124 end
125end
Note: See TracBrowser for help on using the repository browser.