Enviado: 08 Nov 2007 09:21
De qual questionamento você está falando?
Em homenagem a Paulo Cesar Toledo
https://pctoledo.org/
Ahhh fico muito aliviado e contente em saber. Então podemos dizer que básicamente todas as probabilidades levam a dizer que você irá conseguir compor essa lógica para criar uma nova função no WAPI que retorne se a aplicação é modo JANELA ou TELA-CHEIA e ao mesmo tempo isto servirá para poder capturar a tela e pôr na área de transferência pelo WAPI.Maligno escreveu:E a resposta, com 99% de certeza, é sim
É facil, comece abrindo um topico novo na sessão do xharbour para nos poder lhe auxiliar melhor.asimoes escreveu:Sygecom,
Eu queria passar um sistema pequeno meu para xharbour, é complicado?
Existe ALGUM tutorial FÁCIL para migrar?
O que é preciso?
Falando nesse programa, o que é aquele outro tal de HARDCOPY sobre o qual você comentou noutra mensagem?Pablo César escreveu:aquele aplicativo PRINTNOW
Acho que não entendeu ainda. Se você ler o link onde menciono cómo fazer a detecção de que modo está a janela ( A este tópico me refiro, clique aqui ), você verá que o objetivo é saber:ANDRIL escreveu:Pablo, entendo a sua linha de raciocinio. O meu problema nao esta só no fato de ser JANELADO ou TELA-CHEIA, mais sim o FOCO da janela.
Você diz que devolve foco, mas na verdade nessa condição o focus não se estabeleceu, senão estaria retornando a aplicação e não teria esse problema. Mas isso só é necessário tão somente e apenas nessa condição (WIN98+MODO TELA-CHEIA) no resto ele funciona e se o Maligno fizer um ENTER a mais nas outras condições poderá interferir no seu aplicativo porque o focus se estabeleceu.ANDRIL escreveu:ele devolve o focO ao sistema ( só que nao volta a ficar em TELA-CHEIA ) necessitando teclar ENTER.
Código: Selecionar todos
PARAMETERS VMODO
IF VMODO=NIL
VMODO="0" // Recebo como parâmetro e é quando quero que fique em modo JANELADO
ELSE
VMODO=STR(VAL(VMODO),1,0)
ENDIF
DO CASE
CASE "95" $ VER_WIN
VRODA:="Z -F > C:MODO.TXT"
CASE "98" $ VER_WIN
VRODA:="Z -F > C:MODO.TXT"
OTHERWISE
VRODA:=""
ENDCASE
DO WHILE .T.
IF !EMPTY(VRODA)
SWPRUNCMD(VRODA)
RESTSCREEN( 00,00,24,80,TELA_PRI )
SETPOS(00,00)
ENDIF
IF FILE("C:MODO.TXT")
VTXT:=MEMOREAD("C:MODO.TXT")
IF "it's windowed mode." $ VTXT
IF VMODO="0"
EXIT
ELSE
IF ALERTAR(" necess rio alternar o modo de exibi‡„o da tela.;;Pressione as teclas <Alt><Enter> simultaneamente.;;Isto ir deixar o modo de exibi‡„o em TELA INTEIRA.",{"Ok","Desconsiderar"},2)=2
EXIT
ENDIF
ENDIF
ELSE
IF VMODO="0"
IF ALERTAR("É necessário alternar o modo de exibição da tela.;;Pressione as teclas <Alt><Enter> simultaneamente.;;Isto ir deixar a exibição da tela em modo JANELADO.",{"Ok","Desconsiderar"},2)=2
EXIT
ENDIF
ELSE
EXIT
ENDIF
ENDIF
DELETE FILE("C:MODO.TXT")
ELSE
EXIT
ENDIF
ENDDO
RETURN NIL