psdemounit.dfm

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

        object chbFTop: TCheckBox
          Left = 12
          Top = 36
          Width = 45
          Height = 17
          Hint = 'Choose borders for printed grid'
          Caption = 'Top'
          Checked = True
          State = cbChecked
          TabOrder = 2
          OnClick = chbBorderClick
        end
        object chbFBottom: TCheckBox
          Left = 60
          Top = 36
          Width = 61
          Height = 17
          Hint = 'Choose borders for printed grid'
          Caption = 'Bottom'
          Checked = True
          State = cbChecked
          TabOrder = 3
          OnClick = chbBorderClick
        end
      end
      object grbHeaderBorders: TGroupBox
        Left = 0
        Top = 64
        Width = 125
        Height = 61
        Hint = 'Choose borders for printed grid'
        Caption = 'Header cell borders'
        TabOrder = 0
        object chbHLeft: TCheckBox
          Left = 12
          Top = 16
          Width = 45
          Height = 17
          Hint = 'Choose borders for printed grid'
          Caption = 'Left'
          TabOrder = 0
          OnClick = chbBorderClick
        end
        object chbHRight: 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
        object chbHTop: TCheckBox
          Left = 12
          Top = 36
          Width = 45
          Height = 17
          Hint = 'Choose borders for printed grid'
          Caption = 'Top'
          Checked = True
          State = cbChecked
          TabOrder = 2
          OnClick = chbBorderClick
        end
        object chbHBottom: TCheckBox
          Left = 60
          Top = 36
          Width = 61
          Height = 17
          Hint = 'Choose borders for printed grid'
          Caption = 'Bottom'
          TabOrder = 3
          OnClick = chbBorderClick
        end
      end
      object grbPageBorders: TGroupBox
        Left = 0
        Top = 136
        Width = 125
        Height = 61
        Hint = 'Choose borders for printed grid'
        Caption = 'Page cell borders'
        TabOrder = 2
        object chbPLeft: TCheckBox
          Left = 12
          Top = 16
          Width = 45
          Height = 17
          Hint = 'Choose borders for printed grid'
          Caption = 'Left'
          TabOrder = 0
          OnClick = chbBorderClick
        end
        object chbPRight: 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
        object chbPTop: TCheckBox
          Left = 12
          Top = 36
          Width = 45
          Height = 17
          Hint = 'Choose borders for printed grid'
          Caption = 'Top'
          Checked = True
          State = cbChecked
          TabOrder = 2
          OnClick = chbBorderClick
        end
        object chbPBottom: TCheckBox
          Left = 60
          Top = 36
          Width = 61
          Height = 17
          Hint = 'Choose borders for printed grid'
          Caption = 'Bottom'
          TabOrder = 3
          OnClick = chbBorderClick
        end
      end
      object grbTableBorders: TGroupBox
        Left = 140
        Top = 136
        Width = 125
        Height = 61
        Hint = 'Choose borders for printed grid'
        Caption = 'Table borders'
        TabOrder = 3
        object chbTLeft: 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 chbTRight: TCheckBox
          Left = 60
          Top = 16
          Width = 57
          Height = 17
          Hint = 'Choose borders for printed grid'
          Caption = 'Right'
          TabOrder = 1
          OnClick = chbBorderClick
        end
        object chbTTop: TCheckBox
          Left = 12
          Top = 36
          Width = 45
          Height = 17
          Hint = 'Choose borders for printed grid'
          Caption = 'Top'
          TabOrder = 2
          OnClick = chbBorderClick
        end
        object chbTBottom: TCheckBox
          Left = 60
          Top = 36
          Width = 61
          Height = 17
          Hint = 'Choose borders for printed grid'
          Caption = 'Bottom'
          Checked = True
          State = cbChecked
          TabOrder = 3
          OnClick = chbBorderClick
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'SimpleGrid'
      object lblSimpleGrid: TLabel
        Left = 0
        Top = 0
        Width = 220
        Height = 39
        Hint = 'Detail information about example'
        Align = alTop
        Caption = 
          'Demonstrates how to print abstract grid'#13#10'Based on TSimpleGridPri' +
          'ntJob (Print Suite Pro)'#13#10'Manual code 64 lines'
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'StringGrid'
      object lblStringGrid: TLabel
        Left = 0
        Top = 0
        Width = 218
        Height = 39
        Hint = 'Detail information about example'
        Align = alTop
        Caption = 
          'Simplest way to print TStringGrid contents'#13#10'Based on TStringGrid' +
          'PrintJob (Print Suite Pro)'#13#10'Manual code 0 lines!'
      end
      object lblStringGridColumns: TLabel
        Left = 0
        Top = 252
        Width = 158
        Height = 26
        Caption = 'Move/resize grid columns as you '#13#10'need then press Update button'
      end
      object stgProducts: TStringGrid
        Left = 0
        Top = 65
        Width = 265
        Height = 120
        Hint = 'String grid'
        Align = alTop
        ColCount = 2
        DefaultRowHeight = 16
        FixedCols = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goColMoving]
        TabOrder = 0
        ColWidths = (
          84
          161)
      end
      object pnlStringGridMargin: TPanel
        Left = 0
        Top = 39
        Width = 265
        Height = 26
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
      end
      object btnStringGridUpdate: TButton
        Left = 188
        Top = 252
        Width = 77
        Height = 25
        Hint = 'Click here to apply updates'
        Caption = 'Update'
        TabOrder = 2
        OnClick = btnStringGridUpdateClick
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'ListView'
      object lblListView: TLabel
        Left = 0
        Top = 0
        Width = 265
        Height = 39
        Hint = 'Detail information about example'
        Align = alTop
        Caption = 
          'Simplest way to print TListView contents'#13#10'Based on TListViewPrin' +
          'tJob (Print Suite Pro)'#13#10'Manual code 0 lines!'
      end
      object lblListViewUpdate: TLabel
        Left = 0
        Top = 252
        Width = 153
        Height = 26
        Caption = 'Resize list columns as you need '#13#10'then press Update button'
      end
      object pnlListView: TPanel
        Left = 0
        Top = 39
        Width = 265
        Height = 26
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
      end
      object lsvDemo: TListView
        Left = 0
        Top = 65
        Width = 265
        Height = 125
        Hint = 'List view'
        Align = alTop
        Columns = <
          item
            Caption = 'Product'
            Width = 100
          end
          item
            Caption = 'Description'
            Width = 200
          end>
        HideSelection = False
        Items.Data = {
          010100000400000000000000FFFFFFFFFFFFFFFF01000000000000000B507269
          6E7420537569746521436F6D706F6E656E747320666F72207072696E74207769
          7468207072657669657701000000FFFFFFFFFFFFFFFF01000000000000000D46
          6F726D2044657369676E65721552756E74696D6520666F726D2064657369676E
          657202000000FFFFFFFFFFFFFFFF0100000000000000104F626A65637420496E
          73706563746F721A496E73706563746F7220636F6D706F6E656E747320737569
          746503000000FFFFFFFFFFFFFFFF01000000000000000857696E446F77736519
          416476616E6365642057696E646F777320616E616C79736572FFFFFFFFFFFFFF
          FF}
        LargeImages = imlLarge
        MultiSelect = True
        SmallImages = imlSmall
        TabOrder = 1
        ViewStyle = vsReport
        OnEditing = lsvDemoEditing
      end
      object btnListViewUpdate: TButton
        Left = 188
        Top = 252
        Width = 77
        Height = 25
        Hint = 'Click here to apply updates'
        Caption = 'Update'
        TabOrder = 2
        OnClick = btnListViewUpdateClick
      end
      object chbListViewSelectedOnly: TCheckBox
        Left = 0
        Top = 200
        Width = 153
        Height = 17
        Caption = 'Print only selected items'
        TabOrder = 3
        OnClick = chbListViewSelectedOnlyClick
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'StringsPrint'
      object lblStrings: TLabel
        Left = 0
        Top = 0
        Width = 240
        Height = 39
        Hint = 'Detail information about example'
        Align = alTop
        Caption = 
          'Simplest way to print text file or TStrings contents'#13#10'Based on T' +
          'StringsPrintJob (Print Suite Pro)'#13#10'Manual code 0 lines!'
      end
      object lblStringsInstructions: TLabel
        Left = 0
        Top = 48
        Width = 210
        Height = 26
        Caption = 
          'Enter text (press Update after entering) or '#13#10'load it from file,' +
          ' choose font, then print.'
      end
      object memStrings: TMemo
        Left = 0
        Top = 140
        Width = 265
        Height = 149
        Hint = 'Enter text or load it from file'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 4
      end
      object btnLoad: TButton
        Left = 0
        Top = 84
        Width = 77
        Height = 25
        Hint = 'Load text file to print'
        Caption = 'Load text...'
        TabOrder = 0
        OnClick = btnLoadClick
      end
      object btnFont: TButton
        Left = 84
        Top = 84
        Width = 97
        Height = 25
        Hint = 'Choose font for text printing'
        Caption = 'Choose font...'
        TabOrder = 1
        OnClick = btnFontClick
      end
      object btnUpdate: TButton
        Left = 188
        Top = 84
        Width = 77
        Height = 25
        Hint = 'Click here to apply updates'
        Caption = 'Update'