Clipper On Line • Ver Tópico - Mudar um label em uma janela inativa

Mudar um label em uma janela inativa

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Mudar um label em uma janela inativa

Mensagempor Paulao » 11 Jun 2019 01:24

Pessoal, esta deve ser fãcil mas não consegui, eu quero fazer piscar o Label_1, mas eu quero que comece a piscar quando eu clicar confirmar e o foco for para outra função como mostra abaixo

Define WINDOW Form_rep;
    AT 0, 0 ;
    WIDTH 800 ;
    HEIGHT 400 ;
    TITLE "Replica lote" ;
    ICON cPathImagem+'display.ico';
    MODAL;
    NOSIZE

      @ 125,50 LABEL Label_1 ;
         VALUE 'Blink Test:' AUTOSIZE ACTION This.Blink := .T.

    *__________________
    DEFINE BUTTONEX BTN_GRAVA
        ROW 330
        COL 270
        WIDTH 100
        HEIGHT 030
        CAPTION 'Confirmar'
        PICTURE cPathImagem+'ok.bmp'
        FONTNAME "Tahoma"
        FONTBOLD .T.
        LEFTTEXT .F.
        ACTION Gera_rep()

    END BUTTONEX
    DEFINE BUTTONEX BTN_CANCELA
        ROW 330
        COL 395
        WIDTH 100
        HEIGHT 030
        CAPTION 'Fechar'
        PICTURE cPathImagem+'cancela.bmp'
        FONTNAME "Tahoma"
        FONTBOLD .T.
        LEFTTEXT .F.
        ACTION form_rep.release
    END BUTTONEX
    END WINDOW
    CENTER WINDOW FORM_rep
    ACTIVATE WINDOW FORM_rep
return .t.


Func Gera_rep()

Form_pag.Label_1.Blink := .T.

outros comandos

return
Paulao
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 183
Data de registro: 09 Jul 2004 11:03
Cidade/Estado: Franca
Curtiu: 0 vez
Mens.Curtidas: 1 vez



Retornar para MiniGui

Quem está online

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