Форум: "WinAPI";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Вниз

Вывод bitmap из ресурса   Найти похожие ветки 

← →
Evgeny   (2001-12-04 10:42) [22]

Проверил. Да действительно мерзко. Посмотрим EXE файл внутри, что это? Картинка то 24 битная. Нет мы так не договаривались. Разговор шел о 256 цветной. Привожу твою картинку любым редактором в 256 цветную и повторяю эксперимент. Ну вот теперь она смотрится изумительно.

procedure TForm1.FormCreate(Sender: TObject);
var
HB: HBitmap;
HP: HPalette;
begin
// Оригинал напрямую - Терпимо
Image1.Picture.Bitmap.LoadFromResourceName(hInstance, "PHOTO_16");
// Оригинал через xLoadBitmap - Мерзко
xLoadBitmap(hInstance, "PHOTO_24", HB, HP);
Image2.Picture.Bitmap.Handle := HB;
Image2.Picture.Bitmap.Palette:= HP;
// 256 цветный через xLoadBitmap - Хорошо
xLoadBitmap(hInstance, "PHOTO_8", HB, HP);
Image3.Picture.Bitmap.Handle := HB;
Image3.Picture.Bitmap.Palette:= HP;
end;

---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.004 c