| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как в СтригГрид вывести картинку?
Кицум © (2006-03-17 11:35:00)Обьясните пожалуйста как в СтригГрид вывести картинку в отдельную ячейку ? ? ?
Кицум (2006-03-17 12:07:00) [1]Спасибо всем за помощь ! ! !
Anatoly Podgoretsky (2006-03-17 11:56:00) [2]Кицум (17.03.06 11:50) [2]
В справке есть пример
msguns (2006-03-17 11:54:00) [3]Пардон, не обратил внимание на стрингрид.
Обработчик иной, но схема рисования та же
msguns (2006-03-17 11:53:00) [4]
procedure TfrmChild.grCTLGDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (Column.FieldName='TID') and not Column.Field.IsNull then
MainForm.imlGridType.Draw(TDBGrid(Sender).Canvas,Rect.Left,Rect.Top,Column.Field .AsInteger);
if (Column.FieldName='BAVAIL') and not Column.Field.IsNull then
MainForm.imlGridAvl.Draw(TDBGrid(Sender).Canvas,Rect.Left,Rect.Top,Column.Field. AsInteger);
end;
imlGridType,imlGridAvl - имажлисты с набором пиктограммок. Индекс пиктограммки = содержимому поля отображаемого датасета
А вот оч.хорошая статься о гриде:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=806#01
Кицум (2006-03-17 11:50:00) [5]А что нужно написать в этом событии я не знаю, можно поподробнее.
clickmaker (2006-03-17 11:46:00) [6]OnDrawCell
| |
