Clipper On Line • Ver Tópico - Letreiro Digital com Label

Letreiro Digital com Label

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Letreiro Digital com Label

Mensagempor rubens » 30 Jul 2018 18:19

Boa tarde..

Como eu posso fazer um letreiro digital (marquee) com Label ?
Estou apanhando até com esse negócio aqui...
Eu gostaria que corresse da direita para a esquerda, fosse até o fim e começasse novamente da direita para esquerda... Só consegui jogar do centro para os lados..
      DEFINE LABEL lb_EMPRESA
         PARENT formPDV_000
         ROW   (hjan)-35
         COL   300
         width (wjan)-600
         height 35
         value (cEmpresa)
         fontname "Tahoma"
         fontcolor WHITE
         fontsize 12
         fontbold .T.
         transparent .T.
         FONTUNDERLINE .F.
         BORDER .F.
         ALIGNMENT Center
         VCENTERALIGN .T.
      END LABEL         


DEFINE TIMER Timer_1 ;
         INTERVAL 400 ;
         ACTION { || formPDV_000.lb_hora.Value := Time(), Marquee( ThisWindow.Name, 'lbEmpresa' ) } 


Static Function Marquee(cForm,cLbNome)  
   cString := Left( cEmpresa, Len(cEmpresa)+1 - nTamSpaco )
   nTamSpaco--
   If nTamSpaco = 0
      nTamSpaco := Len( cEmpresa )
   EndIf
   SetProperty( cForm, cLbNome, 'Value', cString )
   SetProperty( cForm, 'LbEmpresa_Fdo', 'Value', cString )
   Return Nil


Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Letreiro Digital com Label

Mensagempor luiz antonio da silva » 30 Jul 2018 20:14

Olá Rubens !

Segue uma ideia...espero que ajude

Abraço.
Luiz
Anexos
marquee.zip
(1.46 MiB) Baixado 112 vezes
HMG 3.4.4 - SQL SERVER - ORACLE
luiz antonio da silva
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 161
Data de registro: 21 Nov 2006 21:12
Cidade/Estado: serrana-sp
Curtiu: 13 vezes
Mens.Curtidas: 10 vezes

Letreiro Digital com Label

Mensagempor Daniel » 01 Ago 2018 09:07

Outro exemplo

/*
* MINIGUI - Harbour Win32 GUI library Demo
*
*/

#include "minigui.ch"

Function Main
nInicio:= nInicio1:= 480
cEmpresa  := 'Teste de Letreiro'
nTamSpaco := 5

      DEFINE WINDOW formPDV_000 ;
         CLIENTAREA 620, 240 ;
         TITLE 'Letreiro' ;
         MAIN

      DEFINE WINDOW Win_2 ;
         ROW  0 ;
         COL 20 ;
         WIDTH 580 ;
         HEIGHT 40 ;
         WINDOWTYPE PANEL

         DEFINE LABEL lb_EMPRESA
            ROW     5
            COL   100
            width 5
            height 35
            fontname "Tahoma"
            fontsize 12
            fontbold .T.
            transparent .T.
            FONTUNDERLINE .F.
            BORDER .F.
            VCENTERALIGN .T.
         END LABEL

         DEFINE LABEL lb_Time
            ROW     5
            COL   500
            width 100
            height 35
            fontname "Tahoma"
            fontsize 12
            fontbold .T.
            transparent .T.
            FONTUNDERLINE .F.
            BORDER .F.
            VCENTERALIGN .T.
         END LABEL

         DEFINE TIMER Timer_1 ;
            INTERVAL 40 ;
            ACTION  Marquee( 'Win_2', 'lb_Empresa', 'lb_Time')

      END WINDOW
   END WINDOW
   formPDV_000.Center
   formPDV_000.Activate
   Return Nil

******************************
Static Function Marquee(cForm, cLbNome, cLbTime)

   If nTamSpaco <= nInicio + (Len(cEmpresa) * 12)
      nTamSpaco+= 4.8
      SetProperty( cForm, cLbNome, 'width', nTamSpaco)
      nInicio1-= 4.8
      SetProperty( cForm, cLbNome, 'col', nInicio1)
   Else
        nTamSpaco:= 5
        nInicio:= nInicio1:= 480
        SetProperty( cForm, cLbNome, 'width', 5)
        SetProperty( cForm, cLbNome, 'col', 100)
   EndIf
   SetProperty( cForm, cLbTime, 'Value', time() )
   SetProperty( cForm, cLbNome, 'Value', cEmpresa )
   Return Nil
Daniel

Harbour + Minigui + dbfcdx
Marinas-Gui Pena que parou o suporte
Avatar de usuário

Daniel
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 373
Data de registro: 13 Ago 2003 22:42
Cidade/Estado: Apucarana - PR
Curtiu: 0 vez
Mens.Curtidas: 36 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 9 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