zcpreviewfrm.dfm

delphi表格控件源码,修改垂直方向滚动表格时, 可以滚动得只剩下一行的问题. - 修改了打印预览页眉行之间间距过大的问题 - 修改了3.25版本后多行文本单元格打印不显示的问题 - 修改了3

object ZcPreviewForm: TZcPreviewForm
  Left = 103
  Top = 128
  Width = 856
  Height = 547
  Caption = #39044#35272
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnDestroy = FormDestroy
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 848
    Height = 26
    ButtonHeight = 20
    ButtonWidth = 85
    Caption = 'ToolBar1'
    ShowCaptions = True
    TabOrder = 0
    object ToolButton2: TToolButton
      Left = 0
      Top = 2
      Caption = '<<'
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 85
      Top = 2
      Caption = '>>'
      ImageIndex = 2
      OnClick = ToolButton3Click
    end
    object Panel1: TPanel
      Left = 170
      Top = 2
      Width = 119
      Height = 20
      BevelOuter = bvNone
      Caption = 'Panel1'
      TabOrder = 0
      DesignSize = (
        119
        20)
      object Label2: TLabel
        Left = 0
        Top = 0
        Width = 24
        Height = 20
        Align = alLeft
        Caption = ' '#31532' '
        Layout = tlCenter
      end
      object Label1: TLabel
        Left = 95
        Top = 0
        Width = 24
        Height = 20
        Align = alRight
        Caption = ' '#39029' '
        Layout = tlCenter
      end
      object EditPageNum: TEdit
        Left = 26
        Top = 0
        Width = 69
        Height = 20
        Anchors = [akLeft, akTop, akRight, akBottom]
        TabOrder = 0
        OnKeyPress = EditPageNumKeyPress
      end
    end
    object btnScale: TToolButton
      Left = 289
      Top = 2
      Caption = #32553#25918
      ImageIndex = 8
      OnClick = btnScaleClick
    end
    object ToolButton4: TToolButton
      Left = 374
      Top = 2
      Caption = #25171#21360
      ImageIndex = 3
      OnClick = ToolButton4Click
    end
    object btnPrinterSetup: TToolButton
      Left = 459
      Top = 2
      Caption = #25171#21360#35774#32622
      ImageIndex = 4
      OnClick = btnPrinterSetupClick
    end
    object ToolButton6: TToolButton
      Left = 544
      Top = 2
      Caption = #20445#23384#21040#27169#26495
      ImageIndex = 5
      Visible = False
    end
    object ToolButton7: TToolButton
      Left = 629
      Top = 2
      Caption = ' '#23548#20986#21040'Excel '
      ImageIndex = 6
      Visible = False
      OnClick = ToolButton7Click
    end
    object ToolButton1: TToolButton
      Left = 714
      Top = 2
      Caption = #20851#38381
      ImageIndex = 7
      OnClick = ToolButton1Click
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 494
    Width = 848
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Width = 50
      end>
  end
  object PreviewPanel: TEjunPreviewPanel
    Left = 0
    Top = 26
    Width = 848
    Height = 468
    HorzMargin = 20
    VertMargin = 20
    Align = alClient
    Color = clBtnShadow
    OnChange = PreviewPanelChange
  end
  object MainMenu1: TMainMenu
    Left = 40
    Top = 48
  end
  object OpenDialog1: TOpenDialog
    Filter = #25253#34920#27169#26495'(*.zrt)|*.zrt'
    Left = 168
    Top = 88
  end
  object PrinterSetupDialog: TPrinterSetupDialog
    Left = 240
    Top = 88
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '.xls'
    Filter = 'Excel'#24037#20316#34180'(*.xls)|*.xls'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 296
    Top = 88
  end
  object PrintDlg: TPrintDialog
    Copies = 1
    Options = [poPageNums, poSelection, poWarning, poDisablePrintToFile]
    Left = 344
    Top = 88
  end
end