New FTDN June/Junio (FWH 21.06)

[Antonio Linares]

May 2021, June 2021
===================

* XBROWSE:
= Enhancement to oSortCbx:
In release 2104, the combobox was displaying index names, which
may be different from the header names.
In this release combobox displays header names by default. The
programmer can display index names instead of header names by
setting oBrw:lCbxHdr := .f.
Sample: xbsortcb.prg
- method ReArrangeCols( aCols, .. ): aCols can now be a list of headers/exprns also


* fixed: MENUITEM ... BLOCK ... was executed twice when placed on a RibbonBar button.
viewtopic.php?p=241720#p241720

* New xcommand for swapping values of two variables:
#xcommand SwapValues( <a>, <b> ) => StackPush( <a> ); <a> := <b>; <b> := StackPop()
Usage:
var1 := 100
var2 := 900
SwapValues( var1, var2 ) // not SwapValues( @var1, @var2 )
? var1,var2 // --> 900,100
aData := { 3, 4, 5, 6, 7 }
SwapValues( aData[ 2 ], aData[ 4 ] )
? aData // { 3, 6, 5, 4, 7 }

* TDataBase method LookUp( cSeek, cTag/Expr, bcRetVal, lTrigger )
--> Value of bcRetVal if found and otherwise nil

If 3rd param is nil, the method now returns .t., with the new
record loaded if the seek is successful.

* function FW_ExcelToDBF(): Trims right zeros after decimal when converting
numbers to text.

* New function FW_IndexInfo() --> { { ordbagname, ordname, ordkey, ordfor, ordkeyval } }
TDatabase can also use it as a method: oDbf:IndexInfo()

* Fix: TScrollPanel: Vertical scrollbar malfunction since 21.02. Fixed.
http://forums.fivetechsupport.com/viewt ... dd2572eb40

* New function FW_CopyToClipBoard( uValue, [nFormat] ) --> lSuccess
Simple function to copy to clipboard, without having to create
TClipboard object.
Second parameter is not necessary of the value is text (ansi/utf8)
or hBitmap of GDI+ image.

* New function (function\filename.prg)
SetLogFile( [cNewFileName/Path] ) --> cPrevious
By default FWH saves log messages to exename.log.
This default can now be changed by setting a new filename
using this function. Calling this function without any params
returns the current default. Calling the function with NIL as
param resets to the original default, i.e., exename.log
SetLogFile() --> Current log file
SetLogFile( cNewFile ) --> Prev logfile. Sets cNew File as logfile
SetLogFile( cNewFolder ) --> PrevLogFile. Sets cNewFolder + exename.log as logfile
SetLogFile( NIL ) --> PrevLog file. Sets exepathname.log as log file (default)

* Modified function LogFile( cFileName, aInfo, [lDate] )
Now, cFileName defaults fo SetLogFile()

* New function MapDrive( cDrive, cPath, cUser, cPassWord ) --> nResult
(function\filename.prg)
Return value 0 indicates success
cPath can be uncpath or can use aleady mapped drive.
cPath can be a unicode path.
If cDrive is already mapped, the existing map is deleted and new
mapping is attempted.

* TDatePick class:
Method Change() is executed when the dialog is started and also
when the user selects the same date without any change in the
date. Fixed.

* function HtmlView( cUrl, cTitle, oDlg, nT, nL, nW, nH, lControl )
in memoedit.prg:
Runtime error when 3rd param oDlg is specified fixed.

* xbrgetdt.prg: function SetDate() converted to static to avoid conflict
with Harbour SetDate() function.

* New function MsgInfoScroll( cText, [cTitle], [nWidth], [nHeight], [oFont] )
MsgInfo for large messages (upto 32000 bytes) with scrollbar.
http://forums.fivetechsupport.com/viewt ... 7784e5170e

* The EasyReport engine and its Visual Designer are built now inside FWH!:
AS simple as calling the function EReport() !!!
New example in FWH\samples\ERDsample.prg
To properly execute the provided examples, please run go.bat or goh32.bat from samples\EasyReport

* function MsgList( aData, cTitle, nTop, nLeft, nBottom, nRight, cBtnTitle,
nItem, lCancel, cCapCan, oFont )
--> SelectedItemNumber
- Fix: Exiting the dialog by pressing Esc key was not returning 0. Fixed
- Last parameter oFont added. By default, if the application has a main window,
the font of the main window is used.

[leandro]

Antonio buenas tardes como estas?

Estoy intentando compilar con la nueva versión FW2106 pero me esta devolviendo este error:

Code: Select all  Expand view

Turbo Incremental Link 6.80 Copyright (c) 1997-2017 Embarcadero Technologies, Inc.
Error: Unresolved external '_HB_FUN_HB_MEMOREAD' referenced from C:\FWH2106\LIB\FIVEHX.LIB|OLDFUNC
Error: Unable to perform link
Link Error
 

[Antonio Linares]

Leandro,

Imagino que estás usando xHarbour, de ser asi añade esta función a tu aplicación:

function hb_MemoRead( cFileName )

return MemoRead( cFileName )

[Antonio Linares]

Mayo 2021, Junio 2021
=====================

* XBROWSE:

= Mejora a oSortCbx:

En la versión 2104, el combobox mostraba los nombres de los índices,
que pueden ser diferentes de los nombres de las cabeceras.
En esta versión el combobox muestra por defecto los nombres de las
cabeceras. El programador puede mostrar los nombres de los índices
en lugar de los nombres de las cabeceras configurando oBrw:lCbxHdr := .F.

Ejemplo: xbsortcb.prg

- Método ReArrangeCols( aCols, .. ), aCols ahora también puede ser una
lista de encabezados/expresiones

* Corrección: MENUITEM ... BLOCK ... se ejecutaba dos veces cuando se
colocaba en un botón de la RibbonBar.

http://fivetechsupport.com/forums/viewt ... 20#p241720


* Nuevo comando definido por el usuario para intercambiar los valores de
dos variables:

#xcommand SwapValues( <a>, <b> ) => StackPush( <a> ); <a> := <b>; <b> := StackPop()

Uso:

var1 := 100
var2 := 900
SwapValues( var1, var2 ) // no SwapValues( @var1, @var2 )
? var1,var2 // --> 900,100
aData := { 3, 4, 5, 6, 7 }
SwapValues( aData[ 2 ], aData[ 4 ] )
? aData // { 3, 6, 5, 4, 7 }

* TDataBase

Método LookUp( cSeek, cTag/Expr, bcRetVal, lTrigger ) --> bcRetVal o NIL

Si el tercer parámetro es NIL, el método devuelve ahora .T., con el nuevo registro
cargado si la búsqueda tiene éxito.

* Función FW_ExcelToDBF(): Elimina los ceros a la derecha después del decimal al
convertir números a texto.

* Nueva función FW_IndexInfo() --> { { ordbagname, ordname, ordkey, ordfor, ordkeyval } }
TDatabase también puede usarla como método: oDbf:IndexInfo()

* Corrección en TScrollPanel.
Mal funcionamiento de la barra de desplazamiento vertical desde la versión 21.02
http://forums.fivetechsupport.com/viewt ... dd2572eb40


* Nueva función FW_CopyToClipBoard( uValue, [nFormat] ) --> lSuccess
Función simple para copiar al portapapeles, sin tener que crear
un objeto TClipboard.
El segundo parámetro no es necesario si el valor es texto (ansi/utf8)
o un manejador de imagen GDI+.

* Nueva función (source\function\filename.prg)

SetLogFile( [cNewFileName/Path] ) --> cPrevious
Por defecto, FWH guarda los mensajes de log en "Nombre del ejecutable".log.
Este valor por defecto se puede cambiar estableciendo un nuevo nombre de archivo
utilizando esta función. Llamar a esta función sin ningún parámetro devuelve el
valor por defecto actual. Si se llama a la función con NIL como parámetro, restablece
el valor por defecto original, es decir, "Nombre del ejecutable".log.

SetLogFile() --> Fichero de log actual
SetLogFile( cNewFile ) --> Pone cNewFile como fichero de log
SetLogFile( cNewFolder ) --> Pone cNewFolder\exename.log como fichero de log
SetLogFile( NIL ) --> Pone exename.log como fichero de log (Por defecto)


* Se ha modificado la función LogFile( cFileName, aInfo, [lDate] )

* Modified function LogFile( cFileName, aInfo, [lDate] )
Ahora, cFileName está predeterminado a SetLogFile()

* Nueva función MapDrive( cDrive, cPath, cUser, cPassWord ) --> nResult
(source\function\filename.prg)
El valor de retorno 0 indica éxito.
cPath puede ser una ruta UNC o puede usar una unidad ya mapeada.
cPath puede ser una ruta unicode.
Si cDrive ya está mapeado, se borra el mapeo existente y se intenta uno nuevo.

* Clase TDatePick:
El método Change() se ejecuta cuando se inicia el diálogo y también cuando el
usuario selecciona la misma fecha sin ningún cambio en la fecha. Corregido.

* Función HtmlView( cUrl, cTitle, oDlg, nT, nL, nW, nH, lControl )
En memoedit.prg:
Se ha corregido el error de ejecución cuando se especifica el tercer parámetro oDlg.

* xbrgetdt.prg: La función SetDate() se ha convertido en estática para evitar conflictos
con la función Harbour SetDate().

* Nueva función MsgInfoScroll( cText, [cTitle], [nWidth], [nHeight], [oFont] )
MsgInfo para mensajes grandes (hasta 32000 bytes) con barra de desplazamiento.
http://forums.fivetechsupport.com/viewt ... 7784e5170e

* El motor de EasyReport y su diseñador visual están construidos ahora dentro de FWH!
Tan simple como llamar a la función EReport() !!!
Nuevo ejemplo en FWH\samples\ERDsample.prg
Para ejecutar correctamente los ejemplos proporcionados, por favor ejecute go.bat o goh32.bat desde samples\EasyReport

* function MsgList( aData, cTitle, nTop, nLeft, nBottom, nRight, cBtnTitle, nItem, lCancel, cCapCan, oFont )
--> SelectedItemNumber

- Corrección: salir del cuadro de diálogo presionando la tecla Esc no devolvía 0. Corregido
- Último parámetro oFont añadido. Por defecto, si la aplicación tiene una ventana principal
se utiliza la fuente de la ventana principal.

[leandro]

Antonio buenos días, tengo una curiosidad

La función HtmlView(), es basada en la clase webview de Cristobal?

[Antonio Linares]

Leandro,

No, aún no se ha incluido en FWH

Ya hay un nuevo build 2 de FWH 21.06 que soluciona el error de hb_MemoRead() para los usuarios de xHarbour.

Por favor, descargadlo nuevamente, gracias

[leandro]

Antonio buenas tardes como estas?

Estoy obteniendo este error al tratar de compilar ERDsample.prg, esto con el ultimo build3 21.06

Code: Select all  Expand view

┌────────────────────────────────────────────────────────────────────────────┐
?FiveWin for xHarbour 21.06 - Jun. 2021          Harbour development power  │▄
?(c) FiveTech 1993-2021 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 │█
└────────────────────────────────────────────────────────────────────────────┘?
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀?
Compiling...
xHarbour 1.2.3 Intl. (SimpLex) (Build 20201212)
Copyright 1999-2020, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'ERDsample.prg' and generating preprocessed output to 'ERDsample.ppo'...
Generating C source output to 'ERDsample.c'...
Done.
Lines 9, Functions/Procedures 1, pCodes 15
Embarcadero C++ 7.30 for Win32 Copyright (c) 1993-2017 Embarcadero Technologies, Inc.
ERDsample.c:
Borland Resource Compiler  Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.

Error prsht.h 917 1: '#endif' before '#if'
* Linking errors *
 

[Antonio Linares]

Leandro,

http://forums.fivetechsupport.com/viewt ... 7b#p201802