Buttonbar linea inferior

[Jorge_T]

Hola a todos,

Quizas la pregunta es simple, pero no encuentro la forma de hacerlo... es posible hacer que no se muestre la linea inferior en una barra de botones,




Este es mi codigo:

function Main()

local oWnd, oBar, oMsgBar, oBtn, oBrush, oFont

DEFINE BRUSH oBrush COLOR RGB(255,255,255)

DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14

DEFINE WINDOW oWnd BRUSH oBrush TITLE "Mi Barra de botones"

DEFINE BUTTONBAR oBar OF oWnd SIZE 80,80 2007
oBar:SetFont( oFont )
oBar:SetColor(0)

oBar:bClrGrad := { | lPressed | If( ! lPressed,;
{ { 1, nRGB( 255, 255, 255 ), nRGB( 255, 255, 255 ) } },;
{ { 1, nRGB( 253, 254, 255 ), nRGB( 192, 192, 192 ) } } ) }


DEFINE BUTTON oBtn OF oBar PROMPT "Nuevo" FILE "..\bitmaps\32x32\new.bmp"
DEFINE BUTTON oBtn OF oBar PROMPT "Abrir" FILE "..\bitmaps\32x32\open.bmp"
DEFINE BUTTON oBtn OF oBar PROMPT "Editar" FILE "..\bitmaps\32x32\edit.bmp"


ACTIVATE WINDOW oWnd maximized
RELEASE BRUSH oBrush
RELEASE FONT oFont

return nil


Muchas gracias,

Saludos,

[horacio]

Quizás así ?

Code: Select all  Expand view

DEFINE BUTTONBAR oBar OF oWnd SIZE 80,80 2007 NoBorder
 

[karinha]

Mira si és esto:

Code: Select all  Expand view

#Include "FiveWin.Ch"

FUNCTION Main()

   LOCAL oWnd, oBar, oMsgBar, oBtn, oBrush, oFont

   DEFINE BRUSH oBrush COLOR RGB( 255, 255, 255 )

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0, - 14

   DEFINE WINDOW oWnd BRUSH oBrush TITLE "Mi Barra de botones"

   DEFINE BUTTONBAR oBar OF oWnd SIZE 80, 80 2015 NOBORDER  // aqui

   oBar:SetFont( oFont )
   oBar:SetColor( 0 )

   oBar:bClrGrad := { | lPressed | If( ! lPressed, ;
      { { 1, nRGB( 255, 255, 255 ), nRGB( 255, 255, 255 ) } }, ;
      { { 1, nRGB( 253, 254, 255 ), nRGB( 192, 192, 192 ) } } ) }

   DEFINE BUTTON oBtn OF oBar PROMPT "Nuevo" FILE "..\bitmaps\32x32\new.bmp"
   DEFINE BUTTON oBtn OF oBar PROMPT "Abrir" FILE "..\bitmaps\32x32\open.bmp"
   DEFINE BUTTON oBtn OF oBar PROMPT "Editar" FILE "..\bitmaps\32x32\edit.bmp"


   ACTIVATE WINDOW oWnd maximized

   RELEASE BRUSH oBrush
   RELEASE FONT oFont

RETURN nil
 

Saludos.

[Jorge_T]

Hola, lo logre de la siguiente forma:

obar:WinStyle(WS_BORDER, .F.)

Muchas gracias, saludos,