home *** CD-ROM | disk | FTP | other *** search
- object PrintDialog: TPrintDialog
- Left = 314
- Top = 95
- HelpContext = 102
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Print'
- ClientHeight = 339
- ClientWidth = 360
- Font.Color = clBtnText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- Position = poScreenCenter
- Scaled = False
- PixelsPerInch = 96
- TextHeight = 15
- object Group1: TGroupBox
- Left = 8
- Top = 8
- Width = 345
- Height = 41
- Caption = 'Print What'
- TabOrder = 0
- object Prompt: TLabel
- Left = 8
- Top = 17
- Width = 329
- Height = 19
- AutoSize = False
- Caption = 'Prompt'
- end
- end
- object Gropu2: TGroupBox
- Left = 8
- Top = 56
- Width = 345
- Height = 81
- Caption = 'Margins'
- TabOrder = 1
- object MLabel1: TLabel
- Left = 8
- Top = 23
- Width = 23
- Height = 15
- Caption = '&Left:'
- FocusControl = LMar
- end
- object MLabel3: TLabel
- Left = 112
- Top = 23
- Width = 32
- Height = 15
- Caption = '&Right:'
- FocusControl = RMar
- end
- object MLabel2: TLabel
- Left = 8
- Top = 51
- Width = 24
- Height = 15
- Caption = '&Top:'
- FocusControl = TMar
- end
- object MLabel4: TLabel
- Left = 112
- Top = 51
- Width = 42
- Height = 15
- Caption = '&Bottom:'
- FocusControl = BMar
- end
- object LMar: TEdit
- Left = 40
- Top = 20
- Width = 65
- Height = 20
- AutoSize = False
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 5
- ParentFont = False
- TabOrder = 0
- OnKeyPress = LMarKeyPress
- end
- object RMar: TEdit
- Left = 160
- Top = 20
- Width = 65
- Height = 20
- AutoSize = False
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 5
- ParentFont = False
- TabOrder = 1
- OnKeyPress = LMarKeyPress
- end
- object TMar: TEdit
- Left = 40
- Top = 48
- Width = 65
- Height = 20
- AutoSize = False
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 5
- ParentFont = False
- TabOrder = 2
- OnKeyPress = LMarKeyPress
- end
- object BMar: TEdit
- Left = 160
- Top = 48
- Width = 65
- Height = 20
- AutoSize = False
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- MaxLength = 5
- ParentFont = False
- TabOrder = 3
- OnKeyPress = LMarKeyPress
- end
- object Inches: TRadioButton
- Left = 248
- Top = 24
- Width = 65
- Height = 17
- Caption = '&Inches'
- TabOrder = 4
- OnClick = InchesClick
- end
- object Centimeters: TRadioButton
- Left = 248
- Top = 48
- Width = 89
- Height = 17
- Caption = 'C&entimeters'
- TabOrder = 5
- OnClick = CentimetersClick
- end
- end
- object Group3: TGroupBox
- Left = 8
- Top = 144
- Width = 345
- Height = 81
- Caption = 'Header/Footer'
- TabOrder = 2
- object Label6: TLabel
- Left = 8
- Top = 23
- Width = 44
- Height = 15
- Caption = '&Header:'
- FocusControl = Head
- end
- object Label7: TLabel
- Left = 8
- Top = 51
- Width = 38
- Height = 15
- Caption = '&Footer:'
- FocusControl = Foot
- end
- object Foot: TEdit
- Left = 56
- Top = 48
- Width = 281
- Height = 20
- AutoSize = False
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- object Head: TEdit
- Left = 56
- Top = 20
- Width = 281
- Height = 20
- AutoSize = False
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- end
- object Group4: TGroupBox
- Left = 8
- Top = 232
- Width = 345
- Height = 65
- Caption = 'Options'
- TabOrder = 3
- object Label2: TLabel
- Left = 216
- Top = 28
- Width = 46
- Height = 13
- AutoSize = False
- Caption = '&Copies:'
- FocusControl = Copies
- end
- object WrapLines: TCheckBox
- Left = 8
- Top = 40
- Width = 89
- Height = 17
- Caption = '&Wrap Lines'
- TabOrder = 1
- end
- object Copies: TEdit
- Left = 263
- Top = 26
- Width = 73
- Height = 20
- AutoSize = False
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnKeyPress = CopiesKeyPress
- end
- object PrintSelected: TCheckBox
- Left = 8
- Top = 20
- Width = 129
- Height = 17
- Caption = 'Print &Selected Text'
- TabOrder = 0
- end
- end
- object SetupButton: TBitBtn
- Left = 8
- Top = 304
- Width = 81
- Height = 28
- Caption = 'Se&tup...'
- TabOrder = 4
- OnClick = SetupButtonClick
- end
- object OkButton: TBitBtn
- Left = 96
- Top = 304
- Width = 81
- Height = 28
- Caption = 'Print'
- Default = True
- ModalResult = 1
- TabOrder = 5
- Glyph.Data = {
- 66010000424D6601000000000000760000002800000014000000140000000100
- 040000000000F000000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333300003333333333333333333300003300033333333330003300003000
- 0000000000000003000030F77777777777777703000030F77777777777777703
- 000030F77777777777997703000030FFFFFFFFFFFFFFFF030000380088888888
- 88880083000033300000000000000333000033300FFFFFFFFFF0033300003333
- 0F00000000F03333000033330FFFFFFFFFF03333000033330F00000000F03333
- 000033330FFFFFFFFFF03333000033330F00FFFFFFF03333000033330FFFFFFF
- FFF0333300003333000000000000333300003333333333333333333300003333
- 33333333333333330000}
- end
- object CancelButton: TBitBtn
- Left = 184
- Top = 304
- Width = 81
- Height = 28
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 6
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333808333
- 33333333330F833333333333330B033330003333330FB03000B03380000BFB00
- E000330FBFBFBFB0E000330087FBFBF0E000330FBFBFBFB0E000330087FBFBF0
- E000330FBFBFBFB0E000330087FBFBF0E000330FBFBFBFB0E000338000000000
- 0000333333333333333333333333333333333333333333333333}
- end
- object HelpButton: TBitBtn
- Left = 272
- Top = 304
- Width = 81
- Height = 28
- Caption = '&Help'
- TabOrder = 7
- OnClick = HelpButtonClick
- Glyph.Data = {
- 76010000424D760100000000000076000000280000001B000000100000000100
- 0400000000000001000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3300003333333330000033333333333300BFBF00333333300000333333333330
- FBF00BFB03333330000033333333330FBFBFBFBFB0333330000033333333300B
- FBFBFBFBF003333000003333333000BFBFB00FBFBF00033000003333330BF0FB
- FB0BF0FBFB0BF03000003CC330BF80BF000FBF00BF08BF0000003CC330FBF0F0
- FF00F0FF0B0BFB000000333330BF00B0F00FB0F00F00BF0000003CC3330030F0
- 000BF0000B03003000003CCC3333300F00BFBF00B00333300000333CC333330B
- FBF00BFBF03333300000CC3CC3333330BFBF0FBF033333300000CCCCC3333333
- 00FBFB003333333000003CCC3333333333000033333333300000}
- end
- object PrinterSetupDialog: TPrinterSetupDialog
- Left = 312
- Top = 8
- end
- end
-