Jump to content
Fivewin Brasil

Ladinilson

Membros
  • Posts

    523
  • Joined

  • Last visited

  • Days Won

    9

Posts posted by Ladinilson

  1. Bom dia senhores,

    Necessitava também dessa forma de apresentar duas telas para meu programa de bingo onde a parte da marcação das bolas ficava com o operador e as informações do andamento do bingo para um monitor ou diretamente para uma TV.

    Na rotina que é chamada tem uma linha que chama outra rotina ou seja, a primeira chamada seria para o monitor 1 (notebook) e a segunda chamada para o monitor 2 (TV)...

    FUNCTION TELANOT()
    ...
    TELATV()
    ...
    RETURN NIL
    
    STATUC FUNCTION TELATV()
    ...
    RETURN NIL

    pJyzVUe.pngZo0gmYq.pngs

    Tela 1 (notbook)
    Tela 2 (TV) 
     

    Para a segunda tela (TV) uso a funcão de deslocamento como:

    vLinSegT := 0
    vColSegT := 2015
    oWnd:MOVE(vLinSegT,vColSegT)

    O8Hjl4k.png

    Sem o uso da função MOVE() ou colocando zero na variável vColSegT, as telas ficam sobrepostas.
    A solução é bem simples mas tem efeito imediato nas duas telas por se tratar de rotinas intrelaçadas e lembrando o Windows deve estar configurado para 2 telas.

    Espero que ajude ou pelo menos sirva de base!
    Abraços

  2. 8 horas atrás, rochinha disse:

    Amiguinhos,

    Ladinilson o problema esta nos espaços no nome da fonte. Tente colocar o nome do arquivo fisico.

    Ao acrescentar uma fonte no Windows não basta copiar para a pasta FONTS, você deve instalar pelo recurso próprio do Windows.

    Entre na pasta Windows\fonts copie a fonte para dentro, mude o nome retirando espaços, dê botão direito sobre a mesma e escolha Instalar.

    Após verifique no Word se a mesma aparece na lista de fontes e verifique se o seu aplicatio consegue encontrá-la.

    Tenho esse conhecimentro amigo, é que em determinado momento quase TODOS aqui já tiveram algum problema com fonts e é comum na linguagem.
    Estou tentando outras alternativas para contornar esse problema.

    Obrigado

  3. Bom dia caros,

    Alguém já teve este problema com BTNBMP que ja tentei de tudo e não pega o FONT nem com reza do Kapiaba para ver o Corinthians dele vencer!.


    ShDiPLi.jpg

    DEFINE FONT oFontBOLI  NAME "ARIAL ROUNDED MT BOLD" SIZE 0,-52 
    
    OU
    
    oFontBOLI := TFont():New( "ARIAL ROUNDED MT BOLD", 0, -52,, )
    
    REDEFINE BTNBMP ButQST[nContST] ID nIDST OF oWnd FONT oFontBOLI FILE (fbitm)+"\BOLAQD.PNG" PROMPT ALLTRIM(STR(nContST,2)) ADJUST CENTER 
    ButQST[nContST]:lTransparent := .t. 
    ButQST[nContST]:lBoxSelect   := .f.
    ButQST[nContST]:lMOver       := .f.
    ButQST[nContST]:lRound       := .f.
    ButQST[nContST]:lBtnDown     := .f.
    ButQST[nContST]:lBorder      := .f.                   
    ButQST[nContST]:lPressed     := .F.  
    
    // --- OPÇÕES FEITAS E NENHUMA DERAM CERTO
       ButQST[nContST]:SETFONT(oFontBOLI)    
       ButQST[nContST]:oFont := oFontBOLI                        
       SET FONT OF ButQST[aNumeroST] TO oFontBOLI                        
       ButQST[nContST]:REFRESH()
       AEval( ButQST, { |oBtn| oBtn:oFontBold := oFontBOLI, oBtn:Refresh() } )
       AEval( ButQST, { |oBtn| oBtn:oFontBold := nil, oBtn:SetFont( oFontBOLI ), oBtn:Refresh() } )
       AEval( ButQST, { |oBtn| oBtn:SetFont( oFontBOLI), oBtn:Refresh() } )
    //----------
    
    ButQST[nContST]:SETCOLOR( NRGB(180,180,180) )         
    ButQST[nContST]:REFRESH()                                          

    Vi em outros tópicos que esse problema de Font se estende a muitos comandos.

     

     

     

  4. Eu criei dois programas, um que cria o ZIP com o executável, DLL, DBFs, etc a escolher o que seria apenas atualizado desses tipos de arquivos e um outro programa para o cliente para fazer esta atualização com o ZIP mas antes de faz todo um backup e atualiza os o executável, DLLs e DBf com campos novos das tabelas.

    Para SQL, esta atualização do banco de dados não fiz e funciona apenas executáveis e DLLs mas para as versões DBFs, funciona que é uma beleza a muito tempo.

    Este ano é série B no Corinthians do Kapiaba kkkkk

     

  5. Boa noite amigos, alguma coisa sobre acesso do programa via WEB clicando em um link para abrir no navegador?
    Li sobre o TSPLUS e parecia algo bem interessante pois trabalho com programa para bingos e os clientes me cobram de vendas de cartelas pelo celular que no momento o que me falta é tempo para estudar uma nova linguagem ou quem tivesse algo parecido, me contate.

    Site do meu programa de bingo.

    http://www.lsbingo.com.br

    Obrigado

     

  6. Nosso amigo sempre mandando as últimas novidades parabéns!
    Mas te juro meu amigo, se algo que poderia vir em direção aos sistemas em web ou mobile na mesma pegada dos comandos que estamos acostumasdos a usar, seria uma alegria igual ao meu Mengo quando da uma goleada no teu Corinthians kkkkkk

  7. 17 horas atrás, Jorge Andrade disse:

    Sai do sofá malandro, pega o trampo, vai de buzoviski pra economizar, leva marmitão de salsicha ao molho e fica rico. ahahahahah

    Na minha opinião esta é uma profissão que já deveria ser HÁ MUITO TEMPO home office, muitos daqui (acredito eu) trabalham na madrugada como até hoje eu faço por ter o melhor tempo e até condições para melhor concentração nas linhas de código e sinceramente, hoje em dia perder tempo em trânsito e ainda muitos estresse até no ambiente de trabalho, ao meu ver desnecessário e até para os CEO da vida as despesas trabalhistas e funcionais são bem mais reduzidas mas isso É MINHA OPINIÃO.

    Mas claro, quando trabalhei em uma empresa como gerente geral do ti e desenvolvimento, era muito legal se reunir com o pessoal e namorar aquela colega rsrs

    Abraços e bom final de semana a todos.

  8. Em 11/01/2023 at 13:56, bortot disse:

    PRECISO DE PROGRAMADOR FIVEWIN PARA MELHORAR E ATUALIZAR SISTEMA PARA SUPERMERCADO EM FIVEWIN .

    QUE ESTA FUNCIONANDO POR DECADAS..

    FUTURO PROMISSOR. A EMPRESA POSSUE VARIOS CLIENTES ATUALMENTE. SOFWARE PARA CAIXA E RETAGUARDA.

    TELEFONE CEL 11 996055773.  REGIAO DA ZONA LESTE E ALTO TIETE

    Como discutido ai em cima, se em home office poderia até me candidatar.

×
×
  • Create New...