Barra de botones en línea inferior de la ventana?

[Rafael Clemente]

¿Puede ponerse la ButtonBar en el margen inferior de la ventana? Así funciona:

Code: Select all  Expand view  RUN

Tbar():New(oWnd, 25, 25, .T., "BOTTOM")


pero queda una fea banda gris en la parte superior de la ventana, como si también reservase allí espacio para la barra.
Rafael

FWH 8.05 + Harbour

[Antonio Linares]

Rafael,

Aqui tienes un ejemplo:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oWnd, oBar

   DEFINE WINDOW oWnd

   DEFINE BUTTONBAR oBar OF oWnd 2007

   oWnd:oBottom = oBar
   oWnd:oTop = nil
   oWnd:oBar = nil
   
   DEFINE BUTTON OF oBar ACTION MsgInfo( "click" )

   ACTIVATE WINDOW oWnd

return nil


[Rafael Clemente]

Gracias, Antonio. Funciona perfectamente.
Rafael