Скачать: CL | DM;

DBGrid и картинки....   Найти похожие ветки 

← →
Tiny   (2002-12-04 08:31) [0]

Помогите PLZ!
Каким образом можно вставить в ячейку DBGrid"а иконку? Т.е. есть в таблице поле "Статус" - и в зависимости от значения нужно вставить определенную картинку...

---

← →
Наталия ©   (2002-12-04 08:59) [1]

Рисовать на канве. Событие DrawColumnCell или drawDataCell.
На королевстве есть статья "Разноцветный грид"

---

← →
Prooksius ©   (2002-12-04 10:15) [2]

DBGridEh это может.
http://www.farpost.com/personal/dmitryb/RUS/downloads.htm

---

← →
Карелин Артем ©   (2002-12-04 11:42) [3]

Наталия © (04.12.02 08:59)
Ну а сайт стало быть DelphiKingdom.com Хорошая статейка.

---

← →
Севостьянов Игорь ©   (2002-12-04 11:55) [4]

Или воспользоваться RX Lib

---

← →
BorisUK ©   (2002-12-04 13:23) [5]

Севостьянов Игорь ©
объясни чем RX тут помочь может?
Я его юзаю, но всеравно пришлось делать в Гриде

Im : TBitMap;

....
Im1:=TBitmap.Create;
ImageList1.GetBitMap(13,im1);
DBGrid.Canvas.Draw(round((Rect.Left+Rect.Right-Im1.Width)/2),Rect.Top,Im1)
...

Может зря старался и там это проще делается?

---

← →
Johnmen ©   (2002-12-04 13:48) [6]

В RxDBGrid идеология та же, но делается проще...

---

← →
BorisUK ©   (2002-12-04 14:10) [7]

Проще как?

---

← →
snv-soft ©   (2002-12-05 05:55) [8]

procedure TForm_Main.DBGrid_DealDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
var
Im1: TBitmap;
begin
if Column.FieldName = "LOTE_STATUS" then
begin
with DBGrid_Deal.Canvas do
begin
im1:=TBitmap.Create;
Brush.Color:=$00FDFDE3;
FillRect(Rect);
case DMod.Query_Bids.FieldByName("LOTE_STATUS").AsInteger of
0: Icons_DbGridBids.GetBitmap(2,Im1);
1: Icons_DbGridBids.GetBitmap(0,Im1);
2..3: Icons_DbGridBids.GetBitmap(1,Im1);
end;
Draw(Round((Rect.Left+Rect.Right - Im1.Width)/2),Rect.Top+1,Im1);
end;
end;
end;

Иконки находятся в TImageList

---

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

Скачать: CL | DM;



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