topic-36652

Posts: 38

Joined: Tue Jan 22, 2019 08:28 AM

Buttonbar linea inferior
Posted: Tue Jan 22, 2019 09: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,

Jorge

--------------------------------------------------

Fivewin 18.10 - Harbour - BCC 7 - PellesC

--------------------------------------------------

horacio

Posts: 1364

Joined: Wed Jun 21, 2006 12:39 AM

Re: Buttonbar linea inferior
Posted: Tue Jan 22, 2019 12:21 PM

Quizás así ?

Code (fw): Select all Collapse

DEFINE BUTTONBAR oBar OF oWnd SIZE 80,80 2007 NoBorder

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Buttonbar linea inferior
Posted: Tue Jan 22, 2019 12:26 PM

Mira si és esto:

Code (fw): Select all Collapse

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

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Jorge_T

Posts: 38

Joined: Tue Jan 22, 2019 08:28 AM

Re: Buttonbar linea inferior
Posted: Tue Jan 22, 2019 07:50 PM

Hola, lo logre de la siguiente forma:

obar:WinStyle(WS_BORDER, .F.)

Muchas gracias, saludos,

Jorge

--------------------------------------------------

Fivewin 18.10 - Harbour - BCC 7 - PellesC

--------------------------------------------------

FiveTech Support Forums

Continue the discussion