如何使BitBtn上加载的图像自适应BitBtn的大小。用speedbutton也行。在线

Question

如题。
通过给分

Answer 1

procedure TButtonGlyph.SetGlyph(Value: TBitmap);
var
  Glyphs: Integer;
begin
  Invalidate;
  FOriginal.Assign(Value);
  if (Value <> nil) and (Value.Height > 0) then
  begin
    FTransparentColor := Value.TransparentColor;
    if Value.Width mod Value.Height = 0 then
    begin
      Glyphs := Value.Width div Value.Height;
      if Glyphs > 4 then Glyphs := 1;
      SetNumGlyphs(Glyphs);
    end;
  end;
end;这是Tbitbtn中最终实现TBitmap对象设置成为加载图像的代码，你看看可不可以在这个基础上改一下。