unit2.dfm

Delphi的Glib功能实现 具体功能请看帮助

      Left = 136
      Top = 74
      Width = 73
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 4
      Text = 'Estandard'
      OnChange = cbbTemaChange
      Items.Strings = (
        'Estandard'
        'Desert'
        'Gray'
        'Sky')
    end
    object chkAlternative: TCheckBox
      Left = 24
      Top = 54
      Width = 97
      Height = 17
      Caption = 'Filas alternativas'
      TabOrder = 1
      OnClick = chkAlternativeClick
    end
    object edColor1: TPanel
      Left = 88
      Top = 102
      Width = 25
      Height = 25
      TabOrder = 5
      OnClick = edColor1Click
    end
    object edColor2: TPanel
      Left = 120
      Top = 102
      Width = 25
      Height = 25
      TabOrder = 6
      OnClick = edColor2Click
    end
  end
  object pnlCentral: TPanel
    Left = 0
    Top = 0
    Width = 535
    Height = 534
    Align = alClient
    Caption = 'pnlCentral'
    TabOrder = 1
    object splHorizontal: TSplitter
      Left = 1
      Top = 363
      Width = 533
      Height = 5
      Cursor = crVSplit
      Align = alBottom
      Beveled = True
    end
    object pnlGrid: TPanel
      Left = 1
      Top = 1
      Width = 533
      Height = 362
      Align = alClient
      Caption = 'pnlGrid'
      TabOrder = 0
      object dbgrd1: TDBGrid
        Left = 1
        Top = 1
        Width = 531
        Height = 360
        Align = alClient
        Ctl3D = False
        DataSource = DataSource1
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentCtl3D = False
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'VendorNo'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'VendorName'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Address1'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Address2'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'City'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'State'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Zip'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Country'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Phone'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FAX'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Preferred'
            Visible = True
          end>
      end
    end
    object pnlInferior: TPanel
      Left = 1
      Top = 368
      Width = 533
      Height = 165
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 1
      object mmoCode: TMemo
        Left = 1
        Top = 1
        Width = 531
        Height = 163
        Align = alClient
        BevelInner = bvNone
        BevelOuter = bvRaised
        BorderStyle = bsNone
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = tblVendors
    Left = 16
    Top = 240
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from customer')
    Left = 16
    Top = 272
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de prog' +
      'rama\Archivos comunes\Borland Shared\Data\dbdemos.mdb;Persist Se' +
      'curity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 16
    Top = 304
  end
  object cdbg1: TCustomizeGrid
    Active = True
    Grid = dbgrd1
    AlternateRows.Active = False
    AlternateRows.Color1 = 14737632
    AlternateRows.Color2 = 13553358
    AlternateRows.Style = asStandard
    DataStyles.TextMemos = False
    DataStyles.CheckBox = True
    SortOptions.ChangeCursorOnTitle = False
    OnPaintCell = cdbg1PaintCell
    OnPaintColumn = cdbg1PaintColumn
    OnPaintRow = cdbg1PaintRow
    OnPaintCellImage = cdbg1PaintCellImage
    Left = 16
    Top = 336
  end
  object ilFlags: TImageList
    Left = 16
    Top = 208
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007CFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7F007C007C007C0000000000001F001F001F001F001F00
      1F001F001F001F001F001F001F001F0000000000007C007C007C007C007C007C
      007C007C007C007C007C007C007C007C00000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007CFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7F007C007C007C0000000000001F001F001F001F001F00
      1F001F001F001F001F001F001F001F0000000000FF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007CFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7F007C007C007C00000000000000001F001F001F001F00
      1F001F001F001F001F001F001F001F0000000000007C007C007C007C007C007C
      007C007C007C007C007C007C007C007C00000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007CFF7FFF7FFF7F
      007CFF7FFF7FFF7FFF7F007C007C007C000000000000000000001F001F001F00
      1F001F001F001F001F001F001F001F0000000000FF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007CFF7F007C007C
      007C007C007CFF7FFF7F007C007C007C0000000000000000000000000000E07F
      E07FE07FE07FE07FE07FE07FE07FE07F00000000FF7FFF7FFF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007CFF7FFF7F007C
      007C007C007CFF7FFF7F007C007C007C0000000000000000000000000000E07F
      E07FE07FE07FE07FE07FE07FE07FE07F000000001F001F001F001F00E07F1F00
      1F00007C007C007C007C007C007C007C00000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007CFF7F007C007C
      007C007C007CFF7FFF7F007C007C007C00000000000000000000000000000000
      E07FE07FE07FE07FE07FE07FE07FE07F000000001F001F00E07F1F001F00E07F
      1F00FF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007CFF7F007C007C
      007C007C007CFF7FFF7F007C007C007C0000000000000000000000000000E07F
      E07FE07FE07FE07FE07FE07FE07FE07F000000001F001F001F001F00E07F1F00
      1F00007C007C007C007C007C007C007C00000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007CFF7FFF7F007C
      007C007CFF7FFF7FFF7F007C007C007C0000000000000000000000001F001F00
      1F001F001F001F001F001F001F001F00000000001F001F001F001F00E07F1F00
      1F00007C007C007C007C007C007C007C00000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007CFF7FFF7FFF7F
      007CFF7FFF7FFF7FFF7F007C007C007C000000000000000000001F001F001F00
      1F001F001F001F001F001F001F001F00000000001F001F00E07F1F001F00E07F
      1F00FF7FFF7FFF7FFF7FFF7FFF7FFF7F00000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007CFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7F007C007C007C00000000000000001F001F001F001F00
      1F001F001F001F001F001F001F001F00000000001F001F001F001F00E07F1F00
      1F00007C007C007C007C007C007C007C00000000000000000000000000000000
      0000000000000000000000000000000000000000007C007C007CFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7F007C007C007C0000000000001F001F001F001F001F00
      1F001F001F001F001F001F001F001F0000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFFFFFFFFF0000FFFFFFFFFFFF0000
      8001800180010000800180018001000080018001800100008001800180010000
      8001800180010000800180018001000080018001800100008001800180010000
      80018001800100008001800180010000800180018001000080018001FFFF0000
      FFFFFFFFFFFF0000FFFFFFFFFFFF000000000000000000000000000000000000
      000000000000}
  end
  object qry2: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Vendors')
    Left = 48
    Top = 272
  end
  object tblCustomers: TADOTable
    Connection = ADOConnection1
    TableName = 'customer'
    Left = 80
    Top = 272
  end
  object tblVendors: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'vendors'
    Left = 112
    Top = 272
  end
  object cd1: TColorDialog
    Ctl3D = True
    Left = 24
    Top = 128
  end
  object cd2: TColorDialog
    Ctl3D = True
    Left = 56
    Top = 128
  end
end