fcontrol.dfm

IntraWeb电影程序 B/S类型的演示 Delphi+Internet 开发的电影服务器 系统登录电影网站的用户名和密码都是admin 观看电影的最低要求: 请确保你的系统已经安装媒体播放

  object BackBtn: TIWButton [32]
    Left = 352
    Top = 624
    Width = 75
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Caption = #36820#22238
    DoSubmitValidation = True
    Color = clBtnFace
    Font.Color = clNone
    Font.CSSStyle = 'fmbtn'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'BackBtn'
    ScriptEvents = <>
    TabOrder = 17
    OnClick = BackBtnClick
  end
  object SearchFilm: TIWButton [33]
    Left = 480
    Top = 436
    Width = 81
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Caption = #21021#22987#21270#37197#32622
    DoSubmitValidation = True
    Color = clBtnFace
    Font.Color = clNone
    Font.CSSStyle = 'fmbtn'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'SearchFilm'
    ScriptEvents = <
      item
        EventCode.Strings = (
          'Check_Edit("SEARCHFILM");')
        Event = 'onClick'
      end>
    TabOrder = 18
    OnClick = SearchFilmClick
  end
  object LookBtn: TIWButton [34]
    Left = 160
    Top = 624
    Width = 75
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Caption = #39044#35272
    DoSubmitValidation = True
    Color = clBtnFace
    Font.Color = clNone
    Font.CSSStyle = 'fmbtn'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'LookBtn'
    ScriptEvents = <>
    TabOrder = 19
    OnClick = LookBtnClick
  end
  object ComGrid: TIWDBGrid [35]
    Left = 440
    Top = 112
    Width = 17
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = False
    BorderColors.Color = clNone
    BorderColors.Light = clNone
    BorderColors.Dark = clNone
    BGColor = clNone
    BorderSize = 1
    BorderStyle = tfDefault
    Caption = 'ComGrid'
    CellPadding = 0
    CellSpacing = 0
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    FrameBuffer = 40
    Lines = tlAll
    UseFrame = True
    UseSize = True
    ScrollToCurrentRow = False
    Columns = <
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        RawText = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
        Title.RawText = True
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        RawText = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        OnClick = ComGridColumns1Click
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
        Title.RawText = True
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        RawText = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
        Title.RawText = True
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        RawText = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
        Title.RawText = True
      end>
    FooterRowCount = 0
    FriendlyName = 'ComGrid'
    FromStart = True
    HighlightColor = clNone
    HighlightRows = False
    Options = [dgShowTitles]
    RefreshMode = rmAutomatic
    RowLimit = 0
    RollOver = False
    RowClick = False
    RollOverColor = clNone
    RowHeaderColor = clNone
    RowAlternateColor = clNone
    RowCurrentColor = clNone
    TabOrder = -1
  end
  object EdtNumTo: TIWEdit [36]
    Left = 432
    Top = 440
    Width = 41
    Height = 21
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    Font.Color = clNone
    Font.CSSStyle = 'fmtxtra'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'EdtNumTo'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 20
    PasswordPrompt = False
    Text = '1'
  end
  object SaveFilmCbb: TIWComboBox [37]
    Left = 136
    Top = 544
    Width = 153
    Height = 21
    Cursor = crAuto
    Hint = #19968#26086#36164#26009#25913#21464#24517#39035#25353#29983#25104#30005#24433#25353#38062#21021#22987#21270#37197#32622#13#10'        '#21542#21017#20445#23384#36164#26009#23558#20250#22833#36133'!'
    OnHTMLTag = SaveFilmCbbHTMLTag
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    StatusText = #21035#24536#35760#20102#22312#20462#25913#20445#23384#36335#24452#30340#26102#20505#35760#24471#20808#21333#20987#29983#25104#30005#24433#25353#38062
    ZIndex = 0
    RenderSize = True
    BGColor = clNone
    Font.Color = clNone
    Font.CSSStyle = 'fmtxtra'
    Font.Size = 10
    Font.Style = []
    FocusColor = clNone
    AutoHideOnMenuActivation = False
    ItemsHaveValues = False
    NoSelectionText = '-- No Selection --'
    Required = False
    RequireSelection = True
    ScriptEvents = <>
    UseSize = True
    Style = stNormal
    ButtonColor = clBtnFace
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    TabOrder = 21
    ItemIndex = -1
    Sorted = False
    FriendlyName = 'SavePictureEdt'
  end
  object SaveFilmEdt: TIWEdit [38]
    Left = 136
    Top = 576
    Width = 153
    Height = 21
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    Font.Color = clNone
    Font.CSSStyle = 'fmtxtra'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'SaveFilmEdt'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 22
    PasswordPrompt = False
    Text = 'SaveFilmEdt'
  end
  object SavePictureEdt: TIWEdit [39]
    Left = 360
    Top = 128
    Width = 169
    Height = 21
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    Font.Color = clNone
    Font.CSSStyle = 'fmtxtra'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'SavePictureEdt'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 23
    PasswordPrompt = False
    Text = 'SavePictureEdt'
  end
  object UpFilm: TIWEdit [40]
    Left = 136
    Top = 496
    Width = 81
    Height = 20
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    Font.Color = clNone
    Font.CSSStyle = 'fmtxtra'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'UpFilm'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 24
    PasswordPrompt = False
  end
  object UpPictrueEdt: TIWEdit [41]
    Left = 360
    Top = 96
    Width = 89
    Height = 20
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    Font.Color = clNone
    Font.CSSStyle = 'fmtxtra'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'UpFilm'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 25
    PasswordPrompt = False
  end
  object EdtNumFrom: TIWEdit [42]
    Left = 368
    Top = 440
    Width = 49
    Height = 21
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    Font.Color = clNone
    Font.CSSStyle = 'fmtxtra'
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'EdtNumFrom'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 26
    PasswordPrompt = False
    Text = '1'
  end
  inherited IWTemplateProcessorHTML1: TIWTemplateProcessorHTML
    Top = 4
  end
end