| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Картика в гриде не отрисовывается транспарентно [D7, WinXP]

kyn66 ©   (2007-04-14 11:18:00) 

Делаю грид полосатым. Затем по условию вставляю картинку. Говорю ей быть транспарентной, однако не получается.


procedure TRepSprFrm.RxDBGrid1GetCellParams(Sender: TObject; Field: TField;
 AFont: TFont; var Background: TColor; Highlight: Boolean);
begin
 if (DM1.RepTbl.RecNo mod 2 <> 0) then
  Background := cl3DLight;
 if Highlight then
  begin
    AFont.Color := clBlack;
    Background := clMoneyGreen;
    AFont.Style := [fsBold];
  end;
end;
...
procedure TRepSprFrm.RxDBGrid1DrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumn;
 State: TGridDrawState);
Var
 Im1 : TBitmap;
begin
 if DM1.RepTbl.RecordCount <> 0 then
  begin
    Im1 := TBitmap.Create;
    with RxDBGrid1.Canvas do
     begin
       if (Column.FieldName = 'Ins') then
        begin
          FillRect(Rect);
          Im1.Transparent := True;
          if DM1.RepTbl.FieldByName('Ins').Value = False then
           ImageList1.GetBitmap(1,Im1);
          Draw(round((Rect.Left + Rect.Right - Im1.Width)/2), Rect.Top, Im1);
        end;
    end;
  Im1.Free
 end;



---

Чапаев   (2007-04-14 12:15:00) [1]

А вообще, как оказалось, проще всего будет использовать ImageList_Draw() из модуля CommCtrl. Что-то вроде ImageList_Draw(ImageList1.Handle,1,RxDBGrid1.Canvas.Handle,0,0,ILD_NORMAL).

---

kyn66   (2007-04-14 11:50:00) [2]

>> Чапаев
Подробнее можно?

---

Чапаев   (2007-04-14 11:26:00) [3]

RTFM TImageList.GetMaskBitmap(), BitBlt().

---

Наверх