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

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