Necesito ayuda con el use de gtwvg

Mensagem por **JoséQuintas** » 08 Dez 2019 23:31

Adalberto escreveu:Si no es mucha molestia, quisiera que me enseñe a crear, mostrar, esconder y destruir un control;

Já mostrei em posts anteriores
oControl:Create( ... )
oControl:Destroy()
oControl:Show()
oControl:Hide()

Adalberto escreveu: quisiera mostrar bordes en la "ventanas" con la función:Wvg_BoxRaised

O mais prático é usar a GetList, que contém a referência a tudo.

Um exemplo usando outro controle:

FUNCTION SetPaintGetList( GetList )

   LOCAL oGet, oControl

   FOR EACH oGet IN GetList
      oControl := wvgTstFrame():New()
      oControl:Create( , , { -oGet:Row, -oGet:Col }, { -1, -Len( Transform( oGet:VarGet(), oGet:Picture ) ) } )
   NEXT

   RETURN NIL

No uso:

Código: Selecionar todos

@ 1, 0 GET a
@ 2, 0 GET b
@ 3, 0 GET c
SetPaintGetList( GetList )
READ

Com wvg_BoxRaised seria algo parecido.

Mensagem por **JoséQuintas** » 08 Dez 2019 23:58

https://github.com/vszakats/hb/blob/mas ... mowvg1.prg

como eu já disse, WVT* usa WVT_Paint pra ficar redesenhando, e WVG* é controle por cima da janela.

Mensagem por **JoséQuintas** » 09 Dez 2019 00:05

https://github.com/JoseQuintas/wvgtst/tree/master/get

Imagem

Ruben Dario · Mensagem por **Ruben Dario** » 25 Dez 2019 16:12

Saludos
Baje test.rar compile el ejemplo funciona bien,
Tengo una pregunta.

STATIC FUNCTION IconFromCaption( cCaption, cToolTip )
LOCAL xSource
cToolTip := ""
DO CASE
CASE cCaption == "Edit"; xSource := "cmdEdit"; cToolTip := "Edit Current Record"
CASE cCaption == "Insert"; xSource := "cmdInsert"; cToolTip := "Insert a New Record"
CASE cCaption == "Delete"; xSource := "cmdDelete"; cToolTip := "Delete Current Record"
..
..
Segun el ejemplo lo iconos los coloca en la parte superior de la ventana, como se haria para colocarlos en le parte Interior.
Es posible cambiar de color a la barra donde se coloca los iconos
como hacer para que muestre el cToolTip

Saludos

Mensagem por **JoséQuintas** » 25 Dez 2019 17:18

Ruben Dario escreveu:Segun el ejemplo lo iconos los coloca en la parte superior de la ventana, como se haria para colocarlos en le parte Interior.

Ao invés de indicar a linha de cima, indica a linha de baixo. Por exemplo, ao invés de linha 1, indique MaxRow() - 3 (que na WVG é -1, ou -( MaxRow() - 3)

Ruben Dario escreveu:Es posible cambiar de color a la barra donde se coloca los iconos

De um modo geral, o ícone cobre a barra. Sinceramente não pesquisei sobre mudar a cor.

Ruben Dario escreveu:como hacer para que muestre el cToolTip

O EXE precisa ter arquivo manifest para poder liberar isso.
Pode ser externo, em arquivo, ou embutido no EXE como resource.

Ruben Dario · Mensagem por **Ruben Dario** » 25 Dez 2019 17:40

Gracias Solucionado los 2 primeros puntos.

me falta como hacer para que muestre el cToolTip
oThisButton:ToolTipText := cToolTip

Si compilo tu ejemplo no funciona.

Te refieres a test.rc
AppIcon ICON "jpa.ico"
cmdEdit BITMAP "cmdEdit.bmp"
cmdInsert BITMAP "cmdInsert.bmp"
cmdDelete BITMAP "cmdDelete.bmp"
cmdFirst BITMAP "cmdFirst.bmp"
cmdLast BITMAP "cmdLast.bmp"
cmdPrevious BITMAP "cmdPrevious.bmp"
cmdNext BITMAP "cmdNext.bmp"
cmdExit BITMAP "cmdExit.bmp"
cmdBrowse BITMAP "cmdBrowse.bmp"

Mensagem por **JoséQuintas** » 25 Dez 2019 18:49

dentro do arquivo RC:

Código: Selecionar todos

#define RT_MANIFEST 24
#define APP_MANIFEST 1

APP_MANIFEST RT_MANIFEST "exe.manifest"

exe.manifest

Código: Selecionar todos

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
	<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
		<security>
			<requestedPrivileges>
				<requestedExecutionLevel
               level="asInvoker"
               uiAccess="false"
            />
			</requestedPrivileges>
		</security>
	</trustInfo>
   <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
      <application>
         <!-- Windows 10 -->
         <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/>
         <!-- Windows 8.1 -->
         <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
         <!-- Windows Vista -->
         <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
         <!-- Windows 8 -->
         <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
         <!-- Windows 7 -->
         <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>
         <!-- Windows Vista and Windows Server 2008 R2 -->
         <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
         <!-- Windows XP ignores this section -->
      </application>
   </compatibility>
	<dependency>
		<dependentAssembly>
			<assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            processorArchitecture="*"
            publicKeyToken="6595b64144ccf1df"
            language="*" />
		</dependentAssembly>
	</dependency>
</assembly>

ou salve com o mesmo nome do EXE.
test.exe.manifest

Ruben Dario · Mensagem por **Ruben Dario** » 26 Dez 2019 23:20

Gracias
Funciono.

Al archivo RC que cree como sus especificaciones. se le puede agregar estas instrucciones

AppIcon ICON "jpa.ico"
cmdEdit BITMAP "cmdEdit.bmp"
cmdInsert BITMAP "cmdInsert.bmp"
cmdDelete BITMAP "cmdDelete.bmp"
cmdFirst BITMAP "cmdFirst.bmp"
cmdLast BITMAP "cmdLast.bmp"
cmdPrevious BITMAP "cmdPrevious.bmp"
cmdNext BITMAP "cmdNext.bmp"
cmdExit BITMAP "cmdExit.bmp"
cmdBrowse BITMAP "cmdBrowse.bmp"

Ruben Dario · Mensagem por **Ruben Dario** » 13 Jan 2020 13:11

Saludos

Tengo este caso, ejecuto una opcion del menu principal, pero cuando salgo de dicha opcion deberia retornar al menu principal, peor no la hace se sale del aplicativo si es ambiente tradicional si funciona.

bungoption("Actualizaci¢n",{|| PXP510_22(22) } )

Asi es el codigo de salir

METHOD lsalir() CLASS TApp01
::aContl[1] := 0 ; ::aContl[2] := 0
::CTLFIN := 1
::GUIDestroy()
::oCrt:Destroy()
::CLOSE()
RETURN self

Imagem

Mensagem por **JoséQuintas** » 13 Jan 2020 14:51

Talvez tenha faltado isto:

Código: Selecionar todos

PROCEDURE HB_GTSYS()

   REQUEST HB_GT_WVG_DEFAULT

   RETURN

test.zip: (465.38 KiB) Baixado 342 vezes

Marcos Kieron · Mensagem por **Marcos Kieron** » 14 Jan 2020 11:48

Olha, do que eu saiba gtwvg é ultrapassado, por que quer usar isso?
Tem opção superior no xHarbour com VXH que é muito bom, ou mesmo gratuíto como xailer, hwgui, hmg, oohg, hbqt

Ruben Dario · Mensagem por **Ruben Dario** » 14 Jan 2020 23:08

Saludos

El Problema lo tengo es con esta linea, segun veo tengo que definir la pantalla principal como un objeto, como lo haria se usa WvgCrt()

::oCrt:Destroy()

Asi lo defini

Código: Selecionar todos

         WITH OBJECT ::oCrt := WvgCrt():New(,, { ka1,ka2 }, { kb1,kb2 },, .t. )   
            :lModal    := .T.
            :Title     := ::cSistema
            :icon      := 'icojpa.Ico'
            :ReSizable := .F.
            :Closable  := .F. 
            :create()  
            //:show()
         ENDWITH  
         CLS

Mensagem por **JoséQuintas** » 15 Jan 2020 18:07

Não sei se entendi a pergunta.

A janela principal é a que impede as outras de fecharem.
Uma opção é deixar invisível.

Se for pra acessar a janela principal, talvez wvgSetAppWindow()

Ruben Dario · Mensagem por **Ruben Dario** » 15 Jan 2020 21:11

Saludos
Jose Quintas
De acuerdo a tu codigo de tu ejemplo. que es lo que hace RunThread

Código: Selecionar todos

PROCEDURE Main
   HarbourInit()
   RunThread( { || MainMenu( .F. ) } )
   DO WHILE RunThread()
      HB_IdleSleep(1)
   ENDDO
   RETURN

Mensagem por **JoséQuintas** » 16 Jan 2020 00:06

Se não me egano isso é pra multithread.

O módulo de uma thread não vai exergar as variáveis da outra, nem mesmo arquivos DBFs abertos.
é como se fosse um EXE independente.

precisa compilar usando -mt