Clipper On Line • Ver Tópico - PushButton em tela Ocrt

PushButton em tela Ocrt

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

PushButton em tela Ocrt

Mensagempor Adalberto » 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.

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)
Anexos
Tela exemplo.jpg
Adalberto
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 343
Data de registro: 01 Set 2007 01:09
Cidade/Estado: Santa Cruz de la Sierra - Bolivia
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

PushButton em tela Ocrt

Mensagempor JoséQuintas » 08 Abr 2021 14:26

Só passar a janela, senão assume como default a principal.

wvgpushButton():New( oCrt )
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

PushButton em tela Ocrt

Mensagempor Adalberto » 08 Abr 2021 17:07

Maestro José Quintas, boa tarde.

Implementei no meu programa a instrução que você compartilhou comigo e funcionou PERFEITO!.

Muito agradecido.

Bênçãos celestiais para você e todos os amigos e amigas do fórum.
Adalberto
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 343
Data de registro: 01 Set 2007 01:09
Cidade/Estado: Santa Cruz de la Sierra - Bolivia
Curtiu: 0 vez
Mens.Curtidas: 12 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 4 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro