PushButton em tela Ocrt
Enviado: 08 Abr 2021 11:42
Bom dia a todos e todas, Deus abençoe voçês.
É meu propósito inserir um botão dentro da janela oCrt, já fiz várias tentativas e o botão sempre aparece na tela principal, preciso que o botão esteja ativado na janela oCrt.
Eu trabalho com o Harbor 3.2 no modo console, estou anexando um exemplo para ilustrar o que pretendo fazer.
Por favor, se alguém conhece a técnica para conseguir isso, por favor, compartilhe seu conhecimento comigo.
Meus sinceros agradecimentos.
É meu propósito inserir um botão dentro da janela oCrt, já fiz várias tentativas e o botão sempre aparece na tela principal, preciso que o botão esteja ativado na janela oCrt.
Eu trabalho com o Harbor 3.2 no modo console, estou anexando um exemplo para ilustrar o que pretendo fazer.
Por favor, se alguém conhece a técnica para conseguir isso, por favor, compartilhe seu conhecimento comigo.
Meus sinceros agradecimentos.
Código: Selecionar todos
FUNCTION Main()
LOCAL oCrt:= TelaCrt()
//
AADD(aBanderas, CreatePushButton(07, 09, 01, 06, 'BanBol', 'Printer', '{|| NIL}', 'Bandera Boliviana', 5))
WHILE .T.
nMes := nYear:= 0
//
READEXIT(.T.)
@ 03,09 GET nMes PICT '##'
@ 05,09 GET nYear PICT '####'
READ
READEXIT(.F.)
IF (LASTKEY() == 27)
EXIT
ENDIF
/*
Imprimir()
*/
ENDDO
aPaint:= {}
WvtSetPaint(aPaint)
oCrt:Destroy()
RETURN NIL
//
FUNCTION TelaCrt()
LOCAL nAlto:= 09, nAncho:= 24
LOCAL nFs:= 09, nCi:= 27
LOCAL nTamTxt:= 35
LOCAL nAbajo, nDerecha
LOCAL cTextoX:= 'Facturas inactivas'
LOCAL oCrt
//
WITH OBJECT oCrt:= WvgCrt():New(,, {nFs, nCi}, {nAlto, nAncho},, .f.)
:lModal:= .T.
:Title:= 'Imprimir Facturas inactivas'
:icon:= 'AppIcon'
:ReSizable:= .F.
:closable:= .T.
:minMax:= .F.
:Create()
:Show()
ENDWITH
*Wvg_Image(02, 01, 03, 05, {-3, -3, 3, 3}, GOBJ_IMAGESOURCE_FILE, (cRuta + cImagen + '.Jpg'))
mSetPos(MaxRow(), MaxCol())
//
anBackColor:= {255, 255, 255}
anFontColor:= {017, 085, 119}
nAbajo:= MaxRow(); nDerecha:= MaxCol()
/*
aPaint:= {}
Label(1, ((nAncho / 2) - (LEN(cTextoX) / 2) - 1), cTextoX, anBackColor, anFontColor, nTamTxt, 20)
*/
@ 0,0 CLEAR TO nAbajo, nDerecha
//
@ 03,02 SAY 'Month:' COLOR 'N/W'
@ 05,03 SAY 'Year:' COLOR 'N/W'
RETURN(oCrt)