Ver Mensaje Individual
  #3  
Antiguo 02-04-2009
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.735
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Otra opción que se me ocurre es que recorras todas las imágenes del ToolBar y las escales para que entren dentro del tamaño del Canvas del Toolbar.

Si todas las imágenes son del mismo tamaño, lo que puedes hacer es decirle que el Width de la imagen es:
Código Delphi [-]
Imagen.Width := ToolBar.Canvas.Width div CantidadDeImagenes;
Sino deberás decirle a cada imagen que es la parte proporcional de la original:
Código Delphi [-]
//Cuanto ocupan los originales
AnchoTotal := Imagen1.Width+Imagen2.Width+Imagen3.Width+Imagen4.Width+...
//Cual es la razon entre el ancho disponible y el ancho de las imágenes
Divisor := ToolBar.Canvas.Width/AnchoTotal;
//Divido el ancho de cada imagen 
Imagen1.Width := Imagen1.Width div Divisor;
Imagen2.Width := Imagen2.Width div Divisor;
Imagen3.Width := Imagen3.Width div Divisor;
...

Última edición por duilioisola fecha: 02-04-2009 a las 17:02:50.
Responder Con Cita