Dbgrid (BMP)

Delphi

14/03/2003

Olá pessoal,

Gostaria de saber se é possível mostrar uma bmp numa dbgrid.
Pode ser uma bmp gravada no banco de dados (interbase) ou
pegando do diretorio corrente.

Obrigado.


Clistenes

Clistenes

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

14/03/2003

Olá pessoal, Gostaria de saber se é possível mostrar uma bmp numa dbgrid. Pode ser uma bmp gravada no banco de dados (interbase) ou pegando do diretorio corrente. Obrigado.


Vai um exemplo em DFM. Crie uma form e despeje o código sobre ela via clipboard:

  object DBCtrlGrid1: TDBCtrlGrid
    Left = 0
    Top = 0
    Width = 688
    Height = 453
    Align = alClient
    ColCount = 1
    DataSource = DataSource1
    PanelHeight = 151
    PanelWidth = 672
    TabOrder = 0
    RowCount = 3
    object Label1: TLabel
      Left = 164
      Top = 26
      Width = 37
      Height = 13
      Caption = ´Graphic´
      FocusControl = DBImage1
    end
    object Label2: TLabel
      Left = 92
      Top = 36
      Width = 55
      Height = 13
      Caption = ´Species No´
      FocusControl = DBEdit1
    end
    object DBImage1: TDBImage
      Left = 166
      Top = 18
      Width = 273
      Height = 117
      DataField = ´Graphic´
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBEdit1: TDBEdit
      Left = 92
      Top = 50
      Width = 64
      Height = 21
      DataField = ´Species No´
      DataSource = DataSource1
      TabOrder = 1
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = ´DBDEMOS´
    TableName = ´biolife.DB´
    Left = 176
    Top = 32
    object Table1SpeciesNo: TFloatField
      FieldName = ´Species No´
    end
    object Table1Category: TStringField
      FieldName = ´Category´
      Size = 15
    end
    object Table1Common_Name: TStringField
      FieldName = ´Common_Name´
      Size = 30
    end
    object Table1SpeciesName: TStringField
      FieldName = ´Species Name´
      Size = 40
    end
    object Table1Lengthcm: TFloatField
      FieldName = ´Length (cm)´
    end
    object Table1Length_In: TFloatField
      FieldName = ´Length_In´
    end
    object Table1Notes: TMemoField
      FieldName = ´Notes´
      BlobType = ftMemo
      Size = 50
    end
    object Table1Graphic: TGraphicField
      FieldName = ´Graphic´
      BlobType = ftGraphic
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 90
    Top = 32
  end



GOSTEI 0
POSTAR