Прозрачный bmp в RXDbgrid

[Spot]

Как вывести прозрачный bmp в RXDbgrid
Рисую так:

procedure TfMain.GrtekDrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
 Im1: TBitmap;
 grsndr:trxdbgrid;
begin
 grsndr:=sender as trxdbgrid;
 Im1 := TBitmap.Create;
With grsndr.Canvas do
 begin
   case DM.DSzakazy.DataSet.FieldByName('sost').AsInteger of
     40: Font.Color:=CLred;
     41,42: Font.Color:=CLblue;
     43,44,45,46: Font.Color:=clgreen;
   end;
   if (gdSelected in State)
   then Brush.Color:=$ccffff
   else brush.Color:=clWindow;
   if (Column.FieldName = 'vid') and (Column.Field.Text<>'')then
   begin
     FillRect(Rect);
     ILicons.GetBitmap(DM.DSzakazy.DataSet.FieldByName('imageindex').AsInteger, Im1);
     BrushCopy(Bounds(Rect.Left, Rect.Top, Im1.Width,
       Im1.Height), Im1, bounds(0, 0, Im1.width, Im1.height), clWhite);
     TextOut(Rect.Left+Im1.Width, Rect.Top+2, Column.Field.Text);
   end
   else
   begin
     FillRect(Rect);
     TextOut(rect.Left+2,rect.Top+2,Column.Field.Text)
   end;
 end;
end;

[Скандербег]

Как вариант (если подойдет). Делаем прозрачным текст, а не картинку. Тем более, что не понятно зачем нужно прозрачное изображение, если текст выводится справа от него.

procedure TfMain.GrtekDrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Im1: TBitmap;
begin
  Im1 := TBitmap.Create;
  try
    With Grtek.Canvas do begin
      case DM.DSzakazy.DataSet.FieldByName('sost').AsInteger of
        40: Font.Color:=CLred;
        41,42: Font.Color:=CLblue;
        43,44,45,46: Font.Color:=clgreen;
      end;
      if (gdSelected in State) then
        Brush.Color:=$ccffff
      else
        brush.Color := clWindow;
      FillRect(Rect);

      if (Column.FieldName = 'vid') and (Column.Field.Text<>'') then begin
        ILicons.GetBitmap(DM.DSzakazy.DataSet.FieldByName('imageindex').AsInteger, Im1);
        Draw(Rect.Left, Rect.Top, Im1);

        Im1.Transparent := True;
        Im1.TransParentColor := clWhite;
        Im1.Canvas.Brush.Color := clWhite;
        Im1.Width := Rect.Right - Rect.Left;
        Im1.Height := Rect.Bottom - Rect.Top;
        Im1.Canvas.FillRect(Classes.Rect(0, 0, Im1.Width, Im1.Height));
        Im1.Canvas.TextOut(0, 0, Column.Field.Text);

//        Draw(Rect.Left+Im1.Width,rect.Top+2, Im1); //справа от картинки
        Draw(rect.Left+2,rect.Top+2, Im1); //поверх картинки
     end else
       TextOut(rect.Left+2,rect.Top+2,Column.Field.Text)
   end;
  finally
    Im1.Free;
  end;
end;

[Spot]

Текст поверх картинки не лучший вариант.
Прозрачное изображение нужно потому, что у меня цвета ячеек разные
Например, когда цвет фона желтый, видно что bmp не прозрачный (белый фон)

[Скандербег]

При вставке картинки в ImageList надо указать в Transparent Color цвет фона (для этого еще и пипетка есть, если не известен цвет). При этом нужно добиться чтобы на примере изображения слева фон картинки был белым. Это не означает, что прозрачный цвет белый. Например, если вставить картинку из Борландовского набора картинок, где цвет фона в основном clOlive или clPurple, то в качестве прозрачного цвета должен быть один из них.
В последнем параметре BrushCopy нужно передать тот же цвет.

[Spot]

Imagelist у меня формируется программно. Картинки вставляю так:

procedure addnewfile(f:tSearchRec);
var tempbmp:tbitmap;
begin
  if ((f.Attr and faDirectory)<>faDirectory) and
  (f.Name<>'.')and(f.Name<>'..') then
   begin
     tempbmp:=TBitmap.Create;
     try
       tempbmp.LoadFromFile(Apppath+'\icons\'+f.Name);
       DM.Qinsimagelist.Close;
       Fmain.ILicons.AddMasked(tempbmp,clWhite);
     finally
       tempbmp.Free;
     end;
   end;
end;

Как видно, цвет маски clWhite, тот же цвет указываю в Brushcopy

[Spot]

Получилось!
Как ни странно, при указании Mskcolor clred картинка стало прозрачным

Fmain.ILicons.AddMasked(tempbmp,clRed);

Помог это:
http://www.cyberguru.ru/delphi-sourc...ratchnymi.html

Спасибо Скандербегу за указание правильного пути решения вопроса