home *** CD-ROM | disk | FTP | other *** search
- object PrintForm: TPrintForm
- Left = 259
- Top = 130
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Print'
- ClientHeight = 242
- ClientWidth = 507
- 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
- PixelsPerInch = 96
- TextHeight = 13
- object PrintButton: TButton
- Left = 117
- Top = 208
- Width = 75
- Height = 25
- Caption = '&Print'
- TabOrder = 0
- OnClick = PrintButtonClick
- end
- object SetupButton: TButton
- Left = 205
- Top = 208
- Width = 75
- Height = 25
- Caption = 'Printer &setup'
- TabOrder = 1
- OnClick = SetupButtonClick
- end
- object CancelButton: TButton
- Left = 293
- Top = 208
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 2
- OnClick = CancelButtonClick
- end
- object MarginGroupBox: TGroupBox
- Left = 320
- Top = 112
- Width = 177
- Height = 80
- Caption = 'Margin (mm)'
- TabOrder = 3
- object LeftLabel: TLabel
- Left = 6
- Top = 28
- Width = 28
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '&Left:'
- end
- object TopLabel: TLabel
- Left = 6
- Top = 52
- Width = 28
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '&Top:'
- end
- object RightLabel: TLabel
- Left = 88
- Top = 28
- Width = 36
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '&Right:'
- end
- object BottomLabel: TLabel
- Left = 88
- Top = 52
- Width = 36
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '&Bottom:'
- end
- object LeftEdit: TEdit
- Left = 38
- Top = 24
- Width = 41
- Height = 21
- TabOrder = 0
- Text = '210'
- OnChange = EditChange
- OnKeyUp = WidthEditKeyUp
- end
- object TopEdit: TEdit
- Left = 38
- Top = 48
- Width = 41
- Height = 21
- TabOrder = 1
- Text = '210'
- OnChange = EditChange
- OnKeyUp = WidthEditKeyUp
- end
- object RightEdit: TEdit
- Left = 128
- Top = 24
- Width = 41
- Height = 21
- TabOrder = 2
- Text = '210'
- end
- object BottomEdit: TEdit
- Left = 128
- Top = 48
- Width = 41
- Height = 21
- TabOrder = 3
- Text = '210'
- OnKeyUp = BottomEditKeyUp
- end
- end
- object ImageSizeGroupBox: TGroupBox
- Left = 208
- Top = 112
- Width = 97
- Height = 80
- Caption = 'Image size (mm)'
- TabOrder = 4
- object WidthLabel: TLabel
- Left = 8
- Top = 28
- Width = 36
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '&Width:'
- end
- object HeightLabel: TLabel
- Left = 8
- Top = 52
- Width = 36
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '&Height:'
- end
- object WidthEdit: TEdit
- Left = 48
- Top = 24
- Width = 41
- Height = 21
- TabOrder = 0
- Text = '210'
- OnChange = EditChange
- OnKeyUp = WidthEditKeyUp
- end
- object HeightEdit: TEdit
- Left = 48
- Top = 48
- Width = 41
- Height = 21
- TabOrder = 1
- Text = '210'
- OnChange = EditChange
- OnKeyUp = WidthEditKeyUp
- end
- end
- object OrientationGroupBox: TGroupBox
- Left = 208
- Top = 16
- Width = 97
- Height = 81
- Caption = 'Orientation'
- TabOrder = 5
- object PortaitRadioButton: TRadioButton
- Left = 8
- Top = 24
- Width = 81
- Height = 17
- Caption = 'P&ortrait'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = PortaitRadioButtonClick
- end
- object LandscapeRadioButton: TRadioButton
- Left = 8
- Top = 48
- Width = 86
- Height = 17
- Caption = 'L&andscape'
- TabOrder = 1
- OnClick = PortaitRadioButtonClick
- end
- end
- object OptionsGroupBox: TGroupBox
- Left = 320
- Top = 16
- Width = 177
- Height = 81
- Caption = 'Options'
- TabOrder = 6
- object AspectCheckBox: TCheckBox
- Left = 16
- Top = 21
- Width = 158
- Height = 17
- Caption = '&Maintain aspect ratio'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = OptionsCheckBoxClick
- end
- object FullpageCheckBox: TCheckBox
- Left = 16
- Top = 39
- Width = 156
- Height = 17
- Caption = '&Use full page'
- Checked = True
- State = cbChecked
- TabOrder = 1
- OnClick = OptionsCheckBoxClick
- end
- object CenterCheckBox: TCheckBox
- Left = 16
- Top = 57
- Width = 156
- Height = 17
- Caption = '&Center on page'
- Checked = True
- State = cbChecked
- TabOrder = 2
- OnClick = OptionsCheckBoxClick
- end
- end
- object PreviewGroupBox: TGroupBox
- Left = 8
- Top = 16
- Width = 185
- Height = 177
- Caption = 'Preview'
- TabOrder = 7
- OnMouseDown = PreviewGroupBoxMouseDown
- object PreviewImage: TImage
- Left = 40
- Top = 16
- Width = 105
- Height = 156
- AutoSize = True
- OnMouseDown = PreviewImageMouseDown
- end
- object MinusSpeedButton: TSpeedButton
- Left = 5
- Top = 143
- Width = 29
- Height = 29
- Flat = True
- Glyph.Data = {
- 72010000424D7201000000000000760000002800000015000000150000000100
- 040000000000FC00000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777FF00077777777777777777700F0007777777777777777700070007777
- 77777777777700077000777777777777777000777000777777FFFFF777000777
- 70007777F000007FF070777770007770077777000F0777777000770877777777
- 00F77777700070877777777770F777777000708F77777777707F7777700008F7
- 77777777770F7777700008F77FFFFFF7770F7777700008F700000007770F7777
- 700008F777777777770F7777700008F777777777770777777000708F77777777
- 70F777777000708FF777777780777777700077088FFFF7880777777770007770
- 08888800777777777000777770000077777777777000}
- OnClick = MinusSpeedButtonClick
- end
- object PlusSpeedButton: TSpeedButton
- Left = 151
- Top = 143
- Width = 29
- Height = 29
- Flat = True
- Glyph.Data = {
- 72010000424D7201000000000000760000002800000015000000150000000100
- 040000000000FC00000000000000000000001000000010000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7777777FF00077777777777777777700F0007777777777777777700070007777
- 77777777777700077000777777777777777000777000777777FFFFF777000777
- 70007777F000007FF070777770007770077777000F0777777000770877777777
- 00F77777700070877777F77770F777777000708F7770F777707F7777700008F7
- 7770F777770F7777700008F77FF0FFFF770F7777700008F700000007770F7777
- 700008F77770F777770F7777700008F77770F777770777777000708F77707777
- 70F777777000708FF777777780777777700077088FFFF7880777777770007770
- 08888800777777777000777770000077777777777000}
- OnClick = PlusSpeedButtonClick
- end
- end
- object PrinterSetupDialog: TPrinterSetupDialog
- Left = 32
- Top = 208
- end
- end
-