Página 3 de 4
Necesito ayuda con el use de gtwvg
Enviado: 08 Dez 2019 23:31
por JoséQuintas
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:
Código: Selecionar todos
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.
Necesito ayuda con el use de gtwvg
Enviado: 08 Dez 2019 23:58
por JoséQuintas
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.
Necesito ayuda con el use de gtwvg
Enviado: 09 Dez 2019 00:05
por JoséQuintas
Necesito ayuda con el use de gtwvg
Enviado: 25 Dez 2019 16:12
por Ruben Dario
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
Necesito ayuda con el use de gtwvg
Enviado: 25 Dez 2019 17:18
por JoséQuintas
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.
Necesito ayuda con el use de gtwvg
Enviado: 25 Dez 2019 17:40
por Ruben Dario
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"
Necesito ayuda con el use de gtwvg
Enviado: 25 Dez 2019 18:49
por JoséQuintas
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
Necesito ayuda con el use de gtwvg
Enviado: 26 Dez 2019 23:20
por Ruben Dario
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"
Necesito ayuda con el use de gtwvg
Enviado: 13 Jan 2020 13:11
por Ruben Dario
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
Necesito ayuda con el use de gtwvg
Enviado: 13 Jan 2020 14:51
por JoséQuintas
Talvez tenha faltado isto:
Necesito ayuda con el use de gtwvg
Enviado: 14 Jan 2020 11:48
por Marcos Kieron
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
Necesito ayuda con el use de gtwvg
Enviado: 14 Jan 2020 23:08
por Ruben Dario
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
Necesito ayuda con el use de gtwvg
Enviado: 15 Jan 2020 18:07
por JoséQuintas
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()
Necesito ayuda con el use de gtwvg
Enviado: 15 Jan 2020 21:11
por Ruben Dario
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
Necesito ayuda con el use de gtwvg
Enviado: 16 Jan 2020 00:06
por JoséQuintas
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
