Fórum Dbgrid (BMP) #145765
14/03/2003
0
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.
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
Curtir tópico
+ 0
Responder
Posts
14/03/2003
Aroldo Zanela
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)