Перейти к содержанию
Fire Monkey от А до Я
  • 0

Как получить Bitmap из TStyleObject


VirusZ2D

Вопрос

Доброго времени суток подскажите как получить картинку из TStyleObject  

var
  Item:TListBoxItem;
  StyleObject: TStyleObject;
begin
  Item  := ListBox1.ItemByIndex(0);
  StyleObject := TStyleObject(Item.FindStyleResource('styleobjectstyle'));
  if (StyleObject <> nil) and (StyleObject is TControl) then
  begin
    Image1.Bitmap:= StyleObject.Source;   // Выводит изображение указанное в SourceLookUp целиком;
    Image1.Bitmap := // Интересует как вывести изображение обрезанное с учетом SourceLink
  end;
Ссылка на комментарий

Рекомендуемые сообщения

  • 0

Function TForm1.GetImage(const AImageName: string): TBitmap;
var
  StyleObject: TFmxObject;
  Image: TImage;
begin
  StyleObject := ImageBook.Style.FindStyleResource(AImageName);
  if (StyleObject <> nil) and (StyleObject is TImage) then
  begin
    Image := StyleObject as TImage;
    Result := Image.Bitmap;
  end
  else
    Result := nil;
end;





Bitmap:= GetImage('image'+INTTOSTR(I)+'style');
Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...