home *** CD-ROM | disk | FTP | other *** search
- object PrintForm: TPrintForm
- Left = 200
- Top = 104
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Bild drucken...'
- ClientHeight = 328
- 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
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object RxLabel1: TRxLabel
- Left = 16
- Top = 0
- Width = 50
- Height = 13
- Caption = 'Vorschau:'
- end
- object Bevel1: TBevel
- Left = 0
- Top = 264
- Width = 427
- Height = 16
- Shape = bsBottomLine
- end
- object OkBitBtn1: TBitBtn
- Left = 29
- Top = 296
- Width = 89
- Height = 25
- Caption = '&OK'
- TabOrder = 0
- Kind = bkOK
- end
- object CancelBitBtn2: TBitBtn
- Left = 309
- Top = 296
- Width = 89
- Height = 25
- Caption = 'A&bbrechen'
- TabOrder = 1
- Kind = bkCancel
- end
- object Panel1: TPanel
- Left = 16
- Top = 24
- Width = 200
- Height = 225
- BevelOuter = bvLowered
- TabOrder = 2
- object PrintPaintBox: TPaintBox
- Left = 4
- Top = 17
- Width = 190
- Height = 190
- Color = clBtnFace
- ParentColor = False
- OnPaint = PrintPaintBoxPaint
- end
- end
- object PrintSetupBtn: TBitBtn
- Left = 125
- Top = 296
- Width = 177
- Height = 25
- Caption = 'Drucker &einrichten...'
- TabOrder = 3
- OnClick = PrintSetupBtnClick
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
- 0003377777777777777308888888888888807F33333333333337088888888888
- 88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
- 8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
- 8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
- 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
- 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
- 33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
- 33333337FFFF7733333333300000033333333337777773333333}
- NumGlyphs = 2
- end
- object GroupBox1: TGroupBox
- Left = 232
- Top = 24
- Width = 185
- Height = 129
- Caption = 'Druckgr��e'
- TabOrder = 4
- object RxLabel2: TRxLabel
- Left = 16
- Top = 72
- Width = 54
- Height = 13
- Caption = 'Breite in %:'
- end
- object RxLabel3: TRxLabel
- Left = 16
- Top = 96
- Width = 53
- Height = 13
- Caption = 'H�he in %:'
- end
- object UseFullCheck: TRadioButton
- Left = 16
- Top = 24
- Width = 113
- Height = 17
- Caption = 'Seite voll nutzen'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = PrintPaintBoxPaint
- end
- object UserdefCheck: TRadioButton
- Left = 16
- Top = 48
- Width = 113
- Height = 17
- Caption = 'Benutzerdefiniert'
- TabOrder = 1
- OnClick = UserdefCheckClick
- end
- object BreitEdit: TSpinEdit
- Left = 80
- Top = 72
- Width = 89
- Height = 22
- MaxValue = 100
- MinValue = 1
- TabOrder = 2
- Value = 50
- OnChange = BreitEditChange
- end
- end
- object GroupBox2: TGroupBox
- Left = 232
- Top = 160
- Width = 185
- Height = 89
- Caption = 'Druckoptionen'
- TabOrder = 5
- object SverhCheck: TCheckBox
- Left = 8
- Top = 24
- Width = 169
- Height = 17
- Caption = 'Seitenverh�ltnis beibehalten'
- Checked = True
- State = cbChecked
- TabOrder = 0
- OnClick = PrintPaintBoxPaint
- end
- object ZentrCheck: TCheckBox
- Left = 8
- Top = 48
- Width = 161
- Height = 17
- Caption = 'Zentrierte Ausgabe'
- Checked = True
- State = cbChecked
- TabOrder = 1
- OnClick = PrintPaintBoxPaint
- end
- end
- object HochEdit: TSpinEdit
- Left = 312
- Top = 120
- Width = 89
- Height = 22
- MaxValue = 100
- MinValue = 1
- TabOrder = 6
- Value = 50
- OnChange = HochEditChange
- end
- object FormStorage1: TFormStorage
- Options = [fpState]
- UseRegistry = True
- StoredProps.Strings = (
- 'UseFullCheck.Alignment'
- 'UserdefCheck.Alignment'
- 'ZentrCheck.Alignment'
- 'SverhCheck.Alignment'
- 'BreitEdit.Value'
- 'HochEdit.Value')
- StoredValues = <>
- Top = 288
- end
- object PrinterSetupDialog1: TPrinterSetupDialog
- Left = 312
- Top = 248
- end
- end
-