Dúvida com SetMode

[JoséQuintas]

Sei lá....
Em 30 anos de windows, nada mudou.
Aplicativo console usa o tamanho da letra da janela console.
Se o tamanho da letra da janela é grande, o aplicativo também vai ter letra grande.
Se alterar só na janela atual, só vale pra janela atual.
Tem que alterar no ATALHO.
No Windows 10 e 11, o atalho não é exatamente aonde clica, como era nos windows anteriores.

Também poderia usar uma GT que não dependa da configuração do Windows.
Só adicionar -gui na compilação, mas se não tiver uma errorsys adequada, vai ficar sem o erro completo quando acontecer erro.

[cjp]

Aplicativo console usa o tamanho da letra da janela console.
Se o tamanho da letra da janela é grande, o aplicativo também vai ter letra grande.

Não entendi bem esta parte. Acho que a questão não é de tamanho da letra, e sim de tamanho da janela.

Se alterar só na janela atual, só vale pra janela atual.
Tem que alterar no ATALHO.

Isso eu sei. Alterei no atalho, não na janela atual.

No Windows 10 e 11, o atalho não é exatamente aonde clica, como era nos windows anteriores.

Como assim? Onde é o atalho? Eu alterei clicando no atalho com o botão direito, escolhendo propriedades.

Também poderia usar uma GT que não dependa da configuração do Windows.
Só adicionar -gui na compilação, mas se não tiver uma errorsys adequada, vai ficar sem o erro completo quando acontecer erro.

Errorsys eu tenho.

Seria só assim?:

Código: Selecionar todos

\hb32\bin\hbmk2 processos -gui

Fiz, compilou normal e aqui testei, tá tudo normal. Mas aqui já estava funcionando. Preciso testar no computador da usuária.

[carlaoonline]

Tenta acessando as propriedades do aplicativo no menu esquerdo superior e deixa na altura e largura da janela as mesmas medidas do SetMode usado no programa.

Setar com as mesmas medidas do SetMode

Na aba "Opções", marcando ou desmarcando as caixas de seleções que estão ali alteram a forma de como o mouse e o copiar-colar funcionam.

[JoséQuintas]

Se ele passou a compilar com -gui, isso não faz mais diferença.

[lucimauro]

Com -gui essa questão da janela fica mais fácil de gerenciar

[Jairo Maia]

Acho que a questão não é de tamanho da letra, e sim de tamanho da janela.

Sem dúvida, mas pelo que você diz, a diferença nesse computador específico está na "resolução da tela" que ela está usando. Verifique se não é isso.

[mauricioportela]

Boa noite!

Eu fiz uma modificacao no codigo:

Compilar: hbmk2 testa_cor.prg -l hbct.hbc

Código: Selecionar todos

//
// Nome do Arquivo: testa_cor.prg
//
#include "box.ch"
#include "inkey.ch"

#define TRUE            .T.
#define FALSE           .F.

#define COR_PADRAO      "W+/BG,W/R,,,N/W"
#define COR_RESULTADO   "R+/BG"

FUNCTION Main()
    // -------------------------------------------------------------------------
    PUBLIC nVoltas := 1
    PUBLIC nAlturaOriginal  := MaxRow()
    PUBLIC nLarguraOriginal := MaxCol() 
    PUBLIC nAlturaDaTela    :=  5
    PUBLIC nLarguraDaTela   := 30
    // -------------------------------------------------------------------------
    SETMODE(nAlturaOriginal, nLarguraOriginal)
    @ 00, 00, nAlturaOriginal-1, nLarguraOriginal-1 BOX B_SINGLE + SPACE(1) COLOR COR_RESULTADO
    cTela1 := SAVESCREEN(01,01,nAlturaDaTela-1,nLarguraDaTela-1)
    INKEY(.5)
    // -------------------------------------------------------------------------
    WHILE TRUE
        // ---------------------------------------------------------------------
        SETMODE(nAlturaDaTela, nLarguraDaTela)
        @ 01, 01, nAlturaDaTela-1, nLarguraDaTela-1 BOX B_SINGLE + space(1) COLOR COR_PADRAO
        @ 02, 02 SAY STRZERO(nVoltas,3) + " volta" + IIF(nVoltas == 1, "", "s") COLOR COR_PADRAO
        @ 04, 02 SAY "<ESC> para Sair" COLOR COR_PADRAO
        cTela2 := SAVESCREEN(01,01,nAlturaDaTela-1,nLarguraDaTela-1)
        INKEY(2)
        If LASTKEY() == K_ESC
            EXIT
        Endif
        // ---------------------------------------------------------------------
        SETMODE(nAlturaOriginal, nLarguraOriginal)
        RESTSCREEN(01,01,nAlturaDaTela-1,nLarguraDaTela-1,cTela2)
        @ 00, 00, nAlturaOriginal, nLarguraOriginal BOX B_SINGLE COLOR COR_RESULTADO
        @ 02, 24 SAY STRZERO(GeraNumero(99999,1),5) COLOR COR_RESULTADO
        nVoltas++
        INKEY(2)
        IF LASTKEY() == K_ESC
            EXIT
        ENDIF
        RESTSCREEN(01,01,nAlturaDaTela-1,nLarguraDaTela-1,cTela1)
        // ---------------------------------------------------------------------
    ENDDO
    SETMODE(nAlturaOriginal, nLarguraOriginal)
    @ nAlturaOriginal, 00 SAY ">>>" COLOR COR_PADRAO

RETURN Nil

FUNCTION GeraNumero(lim, ini)
RETURN INT(RAND()*lim)+IIF(ini==Nil,1,ini)

Tambem criei um arquivo .bat para testar:

Código: Selecionar todos

@echo off
:: Nome do Arquivo: tcor.bat
:: mode con lines=25 cols=80
testa_cor.exe
set "meuErro=%errorlevel%"
if %meuErro% equ 0 (
    echo SUCESSO!
) else (
    echo ERRO! Codigo: %meuErro% Descricao: %errorlevel:~-4%
)
pause

Espero que ajude!

Mauricio Portela

[cjp]

A compilação com -gui não resolveu.

Esta tela de configuração não aparece no computador dessa usuária. Acho que o windows é bem diferente. Quando clico com o botão direito do mouse no canto superior esquerdo da tela, aparece uma tela de configuração bem mais complexa, e não tem essas opções.

[JoséQuintas]

Deveria ter resolvido, a menos que esteja forçando compilação console.
Se alterar tamanho de letras nessas propriedades, as letras do aplicativo se alteram ?
Se alterar, está compilando como console, e não gui, e terá que descobrir o porque.

[mauricioportela]

Boa noite!

tenta isso:

Compile: hbmk2 teste.prg -gui

Código: Selecionar todos

#include "box.ch"
#include "inkey.ch"

#define TRUE    .T.
#define FALSE   .F.

#command    @ <row>, <col> MOSTRA <strt> [IF <exp> ELSE <strf>] [COLOR <cor>];
            => ;
            devpos(<row>, <col>); devout(IIF(<exp>, <strt>, <strf>) [, <cor>])

FUNCTION Main()
    LOCAL x, nContador, nLinhas, nColunas
    SETCOLOR("B/W+*")
    x         := TRUE
    nContador := 1
    WHILE TRUE
        SetMode(IIF(x,25,43),80)

        nLinhas  := MaxRow()
        nColunas := MaxCol()
        cLinhas  := STRZERO(nLinhas  +1, 2)
        cColunas := STRZERO(nColunas +1, 2)

        @ 00, 00, nLinhas -1, nColunas -1 BOX B_SINGLE + SPACE(1)
        @ 00, 02 SAY "<Modo de Video: " + cLinhas + "x" + cColunas + ">"
        @ 01, 02 SAY "Contador: " + STRZERO(nContador,3) COLOR "R/W+*"
        @ 02, 02 SAY "Modo Ativo:"

        @ 03, 02 MOSTRA "25x80" IF x ELSE "43x80" COLOR "R/W+*"
        
        @ nLinhas -1, 02 SAY "[ESC] Sair"

        x := !x
        nContador++
        INKEY(2)
        IF LASTKEY() == K_ESC
            EXIT
        ENDIF
    ENDDO
RETURN Nil

Att.
Mauricio Portela