Clipper On Line • Ver Tópico - Tema Sobre gtwvg

Tema Sobre gtwvg

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

Moderador: Moderadores

 

Tema Sobre gtwvg

Mensagempor Ruben Dario » 28 Dez 2019 23:16

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
Ruben Dario
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 115
Data de registro: 14 Jun 2015 23:19
Cidade/Estado: Colombia
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

Tema Sobre gtwvg

Mensagempor JoséQuintas » 29 Dez 2019 00:41

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.


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, 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

Tema Sobre gtwvg

Mensagempor Ruben Dario » 30 Dez 2019 19:54

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
Ruben Dario
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 115
Data de registro: 14 Jun 2015 23:19
Cidade/Estado: Colombia
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

Tema Sobre gtwvg

Mensagempor JoséQuintas » 30 Dez 2019 20:09

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, 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

Tema Sobre gtwvg

Mensagempor Ruben Dario » 30 Dez 2019 23:06

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
Ruben Dario
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 115
Data de registro: 14 Jun 2015 23:19
Cidade/Estado: Colombia
Curtiu: 3 vezes
Mens.Curtidas: 0 vez

Tema Sobre gtwvg

Mensagempor JoséQuintas » 31 Dez 2019 09:59

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, 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




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 12 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