Sombra no Pushbutton
Enviado: 18 Jan 2019 18:14
Oi, Pessoal!
Alguém sabe como colocar sombra no pushbutton em modo console no Harbour?
Alguém sabe como colocar sombra no pushbutton em modo console no Harbour?
Página 1 de 1
Sombra no Pushbutton
Enviado: 18 Jan 2019 22:40
O que chama de pushbutton?
Sombra no Pushbutton
Enviado: 21 Jan 2019 10:04
Mister Quintas, Push Button, é o tipo de botão escolhido.
Abs.
Abs.
Sombra no Pushbutton
Enviado: 21 Jan 2019 11:38
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.
Abs.
Sombra no Pushbutton
Enviado: 21 Jan 2019 11:50
DEFAULT PUSH BUTTON na prática. Veja que o Botão> <Saida>, está em destaque e colorido.
Espero ter ajudado.
Abs.
Abs.
Sombra no Pushbutton
Enviado: 21 Jan 2019 12:51
Não exatamente, já que ele mencionou "CONSOLE", e console não é GUI.Kapiaba escreveu:Mister Quintas, Push Button, é o tipo de botão escolhido.
Na prática, a Microsoft bloqueou os visuais novos pra aplicativos velhos.Kapiaba escreveu:No FiveWin, quando eu quero um botão em destaque
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.
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.
Versão moderna seria a partir do Windows XP/Windows Vista.<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*" />
</dependentAssembly>
</dependency>
Alguns recursos só do Windows Vista pra frente, mas acho que esse negócio do manifest começou no Windows XP.
Sombra no Pushbutton
Enviado: 21 Mai 2019 22:31
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!
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!
Sombra no Pushbutton
Enviado: 22 Mai 2019 03:09
Olá!
Usando Harbour puro, pode-se escrever
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 )Sombra no Pushbutton
Enviado: 29 Mai 2019 12:36
Oi, Pessoal!
Seguindo a dica dada por alxsts, fiz o seguinte código:
Isso resulta na aparência mostrada na figura anexa. Ainda não é uma função, mas já está bom!
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