Saludos una consulta es posible crear barra de estados a nuestros sistemas como la del windows 11 ? Gracias
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour barra de estado como windows 11
Estimado Carlos,
Algo asi ?
Algo asi ?
#include "FiveWin.ch"
function Main()
local oWnd, oBar, oBtn
DEFINE WINDOW oWnd COLOR "W/N"
DEFINE BUTTONBAR oBar OF oWnd BOTTOM SIZE 40, 40
oBar:SetColor( "W/N" )
DEFINE BUTTON oBtn OF oBar NOBORDER FILENAME "../bitmaps/32x32/help.bmp"
oBtn:SetColor( "W/N" )
ACTIVATE WINDOW oWnd CENTERED ;
ON RESIZE oBtn:SetPos( 0, oWnd:nWidth / 2 - 40 )
return nilSaludos estimado Antonio, Si poner botones varios pones asi al centro
Programado con vscode y copilot Agent (claude sonnet 4)
#include "FiveWin.ch"
function Main()
local oWnd, oBar, oBtn1, oBtn2, oBtn3
DEFINE WINDOW oWnd COLOR "W/N"
DEFINE BUTTONBAR oBar OF oWnd BOTTOM SIZE 40, 40
oBar:SetColor( "W/N" )
// Primer bot贸n
DEFINE BUTTON oBtn1 OF oBar NOBORDER FILENAME "../bitmaps/32x32/help.bmp"
oBtn1:SetColor( "W/N" )
// Segundo bot贸n
DEFINE BUTTON oBtn2 OF oBar NOBORDER FILENAME "../bitmaps/32x32/help.bmp"
oBtn2:SetColor( "W/N" )
// Tercer bot贸n
DEFINE BUTTON oBtn3 OF oBar NOBORDER FILENAME "../bitmaps/32x32/help.bmp"
oBtn3:SetColor( "W/N" )
ACTIVATE WINDOW oWnd CENTERED ;
ON RESIZE CenterButtons( oWnd, { oBtn1, oBtn2, oBtn3 } )
return nil
//----------------------------------------------------------------------
function CenterButtons( oWnd, aButtons )
local nButtons := Len( aButtons )
local nButtonWidth := 40
local nTotalWidth := nButtons * nButtonWidth
local nStartPos := ( oWnd:nWidth - nTotalWidth ) / 2
local i
for i := 1 to nButtons
aButtons[i]:SetPos( 0, nStartPos + ( (i-1) * nButtonWidth ) )
next
return nilComo poner dos o tres botones mas y que queden todos centrados uno al lado del otro ?
Necesito ver el contenido del archivo carlos.prg para entender la estructura actual y ayudarte a agregar m谩s botones centrados uno al lado del otro.
Read carlos.prg
Veo que tienes un bot贸n en una barra de herramientas que est谩 posicionado en el centro. Para agregar 2 o 3 botones m谩s y mantenerlos centrados uno al lado del otro, necesitamos modificar el c贸digo. Aqu铆 te muestro c贸mo hacerlo:
carlos.prg+27-4
Perfecto! He modificado tu c贸digo para incluir tres botones centrados. Los cambios principales son:
Variables adicionales: Agregu茅 oBtn2 y oBtn3 para los botones adicionales
Tres botones: Cre茅 tres botones usando DEFINE BUTTON
Funci贸n de centrado: Cre茅 la funci贸n CenterButtons() que:
Calcula el ancho total de todos los botones
Determina la posici贸n inicial para centrarlos
Posiciona cada bot贸n uno al lado del otro
La funci贸n CenterButtons() es flexible - puedes agregar o quitar botones del array { oBtn1, oBtn2, oBtn3 } y autom谩ticamente los centrar谩.
Si quieres solo 2 botones en lugar de 3, simplemente:
Elimina la definici贸n de oBtn3
Cambia el array a { oBtn1, oBtn2 }
驴Te gustar铆a que haga alguna modificaci贸n adicional o que los botones tengan diferentes im谩genes o acciones?
esta muy bueno y se puede poner ahi a la derecha otras opciones ?