Pues siguiendo mi respuesta anterior, si lo que quieres es dibujar un bitmap una posible solucion seria poner esto en el evento OnDrawPanel
Código Delphi
[-]
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
var
Bitmap: TBitmap;
begin
Statusbar.Canvas.FillRect(Rect);
if FileExists(Panel.Text) then
begin
Bitmap:= TBitmap.Create;
try
Bitmap.LoadFromFile(Panel.Text);
Bitmap.Transparent:= TRUE;
Statusbar.Canvas.Draw(0,0,Bitmap);
finally
Bitmap.Free;
end;
end;
end;
De esta manera dibujamos en el Panel el bitmap cuya ruta esta escrita en la propiedad text del propio panel, es decir, si tenemos un archivo en d:\1.bmp para cargarlo solo tendriamos que hacer:
Código Delphi
[-]
Statusbar1.Panels[0].Text:= 'd:\1.bmp';
Puede que tangas que modificar algo para adaptarlo a lo que tu pensabas pero espero que te hagas una idea.