PC World Komputer 1997 May/Pcwk0597.iso/delphi/cbsuite.lzh/SU1SRC.ZIP/FDEMO13.DFM/FDEMO13.txt

Text File | 1996-12-09 | 6KB | 254 lines

object Form13: TForm13
  Left = 197
  Top = 412
  BorderStyle = bsDialog
  Caption = 'Hatch Demo '
  ClientHeight = 427
  ClientWidth = 452
  Font.Color = clBlack
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 120
  Position = poScreenCenter
  TextHeight = 16
  object CancelBtn: TBitBtn
    Left = 234
    Top = 384
    Width = 96
    Height = 33
    Caption = '&Exit'
    TabOrder = 1
    Kind = bkCancel
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object Preview: TBitBtn
    Left = 116
    Top = 384
    Width = 89
    Height = 33
    Caption = 'Pre&view'
    TabOrder = 0
    OnClick = PreviewClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      0003377777777777777308888888888888807F33333333333337088888888888
      88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
      8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
      8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
      33333337FFFF77333333333000000333333333377777733333330000}
    NumGlyphs = 2
  end
  object Panel2: TPanel
    Left = 16
    Top = 16
    Width = 417
    Height = 357
    TabOrder = 2
    object Bevel3: TBevel
      Left = 8
      Top = 8
      Width = 401
      Height = 37
    end
    object Label4: TLabel
      Left = 17
      Top = 14
      Width = 385
      Height = 19
      Caption = 'This is a demonstration of the TPrintWin Component.'
      Color = clBtnFace
      Font.Color = clMaroon
      Font.Height = -17
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Panel3: TPanel
      Left = 8
      Top = 52
      Width = 401
      Height = 293
      TabOrder = 0
      object Label5: TLabel
        Left = 128
        Top = 8
        Width = 127
        Height = 24
        Caption = 'Some shapes'
        Font.Color = clBlack
        Font.Height = -20
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Shape13: TShape
        Left = 16
        Top = 48
        Width = 105
        Height = 41
        Brush.Color = clTeal
      end
      object Shape14: TShape
        Left = 144
        Top = 48
        Width = 105
        Height = 41
        Brush.Color = clTeal
        Brush.Style = bsDiagCross
      end
      object Shape15: TShape
        Left = 272
        Top = 48
        Width = 105
        Height = 41
        Brush.Color = 8404992
        Brush.Style = bsFDiagonal
      end
      object Shape16: TShape
        Left = 16
        Top = 104
        Width = 105
        Height = 41
        Brush.Color = 8404992
        Brush.Style = bsCross
        Shape = stCircle
      end
      object Shape17: TShape
        Left = 144
        Top = 104
        Width = 105
        Height = 41
        Brush.Color = clMaroon
        Brush.Style = bsCross
        Shape = stEllipse
      end
      object Shape18: TShape
        Left = 264
        Top = 104
        Width = 105
        Height = 41
        Brush.Color = clMaroon
        Brush.Style = bsHorizontal
        Shape = stSquare
      end
      object Shape19: TShape
        Left = 16
        Top = 168
        Width = 105
        Height = 41
        Brush.Color = clPurple
        Brush.Style = bsDiagCross
        Shape = stRoundRect
      end
      object Shape20: TShape
        Left = 144
        Top = 168
        Width = 105
        Height = 41
        Brush.Color = clPurple
        Brush.Style = bsDiagCross
        Shape = stRoundSquare
      end
      object Shape21: TShape
        Left = 264
        Top = 168
        Width = 105
        Height = 41
        Brush.Color = clPurple
        Brush.Style = bsDiagCross
        Shape = stSquare
      end
      object Shape22: TShape
        Left = 16
        Top = 232
        Width = 105
        Height = 41
        Brush.Color = clPurple
        Shape = stEllipse
      end
      object Shape23: TShape
        Left = 144
        Top = 232
        Width = 105
        Height = 41
        Brush.Color = clPurple
        Brush.Style = bsVertical
        Shape = stRoundRect
      end
      object Shape24: TShape
        Left = 272
        Top = 232
        Width = 105
        Height = 41
        Brush.Color = clPurple
        Brush.Style = bsVertical
        Shape = stSquare
      end
    end
  end
  object PrintWin1: TPrintWin
    About = 'Version 5.32'
    AboutRegistered = 'TOM SNIDER'
    HeaderFont.Color = clWindowText
    HeaderFont.Height = 16
    HeaderFont.Name = 'Arial'
    HeaderFont.Style = []
    Font.Color = clWindowText
    Font.Height = 16
    Font.Name = 'Arial'
    Font.Style = []
    FooterFont.Color = clWindowText
    FooterFont.Height = 12
    FooterFont.Name = 'Arial'
    FooterFont.Style = []
    FrameObjects = True
    clBtnFaceAsWhite = True
    OutputTo = poViewer
    Orientation = Default
    Units = poInches
    ViewButtonVisible = False
    ShowCancelDialog = True
    LineWidth = 0
    Copies = 1
    GridBackDrop = False
    GridBackDropUnits = poInches
    ZoomPercentage = 25.000000000000000000
    HeaderTop = 0.500000000000000000
    HeaderLeft = 0.500000000000000000
    HeaderStringLeft = '                                  '
    HeaderStringCenter = '                                  '
    HeaderStringRight = '                                  '
    HeaderEnabled = True
    HeaderOutlined = False
    HeaderFilled = False
    TextColor = clBlack
    ViewBkColor = 11234567
    ViewHeading = 'Printit Viewer'
    HeadingColor = clSilver
    FrameStyle = frThin
    FooterTop = 25.130000000000000000
    FooterString = '                                                  '
    FooterEnabled = True
    FooterOutlined = False
    FooterFilled = False
    FixSansSerif = True
    FooterStringLeft = 'Printed on @Date at @Time'
    FooterStringRight = 'Page @Page'
    BorderLeft = 0.500000000000000000
    BorderRight = 0.500000000000000000
    LineSpacing = 2.800000000000000000
    Left = 368
    Top = 72
  end
end