displayfrm.dfm

《Delphi实例开发教程》源代码包说明

object frmDisplay: TfrmDisplay
  Left = 190
  Top = 100
  Width = 630
  Height = 446
  Caption = 'frmDisplay'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pnlDisplay: TPanel
    Left = 0
    Top = 0
    Width = 622
    Height = 419
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvLowered
    TabOrder = 0
    object pnlButton: TPanel
      Left = 2
      Top = 2
      Width = 618
      Height = 31
      Align = alTop
      Color = clMedGray
      TabOrder = 0
      DesignSize = (
        618
        31)
      object sbLastPage: TSpeedButton
        Left = 540
        Top = 4
        Width = 44
        Height = 22
        Anchors = [akTop]
        Caption = #26411#39029
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = sbLastPageClick
      end
      object sbFirstPage: TSpeedButton
        Left = 35
        Top = 4
        Width = 44
        Height = 22
        Anchors = [akTop]
        Caption = #39318#39029
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = sbFirstPageClick
      end
      object sbPageUp: TSpeedButton
        Left = 111
        Top = 4
        Width = 44
        Height = 22
        Anchors = [akTop]
        Caption = #19978#39029
        Enabled = False
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = sbPageUpClick
      end
      object sbPageDown: TSpeedButton
        Left = 473
        Top = 4
        Width = 44
        Height = 22
        Anchors = [akTop]
        Caption = #19979#39029
        Enabled = False
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = sbPageDownClick
      end
      object Label1: TLabel
        Left = 237
        Top = 9
        Width = 12
        Height = 13
        Anchors = [akTop]
        AutoSize = False
        Caption = #31532
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label2: TLabel
        Left = 300
        Top = 9
        Width = 12
        Height = 13
        Anchors = [akTop]
        AutoSize = False
        Caption = #39029
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblPageAmount: TLabel
        Left = 331
        Top = 9
        Width = 79
        Height = 13
        Anchors = [akTop]
        AutoSize = False
        Caption = #20849'100'#39029
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object edtPage: TEdit
        Left = 256
        Top = 5
        Width = 33
        Height = 21
        Anchors = [akTop]
        BevelKind = bkFlat
        BevelOuter = bvNone
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        TabOrder = 0
        OnKeyPress = edtPageKeyPress
      end
    end
    inline fraDisplay: TfraDisplay
      Left = 2
      Top = 33
      Width = 618
      Height = 384
      Align = alClient
      Color = clSilver
      ParentColor = False
      TabOrder = 1
    end
  end
  object wbOpenPage: TWebBrowser
    Left = 72
    Top = 136
    Width = 300
    Height = 150
    TabOrder = 1
    ControlData = {
      4C000000021F0000810F00000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object pmHeadMenu: TPopupMenu
    Left = 288
    Top = 240
    object pmiDefaultBrowse: TMenuItem
      Caption = #40664#35748#27983#35272
      OnClick = pmiDefaultBrowseClick
    end
    object pmiIEBrowse: TMenuItem
      Caption = 'IE'#27983#35272
      OnClick = pmiIEBrowseClick
    end
    object pmiSaveAs: TMenuItem
      Caption = #21478#23384#20026
      OnClick = pmiSaveAsClick
    end
  end
end