ureport.dfm

Delphi/BCB 各种版本都支持的Excel 读写控件.一成功应用在N个项目中 .

object Report: TReport
  Left = 242
  Top = 177
  Width = 696
  Height = 480
  Caption = 'Flexcel Report Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 40
    Width = 688
    Height = 413
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object WB: TWebBrowser
      Left = 0
      Top = 0
      Width = 688
      Height = 413
      Align = alClient
      TabOrder = 0
      ControlData = {
        4C0000001B470000AF2A00000100000005000000000000000000000000000000
        000000004C000000000000000000000001000000E0D057007335CF11AE690800
        2B2E126203000000000000004C0000000114020000000000C000000000000046
        8000000000000000000000000000000000000000000000000000000000000000
        00000000000000000100000000000000000000000000000000000000}
    end
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 2
    AutoSize = True
    Caption = 'ToolBar'
    DisabledImages = DemoData.ImageList2
    Flat = True
    HotImages = DemoData.ImageList3
    Images = DemoData.ImageList1
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 1
    object ToolButton5: TToolButton
      Left = 0
      Top = 0
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 13
      Style = tbsSeparator
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 2
    Width = 688
    Height = 38
    AutoSize = True
    ButtonHeight = 36
    ButtonWidth = 69
    Caption = 'ToolBar'
    DisabledImages = DemoData.ImageList2
    Flat = True
    HotImages = DemoData.ImageList3
    Images = DemoData.ImageList1
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 2
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Action = ActionPrint
    end
    object ToolButton3: TToolButton
      Left = 69
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 15
      Style = tbsSeparator
    end
    object ToolButton2: TToolButton
      Left = 77
      Top = 0
      Action = ActionPrintPreview
    end
    object ToolButton4: TToolButton
      Left = 146
      Top = 0
      Action = ActionZoom
      DropdownMenu = PopZoom
    end
    object ToolButton6: TToolButton
      Left = 215
      Top = 0
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object ToolButton7: TToolButton
      Left = 223
      Top = 0
      Action = ActionClose
    end
  end
  object ActionList1: TActionList
    Images = DemoData.ImageList1
    Left = 632
    Top = 64
    object ActionPrint: TAction
      Caption = 'Print...'
      ImageIndex = 13
      OnExecute = ActionPrintExecute
    end
    object ActionPrintPreview: TAction
      Caption = 'Print Preview'
      ImageIndex = 14
      OnExecute = ActionPrintPreviewExecute
    end
    object ActionZoom: TAction
      Caption = 'Zoom...'
      ImageIndex = 3
      OnExecute = ActionZoomExecute
    end
    object ActionClose: TAction
      Caption = 'Close'
      ImageIndex = 12
      OnExecute = ActionCloseExecute
    end
  end
  object PopZoom: TPopupMenu
    Left = 360
    Top = 88
    object N501: TMenuItem
      Caption = '50 %'
      OnClick = N501Click
    end
    object N751: TMenuItem
      Caption = '75 %'
      OnClick = N751Click
    end
    object N1001: TMenuItem
      Caption = '100%'
      OnClick = N1001Click
    end
    object N2001: TMenuItem
      Caption = '200 %'
      OnClick = N2001Click
    end
  end
end