home *** CD-ROM | disk | FTP | other *** search
- object PrintPosDlg: TPrintPosDlg
- Left = 136
- Top = 114
- BorderStyle = bsDialog
- Caption = 'Print Positioning'
- ClientHeight = 393
- ClientWidth = 516
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 16
- Top = 3
- Width = 490
- Height = 345
- Shape = bsFrame
- end
- object bframe: TPaintBox
- Left = 136
- Top = 10
- Width = 245
- Height = 170
- end
- object pSurface: TPaintBox
- Left = 219
- Top = 42
- Width = 71
- Height = 97
- Color = clWhite
- ParentColor = False
- OnMouseDown = imageMouseDown
- OnMouseMove = imageMouseMove
- OnMouseUp = imageMouseUp
- OnPaint = pbPaint
- end
- object OKBtn: TButton
- Left = 183
- Top = 360
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 0
- end
- object CancelBtn: TButton
- Left = 268
- Top = 360
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object orientation: TRadioGroup
- Left = 369
- Top = 180
- Width = 122
- Height = 57
- Caption = 'Orientation'
- Items.Strings = (
- 'Portrait'
- 'Landscape')
- TabOrder = 3
- OnClick = orientationClick
- end
- object GroupBox1: TGroupBox
- Left = 28
- Top = 180
- Width = 334
- Height = 69
- Caption = 'Printer'
- TabOrder = 2
- object Label1: TLabel
- Left = 8
- Top = 45
- Width = 28
- Height = 13
- Caption = 'Paper'
- end
- object paper: TLabel
- Left = 44
- Top = 45
- Width = 194
- Height = 13
- AutoSize = False
- Caption = 'Paper'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 8
- Top = 21
- Width = 28
- Height = 13
- Caption = 'Name'
- end
- object Name: TLabel
- Left = 44
- Top = 21
- Width = 194
- Height = 13
- AutoSize = False
- Caption = 'Name'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Button2: TButton
- Left = 251
- Top = 26
- Width = 75
- Height = 25
- Caption = 'Properties'
- TabOrder = 0
- OnClick = Button2Click
- end
- end
- object GroupBox2: TGroupBox
- Left = 28
- Top = 266
- Width = 334
- Height = 75
- Caption = 'Document'
- TabOrder = 4
- object Label3: TLabel
- Left = 112
- Top = 22
- Width = 28
- Height = 13
- Caption = 'Width'
- end
- object Label4: TLabel
- Left = 110
- Top = 47
- Width = 31
- Height = 13
- Caption = 'Height'
- end
- object Label5: TLabel
- Left = 22
- Top = 22
- Width = 18
- Height = 13
- Caption = 'Left'
- end
- object Label6: TLabel
- Left = 21
- Top = 49
- Width = 19
- Height = 13
- Caption = 'Top'
- end
- object dwidth: TEdit
- Left = 148
- Top = 19
- Width = 43
- Height = 21
- TabOrder = 2
- OnChange = dwidthChange
- OnExit = dwidthExit
- end
- object dheight: TEdit
- Left = 148
- Top = 45
- Width = 43
- Height = 21
- TabOrder = 3
- OnChange = dheightChange
- OnExit = dwidthExit
- end
- object dleft: TEdit
- Left = 47
- Top = 19
- Width = 43
- Height = 21
- TabOrder = 0
- OnChange = dleftChange
- OnExit = dwidthExit
- end
- object dtop: TEdit
- Left = 47
- Top = 45
- Width = 43
- Height = 21
- TabOrder = 1
- OnChange = dtopChange
- OnExit = dwidthExit
- end
- object cbAspect: TCheckBox
- Left = 206
- Top = 18
- Width = 101
- Height = 17
- Caption = 'Preserve Aspect'
- Checked = True
- State = cbChecked
- TabOrder = 4
- OnClick = cbAspectClick
- end
- object cbAnnotations: TCheckBox
- Left = 206
- Top = 48
- Width = 111
- Height = 17
- Caption = 'Print Annotations'
- Checked = True
- State = cbChecked
- TabOrder = 5
- OnClick = cbAnnotationsClick
- end
- end
- object rgps: TRadioGroup
- Left = 369
- Top = 241
- Width = 122
- Height = 100
- Caption = 'Position/Size'
- ItemIndex = 0
- Items.Strings = (
- 'Custom'
- 'Center'
- 'Fit Page'
- 'Fit Aspect')
- TabOrder = 5
- OnClick = rgpsClick
- end
- end
-