BorlandTalk.com

eshipman · Guest

I am able to load a TIcon with a 64x64 .ico. However, When trying to
load the same icon into a TImageList, with height/width set to 64/64,
I get the invalid image size error.

I set the Icon's height and width to 64/64 after creation.

Why would TIcon reset it's size to 32x32? I see FRequestedSize is set
to 64x64 but height/width is 32/32?

var
icon: TIcon;
begin
icon := TIcon.Create;
try
icon.Height := 64;
icon.Width := 64;
icon.handle := LoadImage(HInstance, 'LARGE_ICON', IMAGE_ICON,
64, 64, LR_LOADTRANSPARENT);
image1.Picture.Icon.Assign(icon);
// error happens here when TCustomImageList.CheckImage is called
imagelist1.AddIcon(icon);
finally
icon.Free;
end;
end;