source: cprs/branches/foia-cprs/CPRS-Chart/fLabPrint.dfm@ 1099

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

Adding foia-cprs branch

File size: 2.9 KB
RevLine 
[459]1object frmLabPrint: TfrmLabPrint
2 Left = 294
3 Top = 216
4 Width = 445
5 Height = 336
6 Caption = 'Lab Print Device Selection'
7 Color = clBtnFace
8 Font.Charset = DEFAULT_CHARSET
9 Font.Color = clWindowText
10 Font.Height = -11
11 Font.Name = 'MS Sans Serif'
12 Font.Style = []
13 OldCreateOrder = True
14 OnCreate = FormCreate
15 OnDestroy = FormDestroy
16 PixelsPerInch = 96
17 TextHeight = 13
18 object lblPrintTo: TLabel
19 Left = 7
20 Top = 270
21 Width = 3
22 Height = 13
23 end
24 object lblLabTitle: TMemo
25 Left = 8
26 Top = 8
27 Width = 301
28 Height = 53
29 TabStop = False
30 BorderStyle = bsNone
31 Color = clBtnFace
32 Lines.Strings = (
33 'Report Title, Date/Time, Location')
34 ReadOnly = True
35 TabOrder = 4
36 end
37 object grpDevice: TGroupBox
38 Left = 8
39 Top = 69
40 Width = 411
41 Height = 192
42 Caption = 'Device'
43 TabOrder = 0
44 object lblMargin: TLabel
45 Left = 8
46 Top = 166
47 Width = 60
48 Height = 13
49 AutoSize = False
50 Caption = 'Right Margin'
51 end
52 object lblLength: TLabel
53 Left = 120
54 Top = 166
55 Width = 61
56 Height = 13
57 AutoSize = False
58 Caption = 'Page Length'
59 end
60 object txtRightMargin: TMaskEdit
61 Left = 72
62 Top = 164
63 Width = 34
64 Height = 19
65 AutoSize = False
66 EditMask = '99999;0; '
67 MaxLength = 5
68 TabOrder = 1
69 end
70 object txtPageLength: TMaskEdit
71 Left = 184
72 Top = 164
73 Width = 34
74 Height = 19
75 AutoSize = False
76 EditMask = '99999;0; '
77 MaxLength = 5
78 TabOrder = 2
79 end
80 object cboDevice: TORComboBox
81 Left = 8
82 Top = 16
83 Width = 395
84 Height = 140
85 Style = orcsSimple
86 AutoSelect = True
87 Caption = 'Device'
88 Color = clWindow
89 DropDownCount = 8
90 ItemHeight = 13
91 ItemTipColor = clWindow
92 ItemTipEnable = True
93 ListItemsOnly = False
94 LongList = True
95 MaxLength = 0
96 ParentShowHint = False
97 Pieces = '2,4'
98 ShowHint = True
99 Sorted = False
100 SynonymChars = '<>'
101 TabPositions = '30'
102 TabOrder = 0
103 OnChange = cboDeviceChange
104 OnNeedData = cboDeviceNeedData
105 end
106 end
107 object cmdOK: TButton
108 Left = 267
109 Top = 272
110 Width = 72
111 Height = 22
112 Caption = 'OK'
113 Default = True
114 TabOrder = 1
115 OnClick = cmdOKClick
116 end
117 object cmdCancel: TButton
118 Left = 347
119 Top = 272
120 Width = 72
121 Height = 22
122 Cancel = True
123 Caption = 'Cancel'
124 TabOrder = 2
125 OnClick = cmdCancelClick
126 end
127 object chkDefault: TCheckBox
128 Left = 7
129 Top = 288
130 Width = 173
131 Height = 17
132 Caption = 'Save as user'#39's default printer'
133 TabOrder = 3
134 end
135 object dlgWinPrinter: TPrintDialog
136 Left = 352
137 Top = 22
138 end
139end
Note: See TracBrowser for help on using the repository browser.