psdemounit.dfm

GREATIS Print Suite Pro for Delphi (3-7,2005,2006,2007) and C++ Builder (3-6) Set of components for

object frmMain: TfrmMain
  Left = 28
  Top = 97
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Greatis Print Suite for Delphi and C++ Builder Demo'
  ClientHeight = 432
  ClientWidth = 660
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = True
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lblCategory: TLabel
    Left = 8
    Top = 4
    Width = 79
    Height = 13
    Caption = 'Choose print job'
  end
  object pnlPreview: TPanel
    Left = 290
    Top = 0
    Width = 370
    Height = 432
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 2
    object pstMain: TPreviewToolbar
      Left = 0
      Top = 0
      Width = 370
      Height = 26
      Hint = 'Preview toolbar'
      Preview = Preview
      Buttons = [btnPrint, btnPrintDialog, btnPrinterSetupDialog, btnFirstPage, btnPrevPage, btnNextPage, btnLastPage, btnZoomOut, btnZoomIn, btnRefresh, btnUser]
      UserButtonGlyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333300
        33333333333330E00333330000000E0C003333077770E0C77033330FFF0E0C7F
        703333000800C7FF7033307E70887FFF70330FE7E707FFFF70330EFE7E07FFFF
        70330FEFE707FFFF703330FEF07FFFFF7033330007FFFFFF7033330FFFFFFF00
        0033330FFFFFFF0F0333330FFFFFFF0033333300000000033333}
      UserButtonHint = 'Open preview window'
      OnUserButtonClick = pstMainUserButtonClick
      ParentShowHint = False
      ShowHint = True
    end
    object Preview: TPreview
      Left = 0
      Top = 26
      Width = 370
      Height = 386
      Hint = 'Preview control'
      PrintJob = psjAbout
      Color = clBackground
      ScrollTracking = True
      DragScroll = True
      Align = alClient
      TabStop = True
      TabOrder = 0
    end
    object pssMain: TPreviewStatusBar
      Left = 0
      Top = 412
      Width = 370
      Height = 20
      Hint = 'Preview status bar'
      Preview = Preview
      SizeGrip = False
    end
  end
  object lsbMain: TListBox
    Left = 8
    Top = 20
    Width = 265
    Height = 95
    Hint = 'Choose print job for print and preview'
    ItemHeight = 13
    Items.Strings = (
      'About Greatis Print Suite'
      'Preview properties'
      'Print job page areas'
      'Published interface of Print Suite components'
      'Simplest realization of print job'
      'Exact size graphics printing'
      'Database detail printing - one record in one page'
      'Database printing in grid mode'
      'Simplest text grid printing'
      'Simplest graphic grid printing'
      'TStringGrid contents printing'
      'TListView contents printing'
      'TStrings printing'
      'TRichEdit printing'
      'Bitmaps printing'
      'TImageList printing'
      'Multi-job printing'
      'Draft printing')
    TabOrder = 0
    OnClick = lsbMainClick
  end
  object ntbMain: TNotebook
    Left = 8
    Top = 120
    Width = 265
    Height = 297
    TabOrder = 1
    object TPage
      Left = 0
      Top = 0
      Caption = 'About'
      object lblInfo: TLabel
        Left = 0
        Top = 129
        Width = 265
        Height = 13
        Align = alTop
        Alignment = taCenter
        Caption = 'Print and Print Preview Components'
      end
      object lblCopyright: TLabel
        Left = 0
        Top = 142
        Width = 265
        Height = 13
        Align = alTop
        Alignment = taCenter
        Caption = 'Copyright (c) 2001-2007 Greatis Software'
      end
      object lblWeb: TLabel
        Left = 0
        Top = 155
        Width = 265
        Height = 26
        Cursor = crHandPoint
        Hint = 'Click to visit home page'
        Align = alTop
        Alignment = taCenter
        Caption = #13#10'http://www.greatis.com/delphicb/printsuite/'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = 12582912
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsUnderline]
        ParentFont = False
        ShowAccelChar = False
        OnClick = lblLinkClick
      end
      object pnlMargin: TPanel
        Left = 0
        Top = 0
        Width = 265
        Height = 73
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object lblAbout: TLabel
          Left = 0
          Top = 0
          Width = 265
          Height = 39
          Hint = 'Detail information about example'
          Align = alTop
          Caption = 
            'Information about Print Suite'#13#10'Based on TPrintJob (Print Suite)'#13 +
            #10'Manual code 43 lines'
        end
        object bvlMargin: TBevel
          Left = 0
          Top = 56
          Width = 265
          Height = 17
          Align = alBottom
          Shape = bsTopLine
        end
      end
      object pnlName: TPanel
        Left = 0
        Top = 73
        Width = 265
        Height = 56
        Align = alTop
        Alignment = taRightJustify
        BevelOuter = bvNone
        Caption = 'Greatis Print Suite'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -24
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object imgIcon: TImage
          Left = 0
          Top = 0
          Width = 32
          Height = 56
          Align = alLeft
          AutoSize = True
          Center = True
          Picture.Data = {07544269746D617000000000}
          Transparent = True
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Preview'
      object lblPreviewTitle: TLabel
        Left = 0
        Top = 8
        Width = 157
        Height = 13
        Caption = 'TPreview control properties'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblPreviewColor: TLabel
        Left = 16
        Top = 40
        Width = 25
        Height = 13
        Hint = 'Background color'
        Caption = 'Color'
      end
      object lblPreviewShadowColor: TLabel
        Left = 16
        Top = 60
        Width = 38
        Height = 13
        Hint = 'Shadow color'
        Caption = 'Shadow'
      end
      object lblPreviewShadowSize: TLabel
        Left = 16
        Top = 88
        Width = 59
        Height = 13
        Caption = 'Shadow size'
      end
      object pnlPreviewColor: TPanel
        Left = 64
        Top = 40
        Width = 37
        Height = 17
        Hint = 'Background color'
        BevelOuter = bvNone
        BorderStyle = bsSingle
        Color = clGray
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 0
      end
      object btnPreviewColor: TButton
        Left = 104
        Top = 40
        Width = 17
        Height = 17
        Hint = 'Background color'
        Caption = '...'
        TabOrder = 1
        OnClick = btnPreviewColorClick
      end
      object pnlPreviewShadowColor: TPanel
        Left = 64
        Top = 60
        Width = 37
        Height = 17
        Hint = 'Shadow color'
        BevelOuter = bvNone
        BorderStyle = bsSingle
        Color = 4210752
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 2
      end
      object btnPreviewShadowColor: TButton
        Left = 104
        Top = 60
        Width = 17
        Height = 17
        Hint = 'Shadow color'
        Caption = '...'
        TabOrder = 3
        OnClick = btnPreviewColorClick
      end
      object chbPreviewScrollTracking: TCheckBox
        Left = 144
        Top = 38
        Width = 97
        Height = 17
        Hint = 'Scrolling before the thumb release'
        Caption = 'Scroll tracking'
        Checked = True
        State = cbChecked
        TabOrder = 4
        OnClick = evePreviewChange
      end
      object chbPreviewDragScroll: TCheckBox
        Left = 144
        Top = 58
        Width = 97
        Height = 17
        Hint = 'Scrolling by sheet dragging'
        Caption = 'Drag scroll'
        Checked = True
        State = cbChecked
        TabOrder = 5
        OnClick = evePreviewChange
      end
      object edtPreviewShadowSize: TEdit
        Left = 16
        Top = 104
        Width = 105
        Height = 21
        MaxLength = 3
        TabOrder = 6
        Text = '8'
        OnChange = evePreviewChange
        OnKeyPress = edtKeyPress
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Areas'
      object lblAreas: TLabel
        Left = 0
        Top = 0
        Width = 265
        Height = 39
        Hint = 'Detail information about example'
        Align = alTop
        Caption = 
          'Demonstrates page areas'#13#10'Based on TPrintJob (Print Suite)'#13#10'Manua' +
          'l code 12 lines'
      end
      object lblAreaHint: TLabel
        Left = 0
        Top = 260
        Width = 176
        Height = 13
        Caption = 'You can enter float value in any field'
      end
      object grbAreasOptions: TGroupBox
        Left = 0
        Top = 60
        Width = 265
        Height = 37
        Caption = 'Options'
        TabOrder = 0
        object chbHeader: TCheckBox
          Left = 100
          Top = 14
          Width = 77
          Height = 17
          Hint = 'Select Options property'
          Caption = 'joHeader'
          Checked = True
          State = cbChecked
          TabOrder = 1
          OnClick = eveAreaChanged
        end
        object chbFooter: TCheckBox
          Left = 192
          Top = 14
          Width = 69
          Height = 17
          Hint = 'Select Options property'
          Caption = 'joFooter'
          Checked = True
          State = cbChecked
          TabOrder = 2
          OnClick = eveAreaChanged
        end
        object chbMargins: TCheckBox
          Left = 8
          Top = 14
          Width = 73
          Height = 17
          Hint = 'Select Options property'
          Caption = 'joMargins'
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = eveAreaChanged
        end
      end
      object grbHeader: TGroupBox
        Left = 96
        Top = 104
        Width = 81
        Height = 101
        Caption = 'Header'
        TabOrder = 2
        object lblHeaderSize: TLabel
          Left = 8