Clipper On Line • Ver Tópico - Usando o componente Panel para simular "StatusBar"

Usando o componente Panel para simular "StatusBar"

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Usando o componente Panel para simular "StatusBar"

Mensagempor asimoes » 24 Dez 2018 17:19

Ainda uso a hwgui 2.17, tava querendo colocar cor de texto e fundo na status bar ( ADD STATUS ) não estava conseguindo mesmo olhando a MiniGui que faz isso, não consegui reproduzir na hwgui, então fiz uma função usando panel para simular a "statusbar"

Sei que na versão atual da hwgui tem esse recurso estilizado, mas não tenho nenhum projeto pra iniciar no momento com a nova hwgui.
Vou me virando na 2.17 como posso.

Ex.:
Anexos
2018-12-24 18_12_27-h-Combo.png
Usando o objeto panel pra simular a barra de status
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Usando o componente Panel para simular "StatusBar"

Mensagempor Fernando queiroz » 24 Dez 2018 17:24

eu uso assim

ADD STATUS PANEL TO oMENUPRINC HEIGHT 30 HSTYLE HStyle():New( {16770002,16772062}, 1,, 0.4, 16759929 ) PARTS 1450

hwg_WriteStatus( oMENUPRINC,1,"Data Movimento: "+dtoc(M->DAT_HOJE)+" Operador: "+RTRIM(M->OPERADOR)+" - Nivel: "+STRZERO(M->NIV_ACESSO,1,0)+" Computador: "+rtrim(hwg_GetComputerName())+" Usuario: "+hlusuario( ) )

telasgc.jpg
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

Usando o componente Panel para simular "StatusBar"

Mensagempor Fernando queiroz » 24 Dez 2018 17:51

Testei carregando as telas em formato .XML e o resultado foi interessante, vem com todos os recursos

achei show mexer na tela sem precisar compilar novamente, e o poder de embutir o designer no próprio aplicativo é muito interessante

MENUITEM 'Teste Form XML' ID 32034 ACTION HFormTmpl():Read( "FORM\testetela.xml" ):Show()

telasgc.jpg


:)) :)) :)) :-O :-O
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

Usando o componente Panel para simular "StatusBar"

Mensagempor asimoes » 24 Dez 2018 19:50

Não é uma brastemp mas quem quiser usar e melhorar fique a vontade

Pode substituir BACKTRANSPARENT por TRANSPARENT era um conflito de #defines com a gtwvg ou gtwvt nem lembro mais


PUBLIC N_BLUE       := 16711680
PUBLIC N_DARKBLUE   := 10027008
PUBLIC N_WHITE      := 16777215
PUBLIC N_CYAN       := 16776960
PUBLIC N_BLACK      :=        0
PUBLIC N_RED        :=      255
PUBLIC N_GREEN      :=    32768
PUBLIC N_GRAY       :=  8421504
PUBLIC N_YELLOW     :=    65535
PUBLIC N_CLEANBLUE  := 16771276

oIcon := HIcon():AddFile('P:\GERAL\HARBOUR\SOBRE.ICO', 16, 16)

  INIT DIALOG oDlg ;
               TITLE "TESTE COM COMBO" ;
               AT    0, 0 ;
               SIZE  886,317 ;
               FONT  HFont():Add( 'Tahoma', 0, -13, 400 ) ;
               STYLE WS_POPUP + WS_CAPTION + WS_SYSMENU + DS_CENTER ;
               CLIPPER ;
               ON INIT {|| InitStatusPanel("", hwg_RGB( 0, 0, 255 ), N_CLEANBLUE, oIcon, WS_OVERLAPPED, 24, 3 ) }
               .
               .
               .

FUNCTION InitStatusPanel( cCaption, nColorText, nBackPanel, oIcon, nStyle, nHeight, nParts )
LOCAL nColIni := 3, iPart

   MEMVAR cPanel
   
   cPanel := ""
   
   Hb_Default(@cCaption,    "" )
   Hb_Default(@nColorText,  hwg_RGB( 0, 0, 0 ) )
   Hb_Default(@nBackPanel,  hwg_RGB( 255, 255, 255 ) )
   Hb_Default(@nStyle,      WS_OVERLAPPED )
   Hb_Default(@nHeight,     24 )
   Hb_Default(@nParts,      1 )

   @ 000, ThisForm:nHeight - nHeight PANEL oPanelStatus ;
          OF ThisForm ;
          SIZE ThisForm:nWidth, nHeight ;
          STYLE nStyle  ;
          BACKCOLOR nBackPanel

   If Hb_IsObJect( oIcon )
      nColH := Int( (nHeight - 16) / 2 )
      @ nColIni, nColH ICON     IconInfo  ;
                       SHOW     oIcon ;
                       OF       oPanelStatus ;
                       SIZE     16,16 ;
                       TOOLTIP "TESTE"
      nColIni += 25
   Endif
   
   nColH := Int( (nHeight - 24) / 2 ) + 2

   nWidth := ThisForm:nWidth / nParts
   
   For iPart:=1 TO nParts
      cPanel := "oSayPanel" + StrZero(iPart,2)
     
      @ nColIni,nColH SAY  &cPanel.    CAPTION cCaption ;
                           OF          oPanelStatus ;
                           SIZE        ThisForm:nWidth, 24 ;
                           COLOR       nColorText ;
                           BACKTRANSPARENT ;
                           TOOLTIP "TESTE"
      nColIni += nWidth + 5
   Next
               
RETURN oPanelStatus

FUNCTION WriteStatusPanel( cText, nPart )
MEMVAR cPanel
   
   cPanel := ""
   
   Hb_Default(@cText, "")
   Hb_Default(@nPart, 1)
   
   cPanel := "oSayPanel" + StrZero(nPart,2)
   
   ThisForm:oPanelStatus:&cPanel.:SetText( cText )

RETURN Nil   
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Usando o componente Panel para simular "StatusBar"

Mensagempor asimoes » 24 Dez 2018 20:20

Dividido em 4 partes do tamanho da janela

2018-12-24 21_19_17-h-Combo.png
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Usando o componente Panel para simular "StatusBar"

Mensagempor asimoes » 27 Dez 2018 09:05

Barra com efeito gradient

2018-12-27 10_03_32-h-Combo.png
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes




Retornar para HwGui

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