Ya descubrimos como hacerlo, toca asignarle el tooltip, luego de iniciar el dialogo.
Así, funcionó
#Include "FiveWin.Ch"
Function Main()
Local oDlg
Local oGet
local cVar := space( 10 )
DEFINE DIALOG oDlg from 0,0 to 400,400 pixel
@ 15,15 get oGet var cVar picture "@!" bitmap "..\bitmaps ...
Search found 504 matches
- Sat Dec 21, 2024 4:03 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Quitar o mostrar button action de un get
- Replies: 12
- Views: 984
- Sat Dec 21, 2024 4:01 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Quitar o mostrar button action de un get
- Replies: 12
- Views: 984
Re: Quitar o mostrar button action de un get
Antonio buenos días, gracias por responder
Ya lo había intentado así, pero no funciona, por eso publique el código, para mostrar como lo intentamos.
Application
===========
Path and name: c:\fwh64_2409\samples\testget2.exe (64 bits)
Size: 5,666,304 bytes
Compiler version: xHarbour 1.3.1 Intl ...
Ya lo había intentado así, pero no funciona, por eso publique el código, para mostrar como lo intentamos.
Application
===========
Path and name: c:\fwh64_2409\samples\testget2.exe (64 bits)
Size: 5,666,304 bytes
Compiler version: xHarbour 1.3.1 Intl ...
- Fri Dec 20, 2024 8:10 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: AYUDA PARA COMPILAR EN 64 HBMK2, BORLAND Y HARBOUR64
- Replies: 12
- Views: 423
Re: AYUDA PARA COMPILAR EN 64 HBMK2, BORLAND Y HARBOUR64
Me sumo a la petición de Elmo, el ejecutable se genera correctamente pero no deja de molestar ese warning
- Fri Dec 20, 2024 8:00 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Quitar o mostrar button action de un get
- Replies: 12
- Views: 984
tooltip en el button action de un get
Hola buenas tardes para todos, es posible colocar un tooltip, en el button action del GET
Lo intentamos así, pero sale error
#Include "FiveWin.Ch"
Function Main()
Local oDlg
Local oGet
local cVar := space( 10 )
DEFINE DIALOG oDlg from 0,0 to 400,400 pixel
@ 15,15 get oGet var cVar picture ...
Lo intentamos así, pero sale error
#Include "FiveWin.Ch"
Function Main()
Local oDlg
Local oGet
local cVar := space( 10 )
DEFINE DIALOG oDlg from 0,0 to 400,400 pixel
@ 15,15 get oGet var cVar picture ...
- Fri Dec 20, 2024 4:50 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Ejecutar accion luego de ShellExecute
- Replies: 3
- Views: 181
Re: Ejecutar accion luego de ShellExecute
Excelente, gracias a ambos, solucionado
- Fri Dec 20, 2024 3:02 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Ejecutar accion luego de ShellExecute
- Replies: 3
- Views: 181
Ejecutar accion luego de ShellExecute
Hola buenos días para todos, necesitamos poder ejecutar el msginfo, pero luego que se termine de ejecutar el proceso de ShellExecute. En ejemplo queremos que se ejecute luego de cerrar la ventana del block de notas que se abre.
Espero haberme hecho entender, gracias de antemano.
#include ...
Espero haberme hecho entender, gracias de antemano.
#include ...
- Wed Dec 11, 2024 3:22 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Error al generar pdf desde Easy Report
- Replies: 0
- Views: 154
Error al generar pdf desde Easy Report
Hola buenas tardes para todos...
Tenemos un error de esos aleatorios y no logramos identificarlo, ni tampoco reproducirlo para que ocurra siempre. Algunos de nuestros usuarios nos han reportado el error.
Tiene que ver con la generación del pdf desde un proceso de impresión en Easy report, en la ...
Tenemos un error de esos aleatorios y no logramos identificarlo, ni tampoco reproducirlo para que ocurra siempre. Algunos de nuestros usuarios nos han reportado el error.
Tiene que ver con la generación del pdf desde un proceso de impresión en Easy report, en la ...
- Tue Dec 10, 2024 8:38 pm
- Forum: FiveWin for Harbour/xHarbour
- Topic: Open XLS without Excel
- Replies: 11
- Views: 789
Re: Open XLS without Excel
Una idea :D
#include "FiveWin.ch"
FUNCTION Main()
Local cXlsxFile := "para_leer_xls.xlsx"
Local oRs,cValue01,cValue02
oRs := FW_OpenADOExcelSheet( cXlsxFile, "Hoja1", "A4:J62", .F. )
//XBROWSER oRs
oRs:MoveFirst()
Do While !oRs:Eof()
cValue01 := oRs:Fields("F1"):Value
cValue02 := oRs ...
#include "FiveWin.ch"
FUNCTION Main()
Local cXlsxFile := "para_leer_xls.xlsx"
Local oRs,cValue01,cValue02
oRs := FW_OpenADOExcelSheet( cXlsxFile, "Hoja1", "A4:J62", .F. )
//XBROWSER oRs
oRs:MoveFirst()
Do While !oRs:Eof()
cValue01 := oRs:Fields("F1"):Value
cValue02 := oRs ...
- Tue Dec 10, 2024 2:34 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Mostrar un BitMap en una columna del xBrowse? (SOLUCIONADO)
- Replies: 8
- Views: 386
Re: Mostrar un BitMap en una columna del xBrowse?
Solo una idea :D
WITH OBJECT oBrw1:aCols[1]
:AddResource("UNO")
:AddResource("DOS")
:AddResource("TRES")
:AddResource("CUATRO")
:AddResource("CINCO")
:AddResource("SEIS")
:bBmpData := {|| cualbitmap( oBrw1:aArrayData[ oBrw1:nArrayAt ]["elcampo"]) }
END
funcion cualbitmap(uVar)
Local ...
WITH OBJECT oBrw1:aCols[1]
:AddResource("UNO")
:AddResource("DOS")
:AddResource("TRES")
:AddResource("CUATRO")
:AddResource("CINCO")
:AddResource("SEIS")
:bBmpData := {|| cualbitmap( oBrw1:aArrayData[ oBrw1:nArrayAt ]["elcampo"]) }
END
funcion cualbitmap(uVar)
Local ...
- Thu Dec 05, 2024 5:36 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Generar Código de barras
- Replies: 19
- Views: 1023
Re: Generar Código de barras
Este ejemplo esta en la carpeta de samples
barcod01.prg
#include "fivewin.ch"
REQUEST FWZEBRA
static cName, cCity, cCountry, cItem
//----------------------------------------------------------------------------//
function Main()
local oDlg, oCode, oSay, oSay2, oSay3, oFont
SetGetColorFocus ...
barcod01.prg
#include "fivewin.ch"
REQUEST FWZEBRA
static cName, cCity, cCountry, cItem
//----------------------------------------------------------------------------//
function Main()
local oDlg, oCode, oSay, oSay2, oSay3, oFont
SetGetColorFocus ...
- Thu Dec 05, 2024 5:34 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Felicidades a Antonio Linares.
- Replies: 25
- Views: 3329
Re: Felicidades a Antonio Linares.
Mas vale tarde que nunca...
Muchas felicidades y bendiciones Antonio
Muchas felicidades y bendiciones Antonio
- Thu Dec 05, 2024 5:32 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: FWH 24.02 nueva Clase TWebView2
- Replies: 13
- Views: 3417
Re: FWH 24.02 nueva Clase TWebView2
y si lo colocas dentro de una ventana?
// Please install https://developer.microsoft.com/en-us/microsoft-edge/webview2/ x86 or amd64 version before using it
#include "FiveWin.ch"
function Main()
local oWnd, oWebView
DEFINE WINDOW oWnd TITLE "Using a webview from an existing window"
oWnd ...
// Please install https://developer.microsoft.com/en-us/microsoft-edge/webview2/ x86 or amd64 version before using it
#include "FiveWin.ch"
function Main()
local oWnd, oWebView
DEFINE WINDOW oWnd TITLE "Using a webview from an existing window"
oWnd ...
- Wed Nov 20, 2024 3:47 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Soporte a mariaConnect ?
- Replies: 11
- Views: 1719
Re: Soporte a mariaConnect ?
Buena tarde...
Si con tabla ya la tengo... estoy es en proceso de validación y pruebas de 3 formas de recibir las consultas sql y manipular estos datos : dbf, TArrayDatay rowSet...
Cada uno con ventajas y desventajas.. lo más fácil ha sido tablas dbf, pero en busca de solucionar uno de mis ...
Si con tabla ya la tengo... estoy es en proceso de validación y pruebas de 3 formas de recibir las consultas sql y manipular estos datos : dbf, TArrayDatay rowSet...
Cada uno con ventajas y desventajas.. lo más fácil ha sido tablas dbf, pero en busca de solucionar uno de mis ...
- Tue Nov 19, 2024 7:11 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Crear PDF desde EasyReport (SOLUCIONADO)
- Replies: 13
- Views: 1857
Re: Crear PDF desde EasyReport (SOLUCIONADO)
Armando me alegra que lo hayas resuelto
creo que de esta forma lo puedes lograr
creo que de esta forma lo puedes lograr
Code: Select all | Expand
oVRD:lShowInfo := .F.
- Tue Nov 19, 2024 7:05 pm
- Forum: FiveWin para Harbour/xHarbour
- Topic: Capturar una tecla en un diálogo
- Replies: 5
- Views: 696
Re: Capturar una tecla en un diálogo
No se si también te pueda servir
Code: Select all | Expand
oDlg:bkeydown:={|nKey,nFlag|if (nKey==VK_F4,(msginfo()),)}