home *** CD-ROM | disk | FTP | other *** search
- object printform: Tprintform
- Left = 341
- Top = 635
- HelpContext = 418
- BorderStyle = bsDialog
- Caption = 'Print'
- ClientHeight = 407
- ClientWidth = 648
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- ShowHint = True
- OnCreate = FormCreate
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Button2: TButton
- Left = 370
- Top = 364
- Width = 89
- Height = 25
- Caption = 'Print'
- Default = True
- ModalResult = 1
- TabOrder = 0
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 466
- Top = 364
- Width = 89
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object Button5: TButton
- Left = 568
- Top = 364
- Width = 73
- Height = 25
- HelpContext = 418
- Caption = 'Help'
- TabOrder = 3
- OnClick = Button5Click
- end
- inline printFrame1: TprintFrame
- Left = 4
- Top = 4
- Width = 357
- Height = 401
- TabOrder = 4
- inherited GroupBox1: TGroupBox
- Width = 357
- Height = 401
- inherited ie: timageenlayer
- LayerWidth = 42970004
- LayerHeight = 42970004
- end
- inherited Panel1: TPanel
- Top = 345
- Width = 353
- inherited CheckBox1: TCheckBox
- Checked = True
- State = cbChecked
- end
- end
- end
- end
- object PageControl2: TPageControl
- Left = 368
- Top = 8
- Width = 269
- Height = 329
- Hint = 'Here you can change the options of your printer'
- ActivePage = TabSheet4
- HotTrack = True
- TabOrder = 2
- object TabSheet4: TTabSheet
- Caption = 'Graphic'
- object SpeedButton2: TSpeedButton
- Tag = 1
- Left = 70
- Top = 220
- Width = 103
- Height = 21
- Hint = 'The image will be printed as big as possible'
- AllowAllUp = True
- GroupIndex = 10
- Caption = 'Full (Fit)'
- Transparent = False
- OnClick = directionframe1Click
- end
- object SpeedButton3: TSpeedButton
- Tag = 2
- Left = 70
- Top = 240
- Width = 103
- Height = 21
- Hint =
- 'The image will be scaled so that it fills the area complete. '#13#10 +
- ' Border parts of the image could get lost.'
- AllowAllUp = True
- GroupIndex = 10
- Caption = 'Full (Cut)'
- Transparent = False
- OnClick = directionframe1Click
- end
- object SpeedButton4: TSpeedButton
- Tag = 3
- Left = 70
- Top = 260
- Width = 103
- Height = 21
- Hint = 'Take Original Size'
- AllowAllUp = True
- GroupIndex = 10
- Down = True
- Caption = 'Original Size'
- Transparent = False
- OnClick = directionframe1Click
- end
- inline directionframe1: Tdirectionframe
- Left = 6
- Top = 220
- Width = 63
- Hint = 'Here you can set an anchor for the image.'
- AutoSize = False
- TabOrder = 2
- OnClick = directionframe1Click
- inherited SpeedButton5: TSpeedButton
- Down = True
- Font.Color = clMaroon
- Font.Style = [fsBold]
- ParentFont = False
- end
- end
- object Button7: TButton
- Left = 192
- Top = 240
- Width = 45
- Height = 21
- Hint = 'Half Size'
- Caption = '/ 2'
- TabOrder = 4
- OnClick = Button6Click
- end
- object Button6: TButton
- Left = 192
- Top = 220
- Width = 45
- Height = 21
- Hint = 'Double Size'
- Caption = 'x 2'
- TabOrder = 3
- OnClick = Button6Click
- end
- object GroupBox1: TGroupBox
- Left = 4
- Top = 12
- Width = 249
- Height = 81
- Hint =
- 'Enter the distance the image should have '#13#10'from the upper left ' +
- 'corner.'
- Caption = 'Distance'
- TabOrder = 0
- object Label21: TmyRxLabel
- Left = 26
- Top = 16
- Width = 27
- Height = 13
- Caption = 'Left'
- Layout = tlCenter
- ShadowSize = 0
- end
- object Label22: TmyRxLabel
- Left = 22
- Top = 40
- Width = 28
- Height = 13
- Caption = 'Top'
- Layout = tlCenter
- ShadowSize = 0
- end
- object CheckBox15: TCheckBox
- Left = 64
- Top = 60
- Width = 169
- Height = 17
- Hint =
- 'When the distance from the border should be taken '#13#10'instead of f' +
- 'rom the printable area.'
- Caption = 'Include borders in calculation.'
- TabOrder = 0
- OnClick = updatepreview
- end
- inline converterframe1: Tconverterframe
- Left = 68
- Top = 12
- TabOrder = 1
- OnClick = converterframe1Click
- inherited formstorage1: tformstorage1
- StoredProps.Strings = ()
- end
- end
- inline converterframe2: Tconverterframe
- Left = 68
- Top = 36
- TabOrder = 2
- OnClick = converterframe1Click
- end
- end
- inline sizeframe1: Tsizeframe
- Left = 4
- Top = 108
- Width = 249
- Height = 97
- AutoSize = False
- TabOrder = 1
- inherited GroupBox1: TGroupBox
- Width = 249
- Height = 97
- Hint = 'Enter here the size of the image it should be printed.'
- Align = alClient
- inherited Label3: TmyRxLabel
- Visible = False
- end
- inherited sizespecialform1: Tsizespecialform
- Left = 30
- Top = 70
- Width = 57
- end
- inherited framedpispecialform1: Tframedpispecialform
- Width = 57
- Height = 17
- end
- inherited dpiframeform1: Tdpiframeform
- Visible = False
- end
- end
- end
- end
- object TabSheet7: TTabSheet
- Hint =
- 'Here you can set additional information that is to be printed wi' +
- 'th the image.'
- Caption = 'Info'
- ImageIndex = 3
- object Label36: TmyRxLabel
- Left = 12
- Top = 192
- Width = 59
- Height = 13
- Caption = 'Font Size'
- ShadowSize = 0
- end
- object CheckBox10: TCheckBox
- Left = 12
- Top = 220
- Width = 89
- Height = 17
- Caption = 'Cut Lines'
- TabOrder = 3
- OnClick = updatepreview
- end
- object RxSpinEdit8: TRxSpinEdit
- Left = 76
- Top = 188
- Width = 49
- Height = 21
- MaxValue = 9999
- MinValue = 1
- Value = 1
- TabOrder = 1
- OnChange = RxSpinEdit8Change
- end
- object tgrafikformat1: tgrafikformat
- Left = 8
- Top = 12
- Width = 229
- Height = 161
- Caption = 'Additional Information'
- TabOrder = 0
- Kind = imageinfo
- ImageInfoset = []
- FileFormatset = []
- OnChecklistChange = tgrafikformat1ChecklistChange
- end
- object Button9: TButton
- Left = 136
- Top = 188
- Width = 97
- Height = 21
- Caption = 'Font-Settings'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = Button9Click
- end
- end
- object TabSheet5: TTabSheet
- Caption = 'Printer'
- ImageIndex = 3
- object Label23: TmyRxLabel
- Left = 6
- Top = 12
- Width = 43
- Height = 13
- Alignment = taRightJustify
- Caption = 'Printer:'
- Layout = tlCenter
- ShadowSize = 0
- end
- object Label24: TmyRxLabel
- Left = 56
- Top = 12
- Width = 201
- Height = 25
- AutoSize = False
- Caption = 'Label4'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ShadowSize = 0
- WordWrap = True
- end
- object Label30: TmyRxLabel
- Left = 64
- Top = 44
- Width = 30
- Height = 13
- Caption = 'label'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Layout = tlCenter
- ParentFont = False
- ShadowSize = 0
- end
- object Label31: TmyRxLabel
- Left = 6
- Top = 44
- Width = 52
- Height = 13
- Alignment = taRightJustify
- Caption = 'Resolution:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = tlCenter
- ParentFont = False
- ShadowSize = 0
- end
- object Label32: TmyRxLabel
- Left = 70
- Top = 256
- Width = 90
- Height = 13
- Caption = 'Number of Prints'
- Layout = tlCenter
- ShadowSize = 0
- end
- object Button8: TButton
- Left = 8
- Top = 276
- Width = 121
- Height = 21
- Caption = 'Print-Options...'
- TabOrder = 4
- OnClick = Button8Click
- end
- object GroupBox3: TGroupBox
- Left = 20
- Top = 144
- Width = 197
- Height = 105
- Caption = 'Page Border'
- TabOrder = 1
- object Label19: TmyRxLabel
- Left = 9
- Top = 20
- Width = 27
- Height = 13
- Caption = 'Left'
- Layout = tlCenter
- ShadowSize = 0
- end
- object Label20: TmyRxLabel
- Left = 48
- Top = 20
- Width = 41
- Height = 13
- Caption = 'Label6'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ShadowSize = 0
- end
- object Label29: TmyRxLabel
- Left = 9
- Top = 59
- Width = 28
- Height = 13
- Caption = 'Top'
- Layout = tlCenter
- ShadowSize = 0
- end
- object Label37: TmyRxLabel
- Left = 48
- Top = 59
- Width = 41
- Height = 13
- Caption = 'Label6'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ShadowSize = 0
- end
- object Label38: TmyRxLabel
- Left = 9
- Top = 40
- Width = 36
- Height = 13
- Caption = 'Right'
- Layout = tlCenter
- ShadowSize = 0
- end
- object Label39: TmyRxLabel
- Left = 48
- Top = 40
- Width = 41
- Height = 13
- Caption = 'Label6'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ShadowSize = 0
- end
- object Label40: TmyRxLabel
- Left = 9
- Top = 79
- Width = 31
- Height = 13
- Caption = 'Bottom'
- Layout = tlCenter
- ShadowSize = 0
- end
- object Label41: TmyRxLabel
- Left = 48
- Top = 79
- Width = 41
- Height = 13
- Caption = 'Label6'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ShadowSize = 0
- end
- object mycombobox4: mycombobox
- Left = 116
- Top = 16
- Width = 57
- Height = 21
- Style = csDropDownList
- Color = clBtnFace
- ItemHeight = 13
- TabOrder = 0
- OnClick = ComboBox12Change
- Itemindex = -1
- end
- object mycombobox5: mycombobox
- Left = 116
- Top = 36
- Width = 57
- Height = 21
- Style = csDropDownList
- Color = clBtnFace
- ItemHeight = 13
- TabOrder = 1
- OnClick = ComboBox12Change
- Itemindex = -1
- end
- object mycombobox6: mycombobox
- Left = 116
- Top = 56
- Width = 57
- Height = 21
- Style = csDropDownList
- Color = clBtnFace
- ItemHeight = 13
- TabOrder = 2
- OnClick = ComboBox12Change
- Itemindex = -1
- end
- object mycombobox7: mycombobox
- Left = 116
- Top = 76
- Width = 57
- Height = 21
- Style = csDropDownList
- Color = clBtnFace
- ItemHeight = 13
- TabOrder = 3
- OnClick = ComboBox12Change
- Itemindex = -1
- end
- end
- object GroupBox4: TGroupBox
- Left = 20
- Top = 68
- Width = 197
- Height = 65
- Caption = 'Printable Area'
- TabOrder = 2
- object Label25: TmyRxLabel
- Left = 10
- Top = 20
- Width = 29
- Height = 13
- Alignment = taRightJustify
- Caption = 'Width'
- Layout = tlCenter
- ShadowSize = 0
- end
- object Label26: TmyRxLabel
- Left = 44
- Top = 20
- Width = 41
- Height = 13
- Caption = 'Label6'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ShadowSize = 0
- end
- object Label27: TmyRxLabel
- Left = 10
- Top = 40
- Width = 28
- Height = 13
- Alignment = taRightJustify
- Caption = 'Height'
- Layout = tlCenter
- ShadowSize = 0
- end
- object Label28: TmyRxLabel
- Left = 44
- Top = 40
- Width = 41
- Height = 13
- Caption = 'Label6'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ShadowSize = 0
- end
- object mycombobox2: mycombobox
- Left = 112
- Top = 16
- Width = 57
- Height = 21
- Style = csDropDownList
- Color = clBtnFace
- ItemHeight = 13
- TabOrder = 0
- OnClick = ComboBox12Change
- Itemindex = -1
- end
- object mycombobox3: mycombobox
- Left = 112
- Top = 36
- Width = 57
- Height = 21
- Style = csDropDownList
- Color = clBtnFace
- ItemHeight = 13
- TabOrder = 1
- OnClick = ComboBox12Change
- Itemindex = -1
- end
- end
- object mycombobox1: mycombobox
- Left = 128
- Top = 40
- Width = 97
- Height = 21
- Style = csDropDownList
- Color = clBtnFace
- ItemHeight = 13
- TabOrder = 0
- OnClick = ComboBox12Change
- Itemindex = -1
- end
- object RxSpinEdit5: TRxSpinEdit
- Left = 168
- Top = 252
- Width = 49
- Height = 21
- MaxValue = 10000
- MinValue = 1
- Value = 1
- TabOrder = 3
- end
- end
- end
- object PrinterSetupDialog1: TPrinterSetupDialog
- Left = 548
- Top = 376
- end
- object FontDialog1: TFontDialog
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -51
- Font.Name = 'Times New Roman'
- Font.Style = []
- MinFontSize = 0
- MaxFontSize = 0
- Left = 592
- Top = 376
- end
- object tformstorage11: tformstorage1
- IniFileName = '\software\PicMaster\storage'
- UseRegistry = True
- StoredProps.Strings = (
- 'CheckBox10.Checked'
- 'tgrafikformat1.ImageInfoset'
- 'FontDialog1.Font'
- 'mycombobox1.Itemindex'
- 'mycombobox2.Itemindex'
- 'mycombobox3.Itemindex'
- 'mycombobox4.Itemindex'
- 'mycombobox5.Itemindex'
- 'mycombobox6.Itemindex'
- 'mycombobox7.Itemindex')
- StoredValues = <>
- AllwaysSave = False
- Left = 508
- Top = 376
- end
- object MDIWallpaper11: TMDIWallpaper1
- TileWidth = 0
- TileHeight = 0
- dialogImage = False
- Left = 432
- Top = 380
- ClientIsOwnerForm = True
- end
- object MDIWallpaper12: TMDIWallpaper1
- TileWidth = 0
- TileHeight = 0
- dialogImage = True
- Left = 476
- Top = 376
- end
- end
-