PC Toledo

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 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.
Como dá pra ver na imagem, criou na linha 0 coluna 0 da janela atual.

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

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

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.