Ошибка при выводе картинок
Ситуация: Есть список записей, которые нужно отобразить в отчете. Одно из полей - номер картинки в TImageList.
Картинку я пишу программно в GetValue:
TfrPictureView * frPicture;
TfrView * frView;
frView = frTheReport->FindObject("StatusPicture");
frPicture = (TfrPictureView*)frView;
frPicture->Picture->Bitmap = Image;
В результате получается, что картинки накладываются одна на другую, т.е. для первой записи - все ОК, для второй - картинка от первой записи, на которую наложена картинка, соответствующая второй записи, и т.д. Как от этого наложения избавиться?
Спасибо!
Картинку я пишу программно в GetValue:
TfrPictureView * frPicture;
TfrView * frView;
frView = frTheReport->FindObject("StatusPicture");
frPicture = (TfrPictureView*)frView;
frPicture->Picture->Bitmap = Image;
В результате получается, что картинки накладываются одна на другую, т.е. для первой записи - все ОК, для второй - картинка от первой записи, на которую наложена картинка, соответствующая второй записи, и т.д. Как от этого наложения избавиться?
Спасибо!
Комментарии
if (View->Name == "StatusPicture")
{
frPicture = (TfrPictureView*)frView;
frPicture->Picture->Bitmap = Image;
}
Хотя проблема оказалась не в Fast Report'е. У TImageList аттрибуты BkColor и DrawingStyle были установлены таким образом, что она записывалась как transparent