TImage: баг с иконками большими 32х32

← →
AlexeyT © (2006-06-25 00:47) [0]

Кажется, TImage неправильно считает размер иконки, большей чем 32х32. Берем например иконку 48х48 и загружаем:

procedure TForm1.FormShow(Sender: TObject); begin Image1.AutoSize:= true; Image1.Picture.LoadFromFile("C:\test_icon_48x48.ico"); end;

И видим *усеченную* инонку в квадрате 32х32 !
Налицо баг в VCL. Повторяется в D5-D7.
Это можно как-то поправить/обойти?

← →
Phoroon~ (2006-06-25 01:09) [1]

Так може икона твоя, содержит и 16X16 и, 32x32, и 48X48

← →
AlexeyT © (2006-06-25 11:03) [2]

Проверил, нет, содержит только один большой размер (48х48 в примере).

← →
Loginov Dmitry © (2006-06-25 12:36) [3]

> Это можно как-то поправить/обойти?

Поставить Image1.AutoSize:= False;

и корректировать размеры имаги вручную.

> Поставить Image1.AutoSize:= False;
> и корректировать размеры имаги вручную.

А как я узнаю размер иконки?
Image.Picture.Width/Height возвращают 32.

Прочитав заголовок ico-файла.

TImage: баг с иконками большими 32х32 Найти похожие ветки