Clipper On Line • Ver Tópico - Sombra no Pushbutton

Sombra no Pushbutton

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Sombra no Pushbutton

Mensagempor LIST SYSTEMS » 18 Jan 2019 17:14

Oi, Pessoal!

Alguém sabe como colocar sombra no pushbutton em modo console no Harbour?
Avatar de usuário

LIST SYSTEMS
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 6
Data de registro: 06 Dez 2018 08:06
Cidade/Estado: São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Sombra no Pushbutton

Mensagempor JoséQuintas » 18 Jan 2019 21:40

O que chama de pushbutton?
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Sombra no Pushbutton

Mensagempor Kapiaba » 21 Jan 2019 09:04

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

Abs.

pushbutton.png
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Sombra no Pushbutton

Mensagempor Kapiaba » 21 Jan 2019 10: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.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Sombra no Pushbutton

Mensagempor Kapiaba » 21 Jan 2019 10:50

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

pushbutton.png


Espero ter ajudado.

Abs.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Sombra no Pushbutton

Mensagempor JoséQuintas » 21 Jan 2019 11:51

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


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

Kapiaba escreveu: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.

jpasemmanifest.png


jpacommanifest.png


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.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Sombra no Pushbutton

Mensagempor LIST SYSTEMS » 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!
Anexos
PushbuttomShadow.png
PushbuttomShadow.png (2.07 KiB) Visualizado 586 vezes
Avatar de usuário

LIST SYSTEMS
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 6
Data de registro: 06 Dez 2018 08:06
Cidade/Estado: São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Sombra no Pushbutton

Mensagempor alxsts » 22 Mai 2019 03:09

Olá!

Usando Harbour puro, pode-se escrever
   #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 )
Anexos
hbBtnShadow.JPG
hbBtnShadow.JPG (9.91 KiB) Visualizado 580 vezes
[]´s
Alexandre Santos (AlxSts)
alxsts
Colaborador

Colaborador
 
Mensagens: 2943
Data de registro: 12 Ago 2008 15:50
Cidade/Estado: São Paulo-SP-Brasil
Curtiu: 21 vezes
Mens.Curtidas: 248 vezes

Sombra no Pushbutton

Mensagempor LIST SYSTEMS » 29 Mai 2019 12:36

Oi, Pessoal!

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

@ 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!

Anexos
Sem título.png
Sem título.png (1.32 KiB) Visualizado 507 vezes
Avatar de usuário

LIST SYSTEMS
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 6
Data de registro: 06 Dez 2018 08:06
Cidade/Estado: São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro