TImageList в TImage

[лёля]

 как програмно изменть отображаемую из TImageList  в  TImage  картинку

[dnekrasov]

15 часов назад, лёля сказал:

 как програмно изменть отображаемую из TImageList  в  TImage  картинку

Не совсем понятна задача. Поподробнее опишите.

[лёля]

в TImageList есть картинки котрые может отобразить  TImage в зависимоти от ситуации необходимо братьтуили иную картинку в 

TImageList и вставлять  в TImage

 

 

 

 

 

Изменено 23 апреля, 2019 пользователем лёля
уточнение здания

[dnekrasov]

В 22.04.2019 в 19:15, лёля сказал:

в TImageList есть картинки котрые может отобразить  TImage в зависимоти от ситуации необходимо братьтуили иную картинку в TImageList и вставлять  в TImage

Хм... Я смотрю Help совсем популярностью у Вас не пользуется...

TImageList.Bitmap(...)
TImageList.BitmapExists(...)
TImageList.BitmapItemByName(...)

[лёля]

У меня с иностраным слабовато

[лёля]

TImageList.BitmapItemByName(...) - сюда индекс картинки писать? и ниполучаеться как битмапы в TImageList храняться? возможно внрнутьих обратно в пнг

[dnekrasov]

Это уже не смешно - здесь не кружок "юный Delphi-программист" и программированию не обучают.

 

А по сути вопроса - зачем Вам вообще ImageList если нужны png-файлы. Используйте ресурсы (Project->Resources and Images), а загрузить в TBitmap можно так:

function LoadBitmapFromResourceName(const AResName: string; AResType: PChar = RT_RCDATA): TBitmap;
var
  RS: TResourceStream;
begin
  RS := TResourceStream.Create(hInstance, AResName, AResType);
  try
    Result := TBitmap.CreateFromStream(RS);
  finally
    FreeAndNil(RS);
  end;
end;

 

[лёля]

Дело в том что мне нужно чтобы они были внутри одного exe файла

[dnekrasov]

2 минуты назад, лёля сказал:

Дело в том что мне нужно чтобы они были внутри одного exe файла

Так оно и будет. Почитайте про ресурсы...

[лёля]

Возможно по индесу из TImageList брать ?

[dnekrasov]

2 минуты назад, лёля сказал:

Возможно по индесу из TImageList брать ?

ImageList1.Bitmap(Size, Index). Для уточнения - читайте Help. Не знаете английский - изучайте или словарём пользуйтесь (заодно и учитесь Help-ом пользоваться). Ещё раз повторюсь - здесь не кружок "юный Delphi-программист"

[лёля]

ладно все спасибо