object frm513Print: Tfrm513Print Left = 116 Top = 375 AutoScroll = False Caption = 'Print SF 513' ClientHeight = 308 ClientWidth = 427 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object lblPrintTo: TLabel Left = 7 Top = 265 Width = 3 Height = 13 end object lblConsultTitle: TMemo Left = 10 Top = 8 Width = 301 Height = 53 BorderStyle = bsNone Color = clBtnFace Lines.Strings = ( 'Consult Title, Date/Time of Consult, Location') ReadOnly = True TabOrder = 0 end object grpChooseCopy: TGroupBox Left = 321 Top = 4 Width = 98 Height = 61 Caption = 'Print' TabOrder = 1 object radChartCopy: TRadioButton Left = 8 Top = 16 Width = 81 Height = 17 Caption = '&Chart Copy' Checked = True TabOrder = 0 TabStop = True OnClick = radChartCopyClick end object radWorkCopy: TRadioButton Left = 8 Top = 36 Width = 81 Height = 17 Caption = '&Work Copy' TabOrder = 1 OnClick = radWorkCopyClick end end object grpDevice: TGroupBox Left = 8 Top = 69 Width = 411 Height = 192 Caption = 'Device' TabOrder = 2 object lblMargin: TLabel Left = 8 Top = 166 Width = 60 Height = 13 Caption = 'Right Margin' end object lblLength: TLabel Left = 120 Top = 166 Width = 61 Height = 13 Caption = 'Page Length' end object txtRightMargin: TMaskEdit Left = 72 Top = 164 Width = 34 Height = 19 AutoSize = False EditMask = '99999;0; ' MaxLength = 5 TabOrder = 1 end object txtPageLength: TMaskEdit Left = 184 Top = 164 Width = 34 Height = 19 AutoSize = False EditMask = '99999;0; ' MaxLength = 5 TabOrder = 2 end object cboDevice: TORComboBox Left = 8 Top = 16 Width = 395 Height = 140 Style = orcsSimple AutoSelect = True Caption = 'Device' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 0 MaxLength = 0 ParentShowHint = False Pieces = '2,4' ShowHint = True Sorted = False SynonymChars = '<>' TabPositions = '30' TabOrder = 0 OnChange = cboDeviceChange OnNeedData = cboDeviceNeedData CharsNeedMatch = 1 end end object cmdOK: TButton Left = 267 Top = 272 Width = 72 Height = 22 Caption = 'OK' Default = True TabOrder = 4 OnClick = cmdOKClick end object cmdCancel: TButton Left = 347 Top = 272 Width = 72 Height = 22 Cancel = True Caption = 'Cancel' TabOrder = 5 OnClick = cmdCancelClick end object chkDefault: TCheckBox Left = 7 Top = 288 Width = 166 Height = 17 Caption = 'Save as user'#39's default printer' TabOrder = 3 end object dlgWinPrinter: TPrintDialog Left = 268 Top = 26 end object DKLanguageController1: TDKLanguageController Left = 200 Top = 272 LangData = { 0B0066726D3531335072696E74010100000001000000070043617074696F6E01 0F0000000A006C626C5072696E74546F00000F006C626C436F6E73756C745469 746C6501010000000200000005004C696E6573000D0067727043686F6F736543 6F7079010100000003000000070043617074696F6E000C007261644368617274 436F7079010100000004000000070043617074696F6E000B00726164576F726B 436F7079010100000005000000070043617074696F6E00090067727044657669 6365010100000006000000070043617074696F6E0009006C626C4D617267696E 010100000007000000070043617074696F6E0009006C626C4C656E6774680101 00000008000000070043617074696F6E000E0074787452696768744D61726769 6E00000D00747874506167654C656E6774680000090063626F44657669636501 0100000009000000070043617074696F6E000500636D644F4B01010000000A00 0000070043617074696F6E000900636D6443616E63656C01010000000B000000 070043617074696F6E000A0063686B44656661756C7401010000000C00000007 0043617074696F6E000D00646C6757696E5072696E7465720000} end end