Ver Mensaje Individual
  #4  
Antiguo 31-08-2003
Ruben_Cu Ruben_Cu is offline
No confirmado
 
Registrado: oct 2003
Ubicación: Mariel, Cuba
Posts: 271
Reputación: 0
Ruben_Cu Va por buen camino
Hola VolaRe, colocar una imagen en cada panel es posible puedes hacerlo utilizando el índice de cada panel como te muestro en el código siguiente:
Código:
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
        case panel.Index of
        0:  Statusbar1.Canvas.Draw(10,4,image1.Picture.Bitmap);
        1:  Statusbar1.Canvas.Draw(60,4,image2.Picture.Bitmap);
       end;
end;
Para lograr una adecuada ubicación de las imagenes en función del tamaño del panel leete este hilo y entonces sustituyes los valores de x en la función Draw por los que he colocado a partir del segundo panel.
http://www.clubdelphi.com/foros/show...ight=statusbar
Saludos
Responder Con Cita