VPF::Не удается получить иконку приложения

Etar

Дата 10.7.2009, 14:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 60
Регистрация: 21.2.2008

Репутация: нет
Всего: 1

Привет.

Хочу сделать так чтобы у меня на в TImage выводилась иконка приложения (устанавливаемая через Project Options -> Application -> Icon).
Делаю следующее:

Код


Image1.Picture.Bitmap.LoadFromResourceName(HInstance, 'MAINICON');

Выдает ошибку Resource MAINICON not found, хотя в Project1.res ресурс этот есть...

Подскажите, что делаю не так?

THandle

Дата 10.7.2009, 16:05 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 65
Всего: 372

Etar, Bitmap.LoadFromResourceName пытается загрузить MAINICON типа BITMAP:

Код


procedure TBitmap.LoadFromResourceName(Instance: THandle; const ResName: string);
{$IF DEFINED(CLR)}
var
  DIB: TDIBSection;
  NewHandle: HBITMAP;
begin
  NewHandle := LoadImage(Instance, ResName, IMAGE_BITMAP, 0, 0,
    LR_CREATEDIBSECTION or LR_DEFAULTSIZE);
  GetObject(NewHandle, Marshal.SizeOf(TypeOf(DIB)), DIB);
  NewImage(NewHandle, 0, DIB);
  Changed(Self);
end;
{$ELSE}
var
  Stream: TCustomMemoryStream;
begin
  FreeContext;
  Stream := TResourceStream.Create(Instance, ResName, RT_BITMAP);
  try
    ReadDIB(Stream, Stream.Size);
  finally
    Stream.Free;
  end;
end;

А такой картинки там нет, есть только ICON.

ИМХО, надо загружать иконку(в какой-нибудь TIcon), а потом уже отрисовывать на Bitmap'e.

Etar

Дата 10.7.2009, 16:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 60
Регистрация: 21.2.2008

Репутация: нет
Всего: 1

точняк:

Код


Image1.Picture.Icon.LoadFromResourceName(HInstance, 'MAINICON');

Это сообщение отредактировал(а) Etar - 10.7.2009, 16:41

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »