Search found 504 matches

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

Re: Quitar o mostrar button action de un get

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 ...
by leandro
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 ...
by leandro
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

Image
by leandro
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 ...
by leandro
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 :D :D :D
by leandro
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 ...
by leandro
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 ...
by leandro
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 ...
by leandro
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 ...
by leandro
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 ...
by leandro
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... :oops:

Muchas felicidades y bendiciones Antonio :D :D :D
by leandro
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 ...
by leandro
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 ...
by leandro
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

Code: Select all | Expand

oVRD:lShowInfo := .F.
 
by leandro
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()),)}