Sombra no Pushbutton

[LIST SYSTEMS]

Oi, Pessoal!

Alguém sabe como colocar sombra no pushbutton em modo console no Harbour?

[JoséQuintas]

O que chama de pushbutton?

[Kapiaba]

Mister Quintas, Push Button, é o tipo de botão escolhido.

Abs.

[Kapiaba]

Não sei se entendi muito bem, pois não uso modo console, mas tente com o comando DEFAULT no BUTTON que você quer o destaque. Não vai ficar uma sombra, mas ele ficará em destaque para o usuário identificar que aquele é o Botão principal. Se é que eu entendi... No FiveWin, quando eu quero um botão em destaque, eu uso o DEFAULT PUSH BUTTON, mas hoje, posso modificar a cor do botão, se bem que isso não fica muito legal, fica muito fru fru.

Abs.

[Kapiaba]

DEFAULT PUSH BUTTON na prática. Veja que o Botão> <Saida>, está em destaque e colorido.

Espero ter ajudado.

Abs.

[JoséQuintas]

Mister Quintas, Push Button, é o tipo de botão escolhido.

Não exatamente, já que ele mencionou "CONSOLE", e console não é GUI.

No FiveWin, quando eu quero um botão em destaque

Na prática, a Microsoft bloqueou os visuais novos pra aplicativos velhos.
O visual novo só é liberado se usar o manifest contendo a liberação.
Por um tempo dava pra fazer isso via programa, e já resolvia, depois obrigatoriamene precisou do manifest.

E a coisa é pior do que eu pensava.... rs

Veja meu aplicativo com e sem manifest - tem os resources/icones nos dois, a diferença é apenas o manifest mesmo.
Nos botões "velhos" (sem manifest), não existia nem mesmo a opção imagem + texto.

Esta parte do manifest é que libera a versão mais moderna dos controles Windows.
Talvez a Microsoft tenha feito isso porque não dá pra saber se o programa tenta usar recurso desativado, e pra evitar GPF, bloqueou tudo por default.

<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*" />
</dependentAssembly>
</dependency>

Versão moderna seria a partir do Windows XP/Windows Vista.
Alguns recursos só do Windows Vista pra frente, mas acho que esse negócio do manifest começou no Windows XP.

[LIST SYSTEMS]

Oi, pessoal!

Desculpem eu ter perguntado e, depois, largado vocês debatendo! Fiquei muito tempo "enrolado" com meu trabalho...

O que gostaria de fazer é algo como mostrado na imagem anexa (extraída do EDIT do MS-Dos).

Já estou usando o @ GET PUSHBUTTON em modo console. Ele permite a colocação de uma cor diferente quando o btoão está com foco. Mas vou tentar desenvolver uma função que produza esse efeito. Daria um visual mais "estiloso" ao sistema!

[alxsts]

Olá!

Usando Harbour puro, pode-se escrever

Código: Selecionar todos

   #include "box.ch"

   @ 12, 40 GET lBtnExit PUSHBUTTON ;
        CAPTION "    E&xit    " ;
          COLOR cBtnClr ;
          STYLE B_SINGLE ;
          STATE {|| nBtn := IsPressed( 3 ) }
   
   hb_Shadow( 12, 40, 14, 53 )

[LIST SYSTEMS]

Oi, Pessoal!

Seguindo a dica dada por alxsts, fiz o seguinte código:

Código: Selecionar todos

@ 14,32 GET bENTRAR PUSHBUTTON CAPTION " ENTRAR " COLOR cCORBOTOES STYLE "" STATE {||ACESSOBOTOES('ENTRAR')}
	@ 14,40 SAY CHR(220)
	FOR nBOT=33 TO 40
		@ 15,nBOT SAY CHR(223)
	NEXT
	@ 14,42 GET bSAIR PUSHBUTTON CAPTION " SAIR " COLOR cCORBOTOES STYLE "" STATE {||ACESSOBOTOES('SAIR')}
	@ 14,48 SAY CHR(220)
	FOR nBOT=43 TO 48
		@ 15,nBOT SAY CHR(223)
	NEXT

Isso resulta na aparência mostrada na figura anexa. Ainda não é uma função, mas já está bom!