Tema Sobre gtwvg

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

Moderador: Moderadores

Ruben Dario
Usuário Nível 3
Usuário Nível 3
Mensagens: 127
Registrado em: 14 Jun 2015 23:19
Localização: Colombia

Tema Sobre gtwvg

Mensagem por Ruben Dario »

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
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Tema Sobre gtwvg

Mensagem por JoséQuintas »

Ruben Dario escreveu:ALguien tiene La documentacion de gtwvg
Não tem documentação.

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)
janela.png
Como dá pra ver na imagem, criou na linha 0 coluna 0 da janela atual.
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/
Ruben Dario
Usuário Nível 3
Usuário Nível 3
Mensagens: 127
Registrado em: 14 Jun 2015 23:19
Localização: Colombia

Tema Sobre gtwvg

Mensagem por Ruben Dario »

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
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Tema Sobre gtwvg

Mensagem por JoséQuintas »

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
Nunca tentei deixar em DLL.
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/
Ruben Dario
Usuário Nível 3
Usuário Nível 3
Mensagens: 127
Registrado em: 14 Jun 2015 23:19
Localização: Colombia

Tema Sobre gtwvg

Mensagem por Ruben Dario »

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
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Tema Sobre gtwvg

Mensagem por JoséQuintas »

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.
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/
Responder