Проясните ситуацию с TImage

[MyLastHit]

Здравствуйте, объясните мне пожалуйста, вот к примеру ситуация:
Я создаю TImage на форме, в инспекторе в picture выбираю нужную мне картинку, и с этого момента она хранится в памяти моего приложения(ну те даже после стирания картинки с HDD она все еще остается в приложении).
Вот ситуация 2. Я беру простым вызовом метода image1.picture.loadfromfile(''); загружаю ту же картинку. Это насколько я понимаю ссылочный вариант и при отсутствии картинки на HDD приложение не сможет ее вывести.
Соответственно вопрос, как кодом загрузить картинку так, чтобы она хранилась в приложении ровно так же как это было в ситуации 1?

[ImmortalAlexSan]

image1.picture.bitmap.loadfromfile('');

[MyLastHit]

Ну неужели я непонятно написал? Мне нужно, чтобы рисунок всегда хранился в приложении, даже если я запущу его на другом ПК, где этого рисунка отродясь не было. Все это нужно сделать кодом, а не кликами в инспекторе. Рисунок и res таскать с собой не хочу. Интересно по какому принципу это делает инспектор.

[ArtGrek]

можно загрузить в имадже и он будет там, а если нужно что б он появился потом, то загрузи в имадые лист, а потом можно брать с него и загружать в обычныи имадге
ImageList

[MyLastHit]

Спасибо кэп) Ты сейчас своими словами пересказал мне первую ситуацию которую я описал выше. Мне нужно это все сделать кодом. Чистым кодом, представьте что инспектора не существует.

[New man]

Я где то читал, вроде сварганить res файл и потом при компиляции
в твою прогу компилятор загрузит

[Аватар]

Или как в первом варианте
или из ресурса
или из прилагаемого файла в том или ином виде
больше нет вариантов

[ArtGrek]

я чет не поиму, у тебя картинка будет одна и тaже? что конкретно ты хочеш делать? может ты просто не знаеш как програмно загрузить картинку в имадже?

[spamer]

Вот правильно люди говорят - ресурсы самое оно...
Вобщем создаете logo.RC файл подобного вида:

L_HEADER_LOGO RCDATA "..\..\Resources\Logo\Header Logo.png"

Компилите его...получаете logo.res файл...
затем например в секцию

implementation
{$R logo.RES}

А затем юзаете подобную функцию:

function LoadPngImageFromResource(const AImage: TJvImage; const AResName: string): Boolean;
var
  tmpPngImage: TPngImage;
begin
  Result := False;
  if (AImage = nil) or (AResName = '') then
    Exit;

  tmpPngImage := TPngImage.Create;
  try
    AImage.Picture := nil;
    tmpPngImage.LoadFromResourceName(HInstance, AResName);
    AImage.Picture.Assign(tmpPngImage);
  finally
    Result := AImage.Picture <> nil;
    FreeAndNil(tmpPngImage);
  end;
end;

Как-то так...

[Serge_Bliznykov]

Добавлю к верным ответам Аватар и spamer

Сообщение от MyLastHit

Интересно по какому принципу это делает инспектор.

при редактировании любого объекта в инспекторе его свойства записываются в файл DFM (который компилятором подключается в качестве ресурсов, кстати). Так вот, Image не является исключением, когда Вы грузите рисунок в инспекторе, он кодируется и записывается прямо в DFM.


p.s. MyLastHit, честно говоря, не понимаю, чем Вас предложенные решения не устраивают!