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

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

21 голосов
/ 15 марта 2011

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

1 Ответ

32 голосов
/ 15 марта 2011

Очевидно, что альфа канал игнорируется на левом рисунке.Теперь свойство TSpeedButton.Glyph является TBitmap, поэтому может быть проблематично сохранить альфа-канал PNG.Например, 

var
  png: TPNGImage;
begin
  png := TPngImage.Create;
  png.LoadFromFile('C:\Users\Andreas Rejbrand\Pictures\alpha.png');
  SpeedButton1.Glyph.Assign(png); // or png.AssignTo(SpeedButton1.Glyph);

производит

http://privat.rejbrand.se/speedbuttonalpha.png

Одним частичным решением является предварительное смешивание изображения PNG: 

var
  png: TPNGImage;
  bm: TBitmap;
begin
  png := TPngImage.Create;
  png.LoadFromFile('C:\Users\Andreas Rejbrand\Pictures\alpha.png');
  bm := TBitmap.Create;
  bm.SetSize(png.Width, png.Height);
  bm.Canvas.Brush.Color := Self.Color;
  bm.Canvas.FillRect(Rect(0, 0, bm.Width, bm.Height));
  bm.Canvas.Draw(0, 0, png);
  SpeedButton1.Glyph.Assign(bm);

http://privat.rejbrand.se/speedbuttonalpha2.png

...