psdemounit.dfm

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

          Top = 56
          Width = 19
          Height = 13
          Caption = 'Size'
        end
        object lblHeaderUnins: TLabel
          Left = 8
          Top = 16
          Width = 24
          Height = 13
          Caption = 'Units'
        end
        object edtHeaderSize: TEdit
          Left = 8
          Top = 72
          Width = 65
          Height = 21
          Hint = 'Enter float value'
          TabOrder = 1
          Text = '1'
          OnChange = eveAreaChanged
          OnKeyPress = edtKeyPress
        end
        object cmbHeaderUnits: TComboBox
          Left = 8
          Top = 32
          Width = 65
          Height = 21
          Hint = 'Select units'
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
          OnClick = eveAreaChanged
          Items.Strings = (
            'Pixels'
            'Percents'
            'Inches'
            'Mms')
        end
      end
      object grbFooter: TGroupBox
        Left = 184
        Top = 104
        Width = 81
        Height = 101
        Caption = 'Footer'
        TabOrder = 3
        object lblFooterSize: TLabel
          Left = 8
          Top = 56
          Width = 19
          Height = 13
          Caption = 'Size'
        end
        object lblFooterUnits: TLabel
          Left = 8
          Top = 16
          Width = 24
          Height = 13
          Caption = 'Units'
        end
        object edtFooterSize: TEdit
          Left = 8
          Top = 72
          Width = 65
          Height = 21
          Hint = 'Enter float value'
          TabOrder = 1
          Text = '1'
          OnChange = eveAreaChanged
          OnKeyPress = edtKeyPress
        end
        object cmbFooterUnits: TComboBox
          Left = 8
          Top = 32
          Width = 65
          Height = 21
          Hint = 'Select units'
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
          OnClick = eveAreaChanged
          Items.Strings = (
            'Pixels'
            'Percents'
            'Inches'
            'Mms')
        end
      end
      object grbMargins: TGroupBox
        Left = 0
        Top = 104
        Width = 89
        Height = 141
        Caption = 'Margins'
        TabOrder = 1
        object lblMarginsLeft: TLabel
          Left = 8
          Top = 56
          Width = 19
          Height = 13
          Caption = 'Left'
        end
        object lblMarginUnits: TLabel
          Left = 8
          Top = 16
          Width = 24
          Height = 13
          Caption = 'Units'
        end
        object lblMarginsRight: TLabel
          Left = 48
          Top = 56
          Width = 25
          Height = 13
          Caption = 'Right'
        end
        object lblMarginsTop: TLabel
          Left = 8
          Top = 96
          Width = 18
          Height = 13
          Caption = 'Top'
        end
        object lblMarginsBottom: TLabel
          Left = 48
          Top = 96
          Width = 34
          Height = 13
          Caption = 'Bottom'
        end
        object edtMarginsLeft: TEdit
          Left = 8
          Top = 72
          Width = 33
          Height = 21
          Hint = 'Enter float value'
          TabOrder = 1
          Text = '1'
          OnChange = eveAreaChanged
          OnKeyPress = edtKeyPress
        end
        object cmbMarginsUnits: TComboBox
          Left = 8
          Top = 32
          Width = 73
          Height = 21
          Hint = 'Select units'
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
          OnClick = eveAreaChanged
          Items.Strings = (
            'Pixels'
            'Percents'
            'Inches'
            'Mms')
        end
        object edtMarginsRight: TEdit
          Left = 48
          Top = 72
          Width = 33
          Height = 21
          Hint = 'Enter float value'
          TabOrder = 2
          Text = '1'
          OnChange = eveAreaChanged
          OnKeyPress = edtKeyPress
        end
        object edtMarginsTop: TEdit
          Left = 8
          Top = 112
          Width = 33
          Height = 21
          Hint = 'Enter float value'
          TabOrder = 3
          Text = '1'
          OnChange = eveAreaChanged
          OnKeyPress = edtKeyPress
        end
        object edtMarginsBottom: TEdit
          Left = 48
          Top = 112
          Width = 33
          Height = 21
          Hint = 'Enter float value'
          TabOrder = 4
          Text = '1'
          OnChange = eveAreaChanged
          OnKeyPress = edtKeyPress
        end
      end
      object grbAreaLegend: TGroupBox
        Left = 96
        Top = 208
        Width = 169
        Height = 37
        Hint = 'Areas legend colors'
        Caption = 'Areas legend'
        TabOrder = 4
        object pnlHeader: TPanel
          Left = 8
          Top = 16
          Width = 49
          Height = 14
          Hint = 'Areas legend colors'
          BevelOuter = bvNone
          Caption = 'Header'
          Color = 13434828
          TabOrder = 0
        end
        object pnlPage: TPanel
          Left = 60
          Top = 16
          Width = 49
          Height = 14
          Hint = 'Areas legend colors'
          BevelOuter = bvNone
          Caption = 'Page'
          Color = 13421823
          TabOrder = 1
        end
        object pnlFooter: TPanel
          Left = 112
          Top = 16
          Width = 49
          Height = 14
          Hint = 'Areas legend colors'
          BevelOuter = bvNone
          Caption = 'Footer'
          Color = 16764108
          TabOrder = 2
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Published'
      object lblPublished: TLabel
        Left = 0
        Top = 0
        Width = 191
        Height = 39
        Hint = 'Detail information about example'
        Align = alTop
        Caption = 
          'Lists of published properties and events'#13#10'Based on TPrintJob (Pr' +
          'int Suite)'#13#10'Manual code 61 lines'
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Simplest'
      object lblSimplest: TLabel
        Left = 0
        Top = 0
        Width = 221
        Height = 39
        Hint = 'Detail information about example'
        Align = alTop
        Caption = 
          'Demonstrates simplest way to create print job'#13#10'Based on TPrintJo' +
          'b (Print Suite)'#13#10'Manual code 15 lines'
      end
      object lblPageCount: TLabel
        Left = 0
        Top = 68
        Width = 54
        Height = 13
        Hint = 'Choose page count'
        Caption = 'Page count'
      end
      object edtPageCount: TEdit
        Left = 0
        Top = 84
        Width = 69
        Height = 21
        Hint = 'Choose page count'
        ReadOnly = True
        TabOrder = 0
        Text = '3'
      end
      object udnPageCount: TUpDown
        Left = 69
        Top = 84
        Width = 15
        Height = 21
        Hint = 'Choose page count'
        Associate = edtPageCount
        Min = 1
        Position = 3
        TabOrder = 1
        OnClick = udnPageCountClick
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Rules'
      object lblRules: TLabel
        Left = 0
        Top = 0
        Width = 251
        Height = 39
        Hint = 'Detail information about example'
        Align = alTop
        Caption = 
          'Demonstrates printing of exact size graphics objects'#13#10'Based on T' +
          'PrintJob (Print Suite)'#13#10'Manual code 60 lines'
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'BioLife'
      object lblDBDetail: TLabel
        Left = 0
        Top = 0
        Width = 154
        Height = 39
        Hint = 'Detail information about example'
        Align = alTop
        Caption = 
          'Demonstrates printing database'#13#10'Based on TPrintJob (Print Suite)' +
          #13#10'Manual code 70 lines'
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'DBGrid'
      object lblDBGrid: TLabel
        Left = 0
        Top = 0
        Width = 203
        Height = 39
        Hint = 'Detail information about example'
        Align = alTop
        Caption = 
          'Demonstrates how to print database grid'#13#10'Based on TDBGridPrintJo' +
          'b (Print Suite Pro)'#13#10'Manual code 0 lines!'
      end
      object lblDBHint: TLabel
        Left = 0
        Top = 64
        Width = 206
        Height = 39
        Caption = 
          'Visibility and relative widths of grid columns'#13#10'are depended fro' +
          'm table fields settings '#13#10'stored in TTable.Fields property.'
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'SimpleTextGrid'
      object lblSimpleTextGrid: TLabel
        Left = 0
        Top = 0
        Width = 242
        Height = 39
        Hint = 'Detail information about example'
        Align = alTop
        Caption = 
          'Demonstrates how to print abstract text grid'#13#10'Based on TSimpleTe' +
          'xtGridPrintJob (Print Suite Pro)'#13#10'Manual code 7 lines'
      end
      object lblHint: TLabel
        Left = 0
        Top = 212
        Width = 231
        Height = 26
        Caption = 
          'Choose borders options by check boxes above. '#13#10'These options are' +
          ' available in all grid print jobs.'
      end
      object grbFooterBorders: TGroupBox
        Left = 140
        Top = 64
        Width = 125
        Height = 61
        Hint = 'Choose borders for printed grid'
        Caption = 'Footer cell borders'
        TabOrder = 1
        object chbFLeft: TCheckBox
          Left = 12
          Top = 16
          Width = 45
          Height = 17
          Hint = 'Choose borders for printed grid'
          Caption = 'Left'
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = chbBorderClick
        end
        object chbFRight: TCheckBox
          Left = 60
          Top = 16
          Width = 57
          Height = 17
          Hint = 'Choose borders for printed grid'
          Caption = 'Right'
          Checked = True
          State = cbChecked
          TabOrder = 1
          OnClick = chbBorderClick
        end