Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Поле в Grid в виде набора графических картинок [D5, Win95/98, WinME, NT4, Win2k, WinXP]


fav ©   (2003-01-05 07:44:00) 

Здравствуй многоуважаемый ALL!!!
Описание:Есть таблица с полем значение которого может быть от 0 до 3. В зависимотсти от значения выводится в Grid текстовое сообщение типа "Ok!", "Error" и т.д.
Вопрос:Можноли приделать механизм чтобы вместо сообщений выводить иконки или bmp картинки... Чтобы отображать графически состояние (значение) этого поля ;)))


Song   (2003-01-05 08:51:00) [1]

Ну а чего нет-то?
Запихай в TImageList твой картинки, например 0 иконка будет Ok, 1 - Cancel, 2 - Error

и на событии onDrawCell различай (например эти картинки у тебя будут в нулевой колонке):

IF ACol=0 then
Begin
BitMap:=TBitMap.Create;
try
ImageList1.GetBitMap(BitMap,StrToInt(Cells[ACol,ARow]));
TStringGrid(Sender).Canvas.Draw(Rect.Left+2,Rect.Top+2,BitMap);
finally
BitMap.Free;
end;
End;


Наверх

Титульная страница Поиск, карта сайта Написать письмо