keine ahnung wieso, aber bei mir gehts nur mit Rect(1, 1, bmp.Width, bmp.Height)
und natürlich brush.color statt pen.color
Delphi-Quellcode:
bmp := TBitmap.Create;
try
bmp.Width := SpeedButton1.Width -4;
bmp.Height := SpeedButton1.Height -4;
bmp.Canvas.Brush.Color := clgreen;
bmp.Canvas.FillRect(Rect(1, 1, bmp.Width, bmp.Height));
SpeedButton1.Glyph.Assign(bmp);
finally
bmp.Free;
end;