PC Toledo

... menu é montado (Linhas 38 até 56)
// Não se preocupe em entender essas linhas, por enquanto
// Você pode estudar isso depois.
oMainMenu := HBTopBarMenu():new( 0, 0, MaxCol() )
oMainMenu:colorSpec := cMenuColor


FOR EACH hElement IN hMenu
oSubMenu := Popup():new()
oSubMenu:colorSpec ...

... T.
MenuModal( oTopBar , 1, ;
MaxRow(), 0, MaxCol(), ;
oTopBar:colorSpec )
ENDDO
RETURN

FUNCTION CreateMainMenu()
LOCAL oMainMenu := HBTopBarMenu():new( 0, 0, MaxCol() )
LOCAL bMenuBlock := {|o| MenuSelect(o) }
LOCAL cMenuColor := "N/BG,W+/R,GR+/BG,GR+/R,N+/BG,N/BG"
LOCAL aItems ...

... Main Report ", K_ALT_M, "Report main", 21 }, ;
{ " Account details ", , "Details for account main", 24 } ;
}


oMainMenu := HBTopBarMenu():new( 0, 0, MaxCol() )
oMainMenu:colorSpec := cMenuColor


FOR EACH hElement IN hMenu
oSubMenu := Popup():new()
oSubMenu:colorSpec ...

... CLASS TBColumn
./src/rtl/pushbtn.prg:CREATE CLASS PushButton FUNCTION HBPushButton
./src/rtl/ttopbar.prg:CREATE CLASS TopBarMenu FUNCTION HBTopBarMenu
./src/rtl/radiobtn.prg:CREATE CLASS RadioButtn FUNCTION HBRadioButton
./src/rtl/tgethb.prg:CREATE CLASS hb_Get INHERIT Get
./src/rtl/tmenusys ...

O menu que uso está postado aqui.
Mas é só pesquisar, vai encontrar várias opções aqui no fórum.

https://pctoledo.org/forum/viewto ... 43&t=14790

Obrigado pela ajuda. Vou estudar a função e lhe posto alguma dúvida, se houve.

Muito obrigado mesmo!

Menu estilo Windows é igual o iniciar do Windows, sempre começa na opção zero.
Só é interessante pra menus bem pequenos.
A opção que conheço é fazer em estilo Clipper mesmo.

Bem, não sei se é o que você está buscando mas veja o tópico: https://pctoledo.org/forum/viewtopic.php?f=43&t=15281

Faça o download do exemplo de menu: https://pctoledo.org/forum/download/file.php?id=1557

http://uploaddeimagens.com.br/images/000/320/670/full/Captura_de_tela_de_2014-07-25_19_46 ...

... submenu) e, depois de selecionado um item no submenu, ele ficava no item selecionado, aguardando outra seleção. Só que não consigo isso com o HBTopBarMenu(), ele sempre reconstrói todo o menu novamente e eu preciso pressionar <Enter> para selecionar a primeira opção e abrir a popup com os itens ...

Complementando a informação do Jairo, veja esta mensagem:

https://pctoledo.org/forum/viewto ... 342#p90320

Tags: TopBarMenu, HBTopBarMenu

Abraços,

Olá Fernando,

Em Harbour é: HBTopBarMenu()

... passou para o Mauricio Elias. Tudo ocorreu normalmente. O Sistema foi compilado.

Encontrei alguns problemas com:
- Menu: TopBarMenu() -> HBTopBarMenu()
- SWITCH -> CASE
Mas, resolvi sem muito trabalho!

Agora, estou com problema na verificação de um arquivo com atributo +H. No xHarbour ...

Toledo, desculpe, desconsidere a mensagem anterior, encontrei o erro: usei TopBarMenu() em vez de HBTopBarMenu() como fizeste. Troquei e deu certo, compilou correto e abriu o sistema. Precisarei fazer uns ajustes, mas o que eu precisava já consegui! Inclusive um erro que dava no xHarbour já não ...

simoreira escreveu:O que pode estar acontecendo?

Sérgio, siga o meu exemplo da minha mensagem anterior, troque TopBarMenu por HBTopBarMenu.

Abraços,

... T.
MenuModal( oTopBar , 1, ;
MaxRow(), 0, MaxCol(), ;
oTopBar:colorSpec )
ENDDO
RETURN


FUNCTION CreateMainMenu()
LOCAL oMainMenu := HBTopBarMenu():new( 0, 0, MaxCol() )
LOCAL bMenuBlock := {|o| MenuSelect(o) }
LOCAL cMenuColor := "N/BG,W+/R,GR+/BG,GR+/R,N+/BG,N/BG"
LOCAL aItems ...