FiveTech Software tech support forums

Posted: **Tue Jan 22, 2019 9:19 am**

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,

Posted: **Tue Jan 22, 2019 12:21 pm**

Quizás así ?

Code: Select all

DEFINE BUTTONBAR oBar OF oWnd SIZE 80,80 2007 NoBorder

Posted: **Tue Jan 22, 2019 12:26 pm**

Mira si és esto:

Code: Select all

#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.

Posted: **Tue Jan 22, 2019 7:50 pm**

Hola, lo logre de la siguiente forma:

obar:WinStyle(WS_BORDER, .F.)

Muchas gracias, saludos,

FiveTech Software tech support forums

Buttonbar linea inferior

Buttonbar linea inferior

Re: Buttonbar linea inferior

Re: Buttonbar linea inferior

Re: Buttonbar linea inferior