Expandir imagen en un SpeedButton (URGENTE !!)

[jymy788]

Buenas a todos los del foro.

A ver, seguro que para muchos esto es una tontería pero a mi se me ha atragantado y no soy capaz de sacarlo:

Tengo una serie de SpeedButtons asociados a un imagelist. Las imágenes son pequeñas y los botones grandes y quiero que cuando las cargue en los botones las expanda (me da igual que las pixelice) al tamaño del speedbutton. Me podéis echar un cable?

Gracias a todos.

[Neftali [Germán.Estévez]]

Empezado por jymy788

Tengo una serie de SpeedButtons asociados a un imagelist. Las imágenes son pequeñas y los botones grandes y quiero que cuando las cargue en los botones las expanda (me da igual que las pixelice) al tamaño del speedbutton. Me podéis echar un cable?

Bueno, con el componente estandard no se si lo vas a poder hacer, pero derivándolo no debe ser muy difícil.
El método Paint de TSpeedButton está protected y por lo tanto puedes hacer un override.
Crea un componente derivado, redefine el paint en la zona protected con algo como ésto:

Código Delphi [-]
  procedure Paint; override;

y debajo generas una implementación similar a ésta:

Código Delphi [-]
const
  SPACE_BORDER_BUTTON = 2;
var
  MyOther: TRect;
begin
  inherited;
  { Calculamos la nueva zona de dibujo (ampliamos con dos
    pixels para no machacar los bordes del botón}
  MyOther := Self.ClientRect;
  MyOther.Left := MyOther.Left + SPACE_BORDER_BUTTON;
  MyOther.Top := MyOther.Top + SPACE_BORDER_BUTTON;
  MyOther.Right := MyOther.Right - SPACE_BORDER_BUTTON;
  MyOther.Bottom := MyOther.Bottom - SPACE_BORDER_BUTTON;
  // Repintar rellenado el Rect
  Self.Canvas.StretchDraw(MyOther, Self.Glyph);

Espero que te sirve. Si te da algun error ya dirás...