iwunit1.dfm

Delphi下IntraWeb应用开发详解中的在iwdbgrid中显示图形的代码部分

object formMain: TformMain
  Left = 0
  Top = 0
  Width = 571
  Height = 531
  Background.Fixed = False
  HandleTabs = False
  SupportedBrowsers = [brIE, brNetscape6]
  DesignLeft = 314
  DesignTop = 127
  object IWDBGrid1: TIWDBGrid
    Left = 16
    Top = 144
    Width = 441
    Height = 265
    ZIndex = 0
    BorderColors.Color = clNone
    BorderColors.Light = clNone
    BorderColors.Dark = clNone
    BGColor = clNone
    BorderSize = 1
    BorderStyle = tfDefault
    CellPadding = 0
    CellSpacing = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FrameBuffer = 40
    Lines = tlAll
    OnRenderCell = IWDBGrid1RenderCell
    UseFrame = True
    UseWidth = True
    Columns = <
      item
        Alignment = taLeftJustify
        BGColor = clNone
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'NAME'
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = 'NAME'
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end
      item
        Alignment = taLeftJustify
        BGColor = clNone
        Control = IWDBImage1
        DoSubmitValidation = True
        Font.Color = clNone
        Font.Enabled = True
        Font.Size = 10
        Font.Style = []
        Header = False
        Height = '0'
        VAlign = vaMiddle
        Visible = True
        Width = '0'
        Wrap = False
        BlobCharLimit = 0
        CompareHighlight = hcNone
        DataField = 'BMP'
        LinkField = 'NAME'
        Title.Alignment = taCenter
        Title.BGColor = clNone
        Title.DoSubmitValidation = True
        Title.Font.Color = clNone
        Title.Font.Enabled = True
        Title.Font.Size = 10
        Title.Font.Style = []
        Title.Header = False
        Title.Height = '0'
        Title.Text = 'BMP'
        Title.VAlign = vaMiddle
        Title.Visible = True
        Title.Width = '0'
        Title.Wrap = False
      end>
    DataSource = DataSource1
    FooterRowCount = 0
    FromStart = True
    HighlightColor = clNone
    HighlightRows = False
    Options = [dgShowTitles]
    RefreshMode = rmAutomatic
    RowLimit = 0
    RollOver = False
    RowClick = False
    RollOverColor = clNone
    RowHeaderColor = clInactiveCaptionText
    RowAlternateColor = clNone
    RowCurrentColor = clFuchsia
  end
  object IWDBNavigator1: TIWDBNavigator
    Left = 16
    Top = 416
    Width = 230
    Height = 25
    ZIndex = 0
    Confirmations.Delete = 'Are you sure you want to delete this record?'
    Confirmations.Post = 'Are you sure you want to update this record?'
    Confirmations.Cancel = 'Are you sure you want to cancel your changes to this record?'
    DataSource = DataSource1
    ImageHeight = 21
    ImageWidth = 21
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
    Orientation = orHorizontal
  end
  object IWDBImage1: TIWDBImage
    Left = 392
    Top = 112
    Width = 89
    Height = 112
    ZIndex = 0
    DoSubmitValidation = True
    ScriptEvents = <>
    UseBorder = False
    UseSize = True
    JpegOptions.CompressionQuality = 90
    JpegOptions.Performance = jpBestSpeed
    JpegOptions.ProgressiveEncoding = False
    JpegOptions.Smoothing = True
    DataField = 'BMP'
    DataSource = DataSource1
  end
  object IWMemo1: TIWMemo
    Left = 40
    Top = 16
    Width = 369
    Height = 81
    ZIndex = 0
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    RawText = False
    ReadOnly = False
    Required = False
    TabOrder = 0
    WantReturns = False
    FriendlyName = 'IWMemo1'
    Lines.Strings = (
      #26412#20363#23558'animals.dbf'#30340'bmp'#22270#20687#26174#31034#22312#34920#26684#37324#12290
      #20851#38190#26159#35774#32622#34920#26684'iwdbgrid'#30340'columns'#23646#24615#65292#35774
      #32622'bmp'#21015#30340'control'#23646#24615#20026'iwdbImage1'#12290)
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 48
    Top = 96
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'animals.dbf'
    Left = 104
    Top = 96
    object Table1NAME: TStringField
      FieldName = 'NAME'
      Size = 10
    end
    object Table1SIZE: TSmallintField
      FieldName = 'SIZE'
    end
    object Table1WEIGHT: TSmallintField
      FieldName = 'WEIGHT'
    end
    object Table1AREA: TStringField
      FieldName = 'AREA'
    end
    object Table1BMP: TBlobField
      FieldName = 'BMP'
      BlobType = ftTypedBinary
      Size = 1
    end
  end
end