Chip 2000 January/Chip_2000-01_cd.bin/sharewar/Font/fl.exe/0/RCDATA/TFRMPRINTPREVIEW/TFRMPRINTPREVIEW.txt

Text File | 1999-05-10 | 13KB | 459 lines

object frmPrintPreview: TfrmPrintPreview
  Left = 455
  Top = 181
  Width = 442
  Height = 492
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  Caption = 'Print Preview'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  OldCreateOrder = True
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object dckPreviewTop: TDock97
    Left = 0
    Top = 0
    Width = 434
    Height = 26
    AllowDrag = False
    LimitToOneRow = True
    object tbPreview: TToolbar97
      Left = 0
      Top = 0
      BorderStyle = bsNone
      Caption = 'Print Preview'
      CloseButton = False
      DefaultDock = dckPreviewTop
      DockableTo = []
      DockPos = 0
      DragHandleStyle = dhNone
      FullSize = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object tbbPageSetup: TToolbarButton97
        Left = 68
        Top = 0
        Width = 23
        Height = 22
        Hint = 'Page Setup'
        HelpContext = 7020
        ImageIndex = 23
        Images = MainForm.imglMenus
        OnClick = tbbPageSetupClick
      end
      object tbbPrint: TToolbarButton97
        Left = 0
        Top = 0
        Width = 62
        Height = 22
        Action = acPrint
        Images = MainForm.imglMenus
      end
      object tbbClose: TToolbarButton97
        Left = 362
        Top = 0
        Width = 46
        Height = 22
        Hint = 'Close Preview'
        Caption = '&Close'
        HelpContext = 7100
        OnClick = tbbCloseClick
      end
      object ToolbarSep971: TToolbarSep97
        Left = 91
        Top = 0
      end
      object ToolbarSep972: TToolbarSep97
        Left = 356
        Top = 0
      end
      object tbbNextPage: TToolbarButton97
        Left = 333
        Top = 0
        Width = 23
        Height = 22
        Action = acNextPage
        DisplayMode = dmGlyphOnly
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333348
          33333333333333448333333333333344483300000000004444830FFFFFFFFF44
          44430F777777774444330FF777F7774443330F788878884403330FFF8FFF884F
          03330F778888887F03330FFFF8F887FF03330F7778F8877F03330FFFFF887FFF
          03330F777788777F03330FFFFFFFFFFF03330000000000000333}
        Images = MainForm.imglMenus
      end
      object tbbPreviousPage: TToolbarButton97
        Left = 278
        Top = 0
        Width = 23
        Height = 22
        Action = acPreviousPage
        DisplayMode = dmGlyphOnly
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333334333333
          3333333344333333333333344433333333333344440000000000344444FFFFFF
          FFF033444477777777F0333444777F7777F033304488878888F03330F4F8FFF8
          87F03330F778888887F03330FFFF8F887FF03330F7778F8877F03330FFFFF887
          FFF03330F777788777F03330FFFFFFFFFFF03330000000000000}
        Images = MainForm.imglMenus
      end
      object tbbZoom100Percent: TToolbarButton97
        Left = 97
        Top = 0
        Width = 23
        Height = 22
        Action = acZoom100Percent
        AllowAllUp = True
        GroupIndex = 100
        DisplayMode = dmGlyphOnly
        Glyph.Data = {
          42010000424D4201000000000000760000002800000013000000110000000100
          040000000000CC00000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333321200333333333333333333351500333000000000000033381800330F
          FFFFFFFFFFFF033B1B00330F00000000000F033E1E00330FFFFFFFFFFFFF0331
          2100330F00000000000F03342400330FFFFFFFFFFFFF03372700330F00000000
          000F033A2A00330FFFFFFFFFFFFF033D2D00330F00000000000F03303000330F
          FFFFFFFFFFFF03333300330F00000000000F03363600330FFFFFFFFFFFFF0339
          39003330000000000000333C3C003333333333333333333F3F00333333333333
          333333324200}
        Images = MainForm.imglMenus
      end
      object ZoomWholePage: TToolbarButton97
        Left = 143
        Top = 0
        Width = 23
        Height = 22
        Action = acZoomWholePage
        AllowAllUp = True
        GroupIndex = 100
        DisplayMode = dmGlyphOnly
        Glyph.Data = {
          42010000424D4201000000000000760000002800000013000000110000000100
          040000000000CC00000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333070003333333333333333333373003330000000000000333676003306
          868686868686033979003308680000000868033C7C003306860FFFFF0686033F
          7F003308680F444F0868033282003306860FFFFF0686033585003308680F44FF
          0868033888003306860FFFFF0686033B8B003308680F444F0868033E8E003306
          860FFFFF06860331910033086800000008680334940033068686868686860337
          97003330000000000000333A9A003333333333333333333D9D00333333333333
          33333330A000}
        Images = MainForm.imglMenus
      end
      object ZoomPageWidth: TToolbarButton97
        Left = 120
        Top = 0
        Width = 23
        Height = 22
        Action = acZoomPageWidth
        AllowAllUp = True
        GroupIndex = 100
        DisplayMode = dmGlyphOnly
        Glyph.Data = {
          42010000424D4201000000000000760000002800000013000000110000000100
          040000000000CC00000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333300000333333333333333333300000333000000000000033300000334F
          FFFFFFFFFFFF03300000334FFFF000000FFF03300000334FFFFFFFFFFFFF0330
          0000334FFFF00000FFFF03396400334FFFFFFFFFFFFF03300000334FF4F0000F
          F4FF03306100334F44FFFFFFF44F033D7D003344444F000F444403308000334F
          44FFFFFFF44F03338300334FF4F00000F4FF03368600334FFFFFFFFFFFFF0339
          89003330000000000000333C8C003333333333333333333F8F00333333333333
          333333329200}
        Images = MainForm.imglMenus
      end
      object ToolbarSep975: TToolbarSep97
        Left = 274
        Top = 0
        Blank = True
        SizeHorz = 4
      end
      object lblZoom: TLabel
        Left = 172
        Top = 4
        Width = 30
        Height = 13
        Caption = '&Zoom:'
        FocusControl = cmbZoom
      end
      object ToolbarSep974: TToolbarSep97
        Left = 166
        Top = 0
        Blank = True
      end
      object ToolbarSep973: TToolbarSep97
        Left = 202
        Top = 0
        Blank = True
        SizeHorz = 4
      end
      object ToolbarSep976: TToolbarSep97
        Left = 301
        Top = 0
        Blank = True
        SizeHorz = 4
      end
      object ToolbarSep977: TToolbarSep97
        Left = 329
        Top = 0
        Blank = True
        SizeHorz = 4
      end
      object ToolbarSep978: TToolbarSep97
        Left = 62
        Top = 0
      end
      object cmbZoom: TComboBox
        Left = 206
        Top = 0
        Width = 68
        Height = 21
        Hint = 'Zoom'
        HelpContext = 7060
        Ctl3D = True
        DropDownCount = 11
        ItemHeight = 13
        Items.Strings = (
          '500%'
          '200%'
          '150%'
          '100%'
          '75%'
          '50%'
          '25%'
          '10%'
          'Page Width'
          'Whole Page')
        ParentCtl3D = False
        TabOrder = 0
        OnClick = cmbZoomClick
        OnKeyPress = cmbZoomKeyPress
      end
      object ediGoToPage: TEdit97
        Left = 305
        Top = 1
        Width = 24
        Height = 19
        Hint = 'Goto page'
        HelpContext = 7080
        TabOrder = 1
        Text = '1'
        OnKeyPress = ediGoToPageKeyPress
      end
    end
  end
  object pnlPreview: TPanel
    Left = 0
    Top = 26
    Width = 434
    Height = 420
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    BorderWidth = 4
    Caption = 'Generating Preview...'
    FullRepaint = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Prn: TPagePrinter
      Left = 5
      Top = 5
      Width = 424
      Height = 410
      HelpContext = 7110
      HorzScrollBar.Increment = 16
      HorzScrollBar.Range = 403
      HorzScrollBar.Tracking = True
      VertScrollBar.Increment = 16
      VertScrollBar.Range = 567
      VertScrollBar.Tracking = True
      Align = alClient
      AutoScroll = False
      BorderStyle = bsNone
      Ctl3D = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentCtl3D = False
      PopupMenu = ppmPreview
      TabOrder = 0
      Visible = False
      OnMouseWheelDown = PrnMouseWheelDown
      OnMouseWheelUp = PrnMouseWheelUp
      OnResize = PrnResize
      MeasureUnit = muMillimeters
      AutoFooterFont = False
      AutoHeaderFont = False
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -16
      FooterFont.Name = 'Tahoma'
      FooterFont.Style = []
      FooterFormat = '<0'
      GradientBackground = False
      HeaderFont.Charset = DEFAULT_CHARSET
      HeaderFont.Color = clWindowText
      HeaderFont.Height = -16
      HeaderFont.Name = 'Tahoma'
      HeaderFont.Style = [fsBold]
      HeaderFormat = '<0'
      MarginBottom = 10.000000000000000000
      MarginLeft = 10.000000000000000000
      MarginRight = 10.000000000000000000
      MarginTop = 10.000000000000000000
      SpaceH = 0
      OnPreviewEnd = PrnPreviewEnd
      PageBorders = [pbTop, pbBottom, pbLeft, pbRight]
      ShadowOffset = 2
      ShowMargins = False
      TableGrid = True
      Title = 'FontLister'
      WordWrap = False
      ZoomPercent = 50
    end
  end
  object stbPreview: TDFSStatusBar
    Left = 0
    Top = 446
    Width = 434
    Height = 19
    HelpContext = 7120
    Panels = <
      item
        Bevel = pbNone
        Enabled = True
        Width = 50
      end
      item
        Alignment = taCenter
        Bevel = pbNone
        PanelType = sptGauge
        Enabled = True
        Width = 100
      end>
    SimplePanel = False
    OnResize = stbPreviewResize
  end
  object ZoomTimer: TTimer
    Enabled = False
    Interval = 50
    OnTimer = ZoomTimerTimer
    Left = 12
    Top = 36
  end
  object ppmPreview: TPopupMenu
    Images = MainForm.imglMenus
    Left = 48
    Top = 42
    object mitNextPage: TMenuItem
      Action = acNextPage
    end
    object mitPreviousPage: TMenuItem
      Action = acPreviousPage
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mitZoom100: TMenuItem
      Action = acZoom100Percent
      GroupIndex = 101
      RadioItem = True
    end
    object mitZoomPageWidth: TMenuItem
      Action = acZoomPageWidth
      GroupIndex = 101
      RadioItem = True
    end
    object mitZoomWholePage: TMenuItem
      Action = acZoomWholePage
      GroupIndex = 101
      RadioItem = True
    end
    object N2: TMenuItem
      Caption = '-'
      GroupIndex = 101
    end
    object mitPrint: TMenuItem
      Action = acPrint
      GroupIndex = 101
    end
  end
  object anlPreview: TActionList
    Images = MainForm.imglMenus
    Left = 80
    Top = 42
    object acZoom100Percent: TAction
      Caption = 'Zoom 100 Per¢'
      HelpContext = 7030
      Hint = 'Zoom 100%|Zooms preview to actual size.'
      ImageIndex = 42
      OnExecute = acZoom100PercentExecute
    end
    object acZoomPageWidth: TAction
      Caption = 'Zoom Page &Width'
      HelpContext = 7040
      Hint = 'Page Width|Zooms to width of page.'
      ImageIndex = 43
      OnExecute = acZoomPageWidthExecute
    end
    object acZoomWholePage: TAction
      Caption = 'Zoom W&hole Page'
      HelpContext = 7050
      Hint = 'Whole Page|Zooms to fit entire page.'
      ImageIndex = 44
      OnExecute = acZoomWholePageExecute
    end
    object acNextPage: TAction
      Caption = '&Next Page'
      HelpContext = 7090
      Hint = 'Next page|Moves to next page in set.'
      ImageIndex = 45
      OnExecute = acNextPageExecute
    end
    object acPreviousPage: TAction
      Caption = 'Pre&vious Page'
      HelpContext = 7070
      Hint = 'Previous page|Moves to previous page in set.'
      ImageIndex = 46
      OnExecute = acPreviousPageExecute
    end
    object acPrint: TAction
      Caption = '&Print'
      HelpContext = 7010
      Hint = 'Print|Prints shown preview.'
      ImageIndex = 1
      OnExecute = acPrintExecute
    end
  end
end