Можно ли удалить отвратительный контур вокруг глифа TSpeedButton?

Я столкнулся с небольшой загвоздкой, это только у меня, или вы не можете назначить изображение из ресурса глифу 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», которое относится к изображению, показанному на картинке, если вы еще не догадались.

enter image description here

21
задан Johan - reinstate Monica 23 August 2011 в 17:03
поделиться