Текущий архив: 2003.04.10;
Скачать: CL | DM;

Вниз

Несколько картинок в DBGrid   Найти похожие ветки 

← →
Vladislav ©   (2003-03-21 12:22) [0]

Необходимо в одном столбце DBGrid вывести несколько картинок. Как?

---

← →
Clickmaker ©   (2003-03-21 12:48) [1]

Имеешь в виду в одной ячейке? Стандартно никак, OnDrawColumnCell и рисуй себе на здоровье сколько угодно картинок

---

← →
Vladislav ©   (2003-03-21 12:56) [2]

Да, в одной. Не работал с картинками. Как несколько объеденить в одну?

---

← →
Clickmaker ©   (2003-03-21 13:03) [3]

ну примерно так наверно
Bitmap := TBitmap.Create;
y := 0;
for i := 0 to PictureCount do begin
Bitmap.Canvas.Draw(0, y, Pictures[i]);
Inc(y, Pictures[i].Height);
end;

---

← →
Vladislav ©   (2003-03-21 13:23) [4]

точно

---

← →
Balu ©   (2003-03-21 13:52) [5]

Я делаю так:
procedure TForm1.dbgInformDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
Var
LL: Integer;
begin
LL := (Column.Width-14) div 2;
if Column.FieldName = "Status" then begin
if ((Sender as TDBGrid).DataSource.DataSet.FieldByName("Status").Value = "Y") then
ImageList1.Draw(TDBGrid(Sender).Canvas,Rect.Left+LL,Rect.Top, 1)
else
ImageList1.Draw(TDBGrid(Sender).Canvas,Rect.Left+LL,Rect.Top, 0);
end;
end;

---

← →
Balu ©   (2003-03-21 13:54) [6]

Если нужно "поиграться" с несколькими картинками, то и "играйся" с разными облястями ячейки (выводи два и более раз в соответствующую область по одной картинке).

---

← →
Johnmen ©   (2003-03-21 14:02) [7]

для полной корректности
if (Column.Field<>nil) and (LowerCase(Column.FieldName)="status") then

---

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

Текущий архив: 2003.04.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.017 c