Я столкнулся с некоторой проблемой, это только я или вы не можете назначить изображение из ресурса для глифа TSpeedButton без отвратительного черного контура, как показано ниже?
Я назначил его точно так же для компонента TImage, и я получаю необходимый результат.
Я искал довольно долгое время, но никто, похоже, не сталкивался с этой причудливой и раздражающей проблемой.
Вот мой исходный код для формы ниже:
procedure TForm3.Button1Click(Sender: TObject);
var r : tresourcestream; png : tpngimage;
begin
r := tresourcestream.CreateFromID(hinstance,34,'cardimage');
png := tpngimage.Create;
png.LoadFromStream(r);
png.AssignTo(image1.Picture.bitmap);
png.AssignTo(speedbutton1.glyph);
png.Free;
r.Free;
end;
34 - это изображение типа "cardimage", которое относится к изображению, отображаемому на картинке, если вы уже не догадались.