home *** CD-ROM | disk | FTP | other *** search
- object FormPrint: TFormPrint
- Left = 220
- Top = 106
- HelpContext = 7
- BorderStyle = bsDialog
- Caption = 'Print'
- ClientHeight = 357
- ClientWidth = 413
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poOwnerFormCenter
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object BoxPrinter: TGroupBox
- Left = 4
- Top = 8
- Width = 405
- Height = 57
- Caption = 'Printer'
- TabOrder = 0
- object LbPrinterName: TLabel
- Left = 8
- Top = 16
- Width = 119
- Height = 13
- Caption = 'Name: (no default printer)'
- end
- object LbOrientation: TLabel
- Left = 8
- Top = 32
- Width = 171
- Height = 13
- Caption = 'Paper orientation: (no default printer)'
- end
- object BtnSetup: TButton
- Left = 312
- Top = 16
- Width = 83
- Height = 25
- Caption = 'Setup...'
- TabOrder = 0
- OnClick = BtnSetupClick
- end
- end
- object BoxLayout: TGroupBox
- Left = 4
- Top = 144
- Width = 405
- Height = 177
- Caption = 'Page layout'
- Color = clBtnFace
- ParentColor = False
- TabOrder = 1
- object ChkTitle: TCheckBox
- Left = 154
- Top = 16
- Width = 105
- Height = 17
- Caption = 'Title:'
- TabOrder = 0
- OnClick = ChkTitleClick
- end
- object EdTitle: TEdit
- Left = 101
- Top = 38
- Width = 202
- Height = 21
- TabOrder = 1
- OnChange = EdTitleChange
- end
- object ChkNote1: TCheckBox
- Left = 9
- Top = 128
- Width = 73
- Height = 17
- Caption = 'Note1:'
- TabOrder = 2
- OnClick = ChkTitleClick
- end
- object EdNote1: TEdit
- Left = 82
- Top = 126
- Width = 311
- Height = 21
- TabOrder = 3
- OnChange = EdNote1Change
- end
- object ChkNote2: TCheckBox
- Left = 9
- Top = 152
- Width = 73
- Height = 17
- Caption = 'Note2:'
- TabOrder = 4
- OnClick = ChkTitleClick
- end
- object EdNote2: TEdit
- Left = 82
- Top = 150
- Width = 311
- Height = 21
- TabOrder = 5
- end
- object PanelRoom: TPanel
- Left = 8
- Top = 64
- Width = 393
- Height = 33
- BevelOuter = bvNone
- Caption = '... room drawing ...'
- TabOrder = 6
- end
- object ChkScale: TCheckBox
- Left = 256
- Top = 104
- Width = 137
- Height = 17
- Caption = 'Draw scale'
- Checked = True
- State = cbChecked
- TabOrder = 7
- OnClick = ChkScaleClick
- end
- end
- object BtnOK: TButton
- Left = 89
- Top = 328
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- TabOrder = 4
- OnClick = BtnOKClick
- end
- object BtnCancel: TButton
- Left = 169
- Top = 328
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 5
- end
- object BoxImageScale: TGroupBox
- Left = 4
- Top = 72
- Width = 245
- Height = 65
- Caption = 'Room drawing size'
- TabOrder = 2
- object LabelPIS1: TLabel
- Left = 88
- Top = 39
- Width = 12
- Height = 13
- Caption = '1 :'
- end
- object LbMaxScale: TLabel
- Left = 164
- Top = 39
- Width = 70
- Height = 13
- Caption = '(max 1 : 31.99)'
- end
- object RbMaximize: TRadioButton
- Left = 8
- Top = 18
- Width = 113
- Height = 17
- Caption = 'Maximize'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = RbScaleClick
- end
- object RbScale: TRadioButton
- Left = 8
- Top = 38
- Width = 81
- Height = 17
- Caption = 'Scale:'
- TabOrder = 1
- OnClick = RbScaleClick
- end
- object EdPrintInScale: TEdit
- Left = 104
- Top = 36
- Width = 57
- Height = 21
- TabOrder = 2
- end
- end
- object BoxPrintAttr: TGroupBox
- Left = 252
- Top = 72
- Width = 157
- Height = 65
- Caption = 'Options'
- TabOrder = 3
- object LbPageBorder: TLabel
- Left = 8
- Top = 40
- Width = 61
- Height = 13
- Caption = 'Page border:'
- end
- object LbUnit: TLabel
- Left = 136
- Top = 40
- Width = 14
- Height = 13
- Caption = 'cm'
- end
- object ChkPrintInColor: TCheckBox
- Left = 8
- Top = 16
- Width = 145
- Height = 17
- Caption = 'Print in color'
- Checked = True
- State = cbChecked
- TabOrder = 0
- end
- object EdPageBorder: TEdit
- Left = 92
- Top = 37
- Width = 41
- Height = 21
- TabOrder = 1
- OnChange = ChkTitleClick
- end
- end
- object BtnHelp: TButton
- Left = 248
- Top = 328
- Width = 75
- Height = 25
- Caption = 'Help'
- TabOrder = 6
- OnClick = BtnHelpClick
- end
- object PrintDialog1: TPrintDialog
- Options = [poDisablePrintToFile]
- Left = 280
- Top = 24
- end
- end
-