WVWTOOLS

[oribeiro]

Pessoal,
Eu tinha um programa clipper antigo 16 bits e usei o WVWTools para compilar no xHarbour e rodar no Windows 10.
Acontece que os campos de GET ficam com uma borda em volta muito alta onde uma linha sobrepões a borda de outra na altura.
Há algum comando no wvwtools para definir a altura do get ou para cancelar a borda?
Obrigado,
Oscar

[angeiras]

Olá,

Você pode tentar criar um espaço entre uma linha e outra da tela com:

Código: Selecionar todos

wvw_setdeflinespacing(4)
wvw_setdeflspacecolor(7)  // A cor para preencher esse espaço

Mas isso vai afetar todas as telas. E se usar @BOX/DISPBOX() vai ficar um espaço também entre as linhas.

Ou alterar o READ dos GETS. Eu não uso a WVWTOOLS, mas sim a GTWVW pura mesmo. Para criar a caixa em cada get faço assim:

Código: Selecionar todos

aEval( GetList, {|oGet| WVW_DrawBoxGet( nWindow, oGet:Row, oGet:Col, Len( Transform( oGet:VarGet(), oGet:Picture ) ) ) } )

Em algum lugar da WVWTOOLS deve ter esse DrawBoxGet para os READ ativos. Se tirar, o GET vai ficar sem borda.

[]s
M.Angeiras