source: cprs/branches/foia-cprs/CPRS-Chart/Consults/fConsult513Prt.dfm@ 1085

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

Adding foia-cprs branch

File size: 3.5 KB
Line 
1object frm513Print: Tfrm513Print
2 Left = 116
3 Top = 375
4 AutoScroll = False
5 Caption = 'Print SF 513'
6 ClientHeight = 308
7 ClientWidth = 427
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 OnDestroy = FormDestroy
18 PixelsPerInch = 96
19 TextHeight = 13
20 object lblPrintTo: TLabel
21 Left = 7
22 Top = 265
23 Width = 3
24 Height = 13
25 end
26 object lblConsultTitle: TMemo
27 Left = 10
28 Top = 8
29 Width = 301
30 Height = 53
31 BorderStyle = bsNone
32 Color = clBtnFace
33 Lines.Strings = (
34 'Consult Title, Date/Time of Consult, Location')
35 ReadOnly = True
36 TabOrder = 0
37 end
38 object grpChooseCopy: TGroupBox
39 Left = 321
40 Top = 4
41 Width = 98
42 Height = 61
43 Caption = 'Print'
44 TabOrder = 1
45 object radChartCopy: TRadioButton
46 Left = 8
47 Top = 16
48 Width = 81
49 Height = 17
50 Caption = '&Chart Copy'
51 Checked = True
52 TabOrder = 0
53 TabStop = True
54 OnClick = radChartCopyClick
55 end
56 object radWorkCopy: TRadioButton
57 Left = 8
58 Top = 36
59 Width = 81
60 Height = 17
61 Caption = '&Work Copy'
62 TabOrder = 1
63 OnClick = radWorkCopyClick
64 end
65 end
66 object grpDevice: TGroupBox
67 Left = 8
68 Top = 69
69 Width = 411
70 Height = 192
71 Caption = 'Device'
72 TabOrder = 2
73 object lblMargin: TLabel
74 Left = 8
75 Top = 166
76 Width = 60
77 Height = 13
78 Caption = 'Right Margin'
79 end
80 object lblLength: TLabel
81 Left = 120
82 Top = 166
83 Width = 61
84 Height = 13
85 Caption = 'Page Length'
86 end
87 object txtRightMargin: TMaskEdit
88 Left = 72
89 Top = 164
90 Width = 34
91 Height = 19
92 AutoSize = False
93 EditMask = '99999;0; '
94 MaxLength = 5
95 TabOrder = 1
96 end
97 object txtPageLength: TMaskEdit
98 Left = 184
99 Top = 164
100 Width = 34
101 Height = 19
102 AutoSize = False
103 EditMask = '99999;0; '
104 MaxLength = 5
105 TabOrder = 2
106 end
107 object cboDevice: TORComboBox
108 Left = 8
109 Top = 16
110 Width = 395
111 Height = 140
112 Style = orcsSimple
113 AutoSelect = True
114 Caption = 'Device'
115 Color = clWindow
116 DropDownCount = 8
117 ItemHeight = 13
118 ItemTipColor = clWindow
119 ItemTipEnable = True
120 ListItemsOnly = True
121 LongList = True
122 LookupPiece = 0
123 MaxLength = 0
124 ParentShowHint = False
125 Pieces = '2,4'
126 ShowHint = True
127 Sorted = False
128 SynonymChars = '<>'
129 TabPositions = '30'
130 TabOrder = 0
131 OnChange = cboDeviceChange
132 OnNeedData = cboDeviceNeedData
133 end
134 end
135 object cmdOK: TButton
136 Left = 267
137 Top = 272
138 Width = 72
139 Height = 22
140 Caption = 'OK'
141 Default = True
142 TabOrder = 4
143 OnClick = cmdOKClick
144 end
145 object cmdCancel: TButton
146 Left = 347
147 Top = 272
148 Width = 72
149 Height = 22
150 Cancel = True
151 Caption = 'Cancel'
152 TabOrder = 5
153 OnClick = cmdCancelClick
154 end
155 object chkDefault: TCheckBox
156 Left = 7
157 Top = 288
158 Width = 166
159 Height = 17
160 Caption = 'Save as user'#39's default printer'
161 TabOrder = 3
162 end
163 object dlgWinPrinter: TPrintDialog
164 Left = 268
165 Top = 26
166 end
167end
Note: See TracBrowser for help on using the repository browser.