home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 261
- Top = 97
- ActiveControl = Button1
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Copier'
- ClientHeight = 114
- ClientWidth = 269
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- Menu = MainMenu1
- PixelsPerInch = 96
- Position = poScreenCenter
- OnCreate = FormCreate
- TextHeight = 16
- object Label1: TLabel
- Left = 136
- Top = 88
- Width = 64
- Height = 16
- Alignment = taRightJustify
- Caption = '&Zoom (%):'
- FocusControl = SpinEdit1
- end
- object Label2: TLabel
- Left = 7
- Top = 88
- Width = 49
- Height = 16
- Alignment = taRightJustify
- Caption = 'Co&pies:'
- FocusControl = SpinEdit2
- end
- object Label3: TLabel
- Left = 8
- Top = 8
- Width = 257
- Height = 16
- Caption = 'Label3 '
- end
- object Button1: TButton
- Left = 82
- Top = 32
- Width = 105
- Height = 33
- Caption = '&Copy'
- TabOrder = 0
- OnClick = Button1Click
- end
- object SpinEdit1: TSpinEdit
- Left = 205
- Top = 84
- Width = 57
- Height = 26
- Increment = 10
- MaxValue = 0
- MinValue = 0
- TabOrder = 2
- Value = 100
- end
- object SpinEdit2: TSpinEdit
- Left = 61
- Top = 84
- Width = 57
- Height = 26
- MaxValue = 99
- MinValue = 1
- TabOrder = 1
- Value = 1
- end
- object Button2: TButton
- Left = 80
- Top = 120
- Width = 33
- Height = 25
- Caption = 'bmp'
- TabOrder = 3
- TabStop = False
- OnClick = Button2Click
- end
- object PrinterSetupDialog1: TPrinterSetupDialog
- Left = 23
- Top = 104
- end
- object MainMenu1: TMainMenu
- Left = 65535
- Top = 104
- object MFile: TMenuItem
- Caption = '&Settings'
- object MPrintersettings: TMenuItem
- Caption = '&Printer settings...'
- OnClick = MPrintersettingsClick
- end
- object MScannersettings: TMenuItem
- Caption = '&Scanner settings ...'
- OnClick = MScannersettingsClick
- end
- object MOptions: TMenuItem
- Caption = '&Options ...'
- OnClick = MOptionsClick
- end
- object MClose: TMenuItem
- Caption = '&Close'
- OnClick = MCloseClick
- end
- end
- object About1: TMenuItem
- Caption = '&About'
- OnClick = About1Click
- end
- end
- end
-