Текущий архив: 2002.12.23;
Скачать: 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 вся ветка
Текущий архив: 2002.12.23;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.014 c
