Как присвоить изображение свойству объекта стиля TImage, используя StylesData?

[kvantum]

Здравствуйте ! 

 

Задача состоит в загрузке в элемент списка картинки из потока и установке значения текстовому свойству

 

StyleBook имеет вид, представленный на скриншоте. 

 

Присвоение значения свойству userlogin реализуется как :    

 

Item.StylesData['UserLogin.Text']:=FieldByName('Login').AsString;

 

Как по аналогии загрузить изображение в свойство userimage (по типу Image.Bitmap.LoadFromStream(Stream)) ?

 

 

[xenon54]

var
o : TImage;
begin
   O := Panel1.FindStyleResource('userimage');
   if Assigned(O) then
   begin
      o.bitmap.loadfromstream(stream);   
   end;
end;

Попробуй так.

[kvantum]

И ... не работает. FindStyleResource возвращает nil

[Brovin Yaroslav]

Добрый день,

 

Например так:

Item.StylesData['userimage.bitmap'] := TValue.From<TBitmap>(MyBitmap);

[kvantum]

Спасибо, Ярослав, Вы как всегда на высоте!

 

Завершающий вопрос : в каком методе уничтожать созданную переменную Bitmap ?

Stream := CreateBlobStream(FieldByName('Data'), bmRead);
try
  Bitmap:=TBitmap.Create;
  Bitmap.LoadFromStream(Stream);
  Item.StylesData['userimage.bitmap'] := TValue.From<TBitmap>(Bitmap);
  //   Bitmap.Free;
except
end;
Stream.Free;

Изменено 14 января, 2015 пользователем Brovin Yaroslav

[Brovin Yaroslav]

Не за что, обращайтесь.

 

TValue не создает копии вашего изображения. Поэтому лучше хранить изображение отдельно и удалять его после того, как изображение больше не нужно будет выводить в стилевой объект.