Перестроить процедуры инициализации битмапа

@xVahax · Регистрация: 27.11.2012

Author24 — интернет-сервис помощи студентам

Народ не могу сообразить как изменить две процедуры так, чтобы они использовали файлы БМП не те, что находятся в папке с программой (создается список в стринглист из имен файлов в папке ...\backgrounds\ ), а единственную картинку которая расположена на форме в Image 1

Вот команды вызова процедур (идут по порядку):

Delphi

1 2	initBackgroundsNames(); initBackGroundBitmap(backgroundsNames[0]);

Вот Сами процедуры:

Delphi

procedure TF_About.initBackgroundsNames();
var
  searchRec: TSearchRec;
begin
  backgroundsNames := TStringList.Create();
  if findFirst('.\backgrounds\*', faAnyFile, searchRec) = 0 then
    begin
    repeat
      if extractFileExt(searchRec.Name)='.bmp' then
        backgroundsNames.Add(searchRec.Name);
    until findNext(searchRec)<>0;
    end;
end;

Delphi

procedure TF_About.initBackgroundBitmap(fileName: string);
begin
  if not assigned(backgroundBitmap) then backgroundBitmap := TBitmap.Create();
  try
    backgroundBitmap.LoadFromFile(rep+'backgrounds\'+fileName);
    backgroundBitmap.PixelFormat := pf24bit;
  except
    showMessage('Error: couldn''t load background image');
  end;
end;

Переменная rep равна каталогу исполняемого файла ( ExtractFilepath(Application.Exename) )
Если кому не сложно и, главное, понимает как это сделать, помогите пожалуйста.

Добавлено через 22 часа 34 минуты
Актуально еще все.

	19.04.2013, 15:28