estado do DEVICE

[ssflavio]

Boa tarde amigos!
tem como eu saber o status do DEVICE?
preciso saber se esta como PRINT ou SCREEN
se estiver como PRINT, tem algumas rotinas que eu devo mudar o funcionamento
vou dar um exemplo:
tenho uma função que se chama catavento(), ela coloca os seguintes sinais |/-\ na ultima linha, um de cada vez, fazendo uma animação que o programa esta funcionando. Quando estiver imprimindo o relatorio, tenho que saber o status do DEVICE, para trocar para SCREEN e depois voltar para PRINT

[alxsts]

Olá!

Use a função Set().

Código: Selecionar todos

#include "set.ch"
  LOCAL cSet

   cSet := Set ( _SET_DEVICE )
   If cSet == "PRINTER"
      Set ( _SET_DEVICE, "SCREEN" )
      Catavento ()
      Set ( _SET_DEVICE, "PRINTER" )
   Endif

Não testei mas o caminho é este.

[ssflavio]

é quase isso!
preciso saber o estado que esta o DEVICE, mais ou menos isso

Código: Selecionar todos

if set(_set_device) == "SCREEN"
   catavento()
endif

[alxsts]

Olá!

é quase isso!

#define _SET_DEVICE 20

É isto:

Código: Selecionar todos

if set( _SET_DEVICE ) == "SCREEN"
   catavento()
endif

Se usar a constante manifesta " _SET_DEVICE", ela tem que estar escrita exatamente como foi definida no arquivo Set.ch. estas definições são case sensitive.

Pode usar também

Código: Selecionar todos

if set( 20 ) == "SCREEN"

mas assim fica menos legível...