procedure TOracleExplorer.MainStatusbarDrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
var ico : TIcon;
begin
    inherited;
    if (Panel.Index=sbDBNameIndex) then 
     begin
       ico := TIcon.Create;
       dmImages.imSmall.GetIcon( imDatabase, ico );
       Statusbar.Canvas.Draw( Rect.Left, Rect.Top, ico );
       Statusbar.Canvas.TextOut( Rect.Left+dmImages.imSmall.Width, Rect.Top, ' '+optUserOptions.sDBName );
       ico.Free;
     end
end;