Вот небольшой пример того, как можно загрузить иконку, содержащуюся в файле EXE, в Glyph у SpeedButton, и как очистить этот самый Glyph. Огорчен, но комментарии в исходном коде на испанском языке.
{Crea una instancia de TPicture} Pic := TPicture.Create; {Asigna el icon.handle a la propiedad Pic.icon}
Pic.Icon := Icon;
{Configura el tamano del bitmap como el del icono y el del segundo bitmap con el tamano del boton} oBitmap := TBitMap.create; oBitmap2 := TBitMap.create; oBitmap2.Width := Icon.Width; oBitmap2.Height := Icon.Height; oBitmap.Width := boton.Width-4; oBitmap.Height := boton.Height-4;
{ Dibuja el icono en el bitmap } oBitmap2.Canvas.Draw( 0, 0, Pic.Graphic ); rBoton.left := 1; rBoton.Top := 1; rBoton.right:= boton.Width-6; rBoton.Bottom := boton.Height-6; oBitmap.Canvas.StretchDraw(rBoton, oBitmap2);
Boton.Hint := Programa;
NombreBitmap := Copy(programa, 1, Length(programa)-3)+'BMP'; {Salva el bitmap en un fichero} If Not FileExists(NombreBitmap) Then begin oBitmap.SaveToFile(ExtractFilePath(Application.ExeName)+ExtractFileName(NombreBitmap)); Boton.Glyph := oBitmap; end else {Carga el BMP en el boton} Boton.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+ExtractFileName(NombreBitmap));
try {Configuara el tamano del bitmap como el del icono y el del segundo bitmap con el tamano del boton} oBitmap := TBitMap.create; oBitmap.Width := boton.Width-4; oBitmap.Height := boton.Height-4; Boton.Glyph := oBitmap;