Текущий архив: 2008.04.13;
Скачать: CL | DM;

Вниз

Bitmap в Grid   Найти похожие ветки 

← →
Pos Eleptant (c)   (2008-02-28 14:01) [0]

Подскажите код, как отразить Bitmap в ячейке Grid

OnDBGridDrawColumnCell не работает

  if Column.FieldName="UPD_STATUS" then
  if Column.Field.AsInteger = 0 then
  begin
showmessage("2");
    dbgrid.canvas.Draw(Rect.Left, Rect.Top, imgFlagEdit.Picture.Bitmap);
    dbgrid.
  end;

---

← →
Desdechado ©   (2008-02-28 15:03) [1]

procedure TframeTree.ObjGridDrawColumnCell( Sender: TObject; const Rect: TRect;
                                           DataCol: Integer; Column: TColumn;
                                           State: TGridDrawState );
var
 nImg: Integer;
begin
 if not TDBGrid(Sender).DataSource.DataSet.IsEmpty then begin
   if( Column.FieldName = "CLASS_ID" ) then begin
     ObjGrid.Canvas.FillRect( Rect );
     nImg := Column.Field.AsInteger;
     DataModule.ClassImg.Draw( ObjGrid.Canvas, Rect.Left + 2, Rect.Top, nImg );
   end
   else
     ObjGrid.DefaultDrawColumnCell( Rect, DataCol, Column, State );
 end;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2008.04.13;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.015 c