fmain.dfm

delphi的一个歌词管理程序

object frmMain: TfrmMain
  Left = 261
  Top = 151
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'Lyrics Organizer V0.1 - EMail: [e-mail]'
  ClientHeight = 399
  ClientWidth = 546
  Color = 12094311
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object gbDatabase: TGroupBox
    Left = 0
    Top = 0
    Width = 546
    Height = 399
    Align = alClient
    Caption = 'Lyrics'
    TabOrder = 0
    object dbgrdLyrics: TDBGrid
      Left = 2
      Top = 58
      Width = 542
      Height = 137
      Align = alTop
      Color = clMoneyGreen
      DataSource = dModule.cdsDataSource
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = dbgrdLyricsDblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'Artist'
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Title'
          Width = 180
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Album'
          Width = 150
          Visible = True
        end>
    end
    object Panel1: TPanel
      Left = 2
      Top = 15
      Width = 542
      Height = 43
      Align = alTop
      BevelOuter = bvNone
      Color = 12094311
      TabOrder = 1
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 34
        Height = 13
        Caption = 'Search'
      end
      object Label2: TLabel
        Left = 360
        Top = 8
        Width = 22
        Height = 13
        Caption = 'Field'
      end
      object Label4: TLabel
        Left = 48
        Top = 27
        Width = 154
        Height = 13
        Caption = 'note: ? can be used as wildcard '
      end
      object edtSearch: TEdit
        Left = 48
        Top = 5
        Width = 297
        Height = 20
        BevelInner = bvLowered
        BevelKind = bkFlat
        BevelOuter = bvRaised
        BorderStyle = bsNone
        Color = clMoneyGreen
        TabOrder = 0
        OnChange = edtSearchChange
      end
      object cbField: TComboBox
        Left = 392
        Top = 4
        Width = 121
        Height = 21
        BevelKind = bkFlat
        Style = csDropDownList
        Color = clMoneyGreen
        ItemHeight = 13
        TabOrder = 1
        OnChange = cbFieldChange
        Items.Strings = (
          'Artist'
          'Title'
          'Album')
      end
    end
    object GroupBox1: TGroupBox
      Left = 2
      Top = 221
      Width = 542
      Height = 168
      Align = alTop
      Caption = 'Lyric - Song to play'
      TabOrder = 2
      object Label3: TLabel
        Left = 8
        Top = 19
        Width = 70
        Height = 13
        Caption = 'Song Filename'
      end
      object dbedtSong: TDBEdit
        Left = 88
        Top = 16
        Width = 449
        Height = 21
        AutoSelect = False
        AutoSize = False
        BevelKind = bkFlat
        BorderStyle = bsNone
        Color = clMoneyGreen
        DataField = 'SongFileName'
        DataSource = dModule.cdsDataSource
        ReadOnly = True
        TabOrder = 0
      end
      object dbmLyric: TDBMemo
        Left = 2
        Top = 40
        Width = 538
        Height = 126
        Align = alBottom
        BevelKind = bkFlat
        BorderStyle = bsNone
        Color = clMoneyGreen
        DataField = 'Lyric'
        DataSource = dModule.cdsDataSource
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 1
      end
    end
    object Panel2: TPanel
      Left = 2
      Top = 195
      Width = 542
      Height = 26
      Align = alTop
      BevelOuter = bvNone
      Color = 12094311
      TabOrder = 3
      object btnNew: TBitBtn
        Left = 8
        Top = 4
        Width = 78
        Height = 21
        Caption = 'Insert Lyric'
        TabOrder = 0
        TabStop = False
        OnClick = btnNewClick
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000130B0000130B00000000000000000000FFFFFFFFFFFF