Saludos al Forum
Con esta Instruccion hago una ventana
a1=4
a2=1
b1=25
b2=74
WITH OBJECT oCrt := WvgCrt():New(,, { a1,a2 }, { b1,b2 },, .t. )
:lModal := .T.
:Title := ::cSistema
:icon := 'icojpa.Ico'
:ReSizable := .F.
:Closable := .F.
:create()
ENDWITH
Como hago para que quede Centro la ventana.
ALguien tiene La documentacion de gtwvg
Gracias
Tema Sobre gtwvg
Moderador: Moderadores
-
Ruben Dario
- Usuário Nível 3

- Mensagens: 127
- Registrado em: 14 Jun 2015 23:19
- Localização: Colombia
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Tema Sobre gtwvg
Não tem documentação.Ruben Dario escreveu:ALguien tiene La documentacion de gtwvg
A posição da CRT é relativa à janela atual, mas sem considerar o título.
Código: Selecionar todos
PROCEDURE Main
LOCAL a1, a2, b1, b2, oCrt
SetMode( 30,80)
CLS
a1=0
a2=0
b1=25
b2=74
oCrt := WvgCrt():New(,, { a1,a2 }, { b1,b2 },, .t. )
WITH OBJECT oCrt
:lModal := .T.
:Title := "sistema"
:icon := 'icojpa.Ico'
:ReSizable := .F.
:Closable := .F.
:create()
ENDWITH
Inkey(0)
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
Ruben Dario
- Usuário Nível 3

- Mensagens: 127
- Registrado em: 14 Jun 2015 23:19
- Localização: Colombia
Tema Sobre gtwvg
Saludos
Tu has manejado esta instruccion
SET RESOURCES TO "winsistema.dll"
por decir tener el diseño de todas las pantallas , se puede inplementar con gtwvg
Gracias
Tu has manejado esta instruccion
SET RESOURCES TO "winsistema.dll"
por decir tener el diseño de todas las pantallas , se puede inplementar con gtwvg
Gracias
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Tema Sobre gtwvg
Nunca tentei deixar em DLL.Ruben Dario escreveu:Tu has manejado esta instruccion
SET RESOURCES TO "winsistema.dll"
por decir tener el diseño de todas las pantallas , se puede inplementar con gtwvg
E tenho quase 15MB de resource
2.441.587 ze_resource.o
8.463.212 ze_resource.c
11.234.950 jpa.reso
jpa.reso no padrão Windows, ze_resource.o no padrão Harbour
EXE final
6.568.752 jpa.exe
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
Ruben Dario
- Usuário Nível 3

- Mensagens: 127
- Registrado em: 14 Jun 2015 23:19
- Localização: Colombia
Tema Sobre gtwvg
Tienes algun ejemplo para manejas Recursos (Que se tenga diseño de pantallas) para verlo que me sirva de guia
y Otra Pregunta
Con este codigo como hago para colocar una imagen com fondo de esta ventana
oCrt := WvgCrt():New(,, { a1,a2 }, { b1,b2 },, .t. )
WITH OBJECT oCrt
:lModal := .T.
:Title := "sistema"
:icon := 'icojpa.Ico'
:ReSizable := .F.
:Closable := .F.
:create()
ENDWITH
Gracias
y Otra Pregunta
Con este codigo como hago para colocar una imagen com fondo de esta ventana
oCrt := WvgCrt():New(,, { a1,a2 }, { b1,b2 },, .t. )
WITH OBJECT oCrt
:lModal := .T.
:Title := "sistema"
:icon := 'icojpa.Ico'
:ReSizable := .F.
:Closable := .F.
:create()
ENDWITH
Gracias
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Tema Sobre gtwvg
Já disse antes:
Nas GTs, incluindo GTWVG, o texto é desenhado como imagem de fundo.
Uma coisa é usar um desenho aonde não tem texto, e outra coisa é uma tela de fundo que vai usar o mesmo lugar do texto.
Vai ter que inventar rotinas pra ficar repintando texto e desenho, e provavelmente nem assim vai ser suficiente.
Isso foi uma das primeiras coisas que perguntou por aqui.
Nas GTs, incluindo GTWVG, o texto é desenhado como imagem de fundo.
Uma coisa é usar um desenho aonde não tem texto, e outra coisa é uma tela de fundo que vai usar o mesmo lugar do texto.
Vai ter que inventar rotinas pra ficar repintando texto e desenho, e provavelmente nem assim vai ser suficiente.
Isso foi uma das primeiras coisas que perguntou por aqui.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/