Janelinha texto Vídeo/Impress.

[Maurício Elias]

Boa tarde pessoal.
Ainda não consegui criar uma janelinha gráfica para meu HB32 console. Mas segue abaixo o que eu consegui, com opção de Matricial ou não. Uso o Dosprint com /Raw. Infelizmente HbRadioButton() não reconhece o mouse, mas dá prá usar bem.
Wlptxmodo1 é minha var prá ativar matricial modo texto.

Function VidImp
*------------------
LOCAL aRadio1[2]
LOCAL nSpeed
LOCAL cColor1 := "W/B,W+/B,R/W+"
LOCAL cColor2 := "N/BG,N/BG,GR+/BG,GR+/BG,N/BG,W+/BG,GR+/BG"
Local wtelatemp := savescreen(10,20,16,60), wVar1 := .F.

#include "inkey.ch"
SET EVENTMASK TO INKEY_ALL

if wlptxmodo1 = "X"
wVar1 := .T.
endif

setcolor(vermelho+'/'+azulclaro+','+amarelo+'/'+vermelho)
@ 10,20 clear to 16,60
@ 10,20 to 16,60
@ 11,25 say "Qual a dispositivo de emissão ?"

keyboard chr(13)
@ 14,46 GET wVar1 CHECKBOX ;
CAPTION "Matric" ;
STYLE "[x ]" ;
COLOR "N/BG,W+/BG,N/BG,GR+/BG"

aRadio1[ 1 ] := HbRadioButton():new( 13, 25, "&Video " )
aRadio1[ 2 ] := HbRadioButton():new( 14, 25, "&Impressora " )
AEval( aRadio1, {|o| o:colorSpec := cColor2 } )

wvidimp := 1 //default to the first item.
@ 00,00,00,00 GET wvidimp ;
RADIOGROUP aRadio1 ;
COLOR cColor1
read

wlptxmodo1 = if(wVar1, "X" , " ")
setcolor(branco+'/'+wfundo+','+preto+'/'+branco)
restscreen(10,20,16,60,wtelatemp)
return (WVidImp)

[Maurício Elias]

Olá, bom dia a todos.
Utilizo o HbRadioButton() para a seleção abaixo:
aRadio1[ 1 ] := HbRadioButton():new( 13, 25, "Video " )
aRadio1[ 2 ] := HbRadioButton():new( 14, 25, "Impressora " )
AEval( aRadio1, {|o| o:colorSpec := cColor2 } )
Alguém saberia uma forma de funcionar o mouse com ele ?
Ou algum comando que o substitua ?