u_mainfrm.dfm

给一个企业做的产品展示系统,很好的展示了产品的各种功能

object MainFrm: TMainFrm
  Left = 57
  Top = 17
  Align = alClient
  BorderStyle = bsNone
  Caption = #22269#33829#31532#20843#20061#19968#21378#20135#21697#36164#26009
  ClientHeight = 691
  ClientWidth = 996
  Color = clWhite
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object pnlTop: TPanel
    Left = 0
    Top = 0
    Width = 996
    Height = 210
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object imgBanner: TImage
      Left = 0
      Top = 0
      Width = 996
      Height = 210
      Align = alClient
      AutoSize = True
    end
    object Label1: TLabel
      Left = 213
      Top = 195
      Width = 276
      Height = 12
      Caption = #22914#26524#24744#30340#26426#22120#36824#27809#26377#23433#35013#12304'PDF'#30005#23376#25991#26723#38405#35835#36719#20214#12305','
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 540
      Top = 195
      Width = 60
      Height = 12
      Caption = #36827#34892#23433#35013#12290
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label3: TLabel
      Left = 490
      Top = 195
      Width = 48
      Height = 12
      Cursor = crHandPoint
      Caption = #21333#20987#36825#37324
      DragCursor = crHandPoint
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsUnderline]
      ParentFont = False
      Transparent = True
      OnClick = Label3Click
    end
    object lbClose: TLabel
      Left = 604
      Top = 194
      Width = 72
      Height = 12
      Cursor = crHandPoint
      Caption = #25171#24320#32972#26223#38899#20048
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsUnderline]
      ParentFont = False
      Transparent = True
      OnClick = lbCloseClick
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 210
    Width = 996
    Height = 481
    Align = alClient
    BevelOuter = bvNone
    Color = 10834190
    TabOrder = 1
    object pnlLeft: TPanel
      Left = 0
      Top = 0
      Width = 200
      Height = 481
      Align = alLeft
      BevelOuter = bvNone
      Color = clWhite
      TabOrder = 0
      object Bevel1: TBevel
        Left = 198
        Top = 0
        Width = 2
        Height = 481
        Align = alRight
        Shape = bsFrame
      end
      object RzPanel1: TRzPanel
        Left = 0
        Top = 0
        Width = 198
        Height = 481
        Align = alClient
        BorderOuter = fsNone
        Color = 10834190
        TabOrder = 0
        object pnlTree: TPanel
          Left = 0
          Top = 0
          Width = 198
          Height = 481
          Align = alClient
          BevelOuter = bvNone
          BorderWidth = 2
          Color = clWhite
          TabOrder = 0
          object tvLeftTree: TRzTreeView
            Left = 2
            Top = 2
            Width = 194
            Height = 388
            SelectionPen.Color = clBtnHighlight
            Align = alClient
            BorderStyle = bsNone
            Color = clWhite
            Ctl3D = False
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = []
            FrameColor = clYellow
            FrameHotColor = clYellow
            Images = igLeftTree
            Indent = 35
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
            OnChange = tvLeftTreeChange
            OnClick = tvLeftTreeClick
            Items.Data = {
              07000000210000000000000000000000FFFFFFFFFFFFFFFF0000000002000000
              08B9A4B3A7BCF2BDE9210000000C0000000C000000FFFFFFFFFFFFFFFF000000
              000000000008C6F3D2B5CAD3C6B5210000000B0000000B000000FFFFFFFFFFFF
              FFFF000000000000000008C6F3D2B5C8D9D3FE210000000100000001000000FF
              FFFFFFFFFFFFFF000000000400000008B2FAC6B7C4BFC2BC2300000002000000
              02000000FFFFFFFFFFFFFFFF00000000000000000AB5E7B4C5BCCCB5E7C6F725
              0000000300000003000000FFFFFFFFFFFFFFFF00000000000000000CB4C5B1A3
              B3D6BCCCB5E7C6F7230000000400000004000000FFFFFFFFFFFFFFFF00000000
              000000000AD1D3CAB1BCCCB5E7C6F71F0000000500000005000000FFFFFFFFFF
              FFFFFF000000000000000006BDD3B4A5C6F7210000000600000006000000FFFF
              FFFFFFFFFFFF000000000000000008B2FAC6B7B2E9D1AF210000000800000008
              000000FFFFFFFFFFFFFFFF000000000000000008B2FAC6B7B6A8CEBB21000000
              0A0000000A000000FFFFFFFFFFFFFFFF000000000000000008B2FAC6B7D6B8C4
              CF210000000900000009000000FFFFFFFFFFFFFFFF000000000000000008C1AA
              CFB5B7BDCABD210000000700000007000000FFFFFFFFFFFFFFFF000000000000
              000008CDCBB3F6E4AFC0C0}
          end
          object pnlLeftBottom: TPanel
            Left = 2
            Top = 390
            Width = 194
            Height = 89
            Align = alBottom
            BevelOuter = bvNone
            BorderWidth = 6
            Color = clWhite
            TabOrder = 1
            Visible = False
            object Bevel2: TBevel
              Left = 6
              Top = 6
              Width = 34
              Height = 77
              Align = alLeft
              Shape = bsSpacer
            end
            object Bevel3: TBevel
              Left = 150
              Top = 6
              Width = 38
              Height = 77
              Align = alRight
              Shape = bsSpacer
            end
            object RzPanel2: TRzPanel
              Left = 40
              Top = 6
              Width = 110
              Height = 77
              Align = alClient
              BorderOuter = fsFlatRounded
              Color = clWhite
              TabOrder = 0
              object pnlImgBg: TPanel
                Left = 2
                Top = 2
                Width = 106
                Height = 73
                Align = alClient
                BevelOuter = bvNone
                BorderWidth = 2
                Color = clWhite
                TabOrder = 0
                object imgPhoto: TImage
                  Left = 2
                  Top = 2
                  Width = 102
                  Height = 69
                  Align = alClient
                  AutoSize = True
                end
              end
            end
          end
        end
      end
    end
    object Panel3: TPanel
      Left = 200
      Top = 0
      Width = 796
      Height = 481
      Align = alClient