FiveTech Software tech support forums

August-September 2024
=====================

* New: Class TChatgpt based on Reinaldo and Kwon OhChul previous works with modifications
by us.

* New: samples\buildit.prg is an AI example using new FWH Clas TChatGPT. It is a great example
to see the AI possibilities from our FWH apps.

* Enhancement: Class TTreeView Method Scan( bAcion ) now provides a third parameter with the
nLevel of the item. This way we can easily save a TTreeView toa DBF, etc.

* New: samples\webviewxml.prg shows how to display a XML file as a tree from a webview control.

* msglogo.prg: MsgSpash() now properly centers the image even when
screen scaling is set to more than 100%.
https://forums.fivetechsupport.com/view ... 0b0fb86890

* New functions:
LocalIP() --> cLocalIP of the PC
PublicIP() --> cPublicIP of the PC/router
IsLocalIP( cIP ) --> .t./.f.
isExernalIP( cIP) --> .t./.f.
source\winapi\netapi32.prg

* New DATA bPaste in TGet.prg:
If specified this codeblock is evaluated with PasteText
and oGet as parameters instead of executing the internal
method Paste()
https://forums.fivetechsupport.com/view ... 7a#p272343

* Improved function FW_StitchImages( image1,image2,[cSide],
[cType],[lGDIP] )
cSide: "R" or "B" to add the image2 to the right/botton
side of the image1. If nil the function decides.
New: This param can be an array of { row, col }
In this case, image2 will be overlayed at an offset of
nrow,ncol relative to the top-left corner of image1.
nRow, nCol can be positive or negative.
cType: If spcified as "jpg/png", etc. the function will
return a blob of that type instead of as hBitmap (default)
lGIDP (new ) default .f. To use GDI+ or classic GDI

* function FW_ReadImage() crashing with xhb.com. Fixed.

* Enhancement: samples\FiveDbu.prg had a bug when deleting a field from a DBF structure, now it is ok.
https://fivetechsupport.com/forums/view ... 41#p273041

* FWMarialib: oRs := oCn:<tablename> opens full table.
now we can open specified fields only with oCn:<tablename>( fieldlist )

* Fix: function chmHelpTopic( cnTopic ) had a bug for 64 bits. Now it is ok.

* New class TPoint (source\classes\rect.prg)
TPoint():New( nRow, nCol ) --> oPt
TPoint():NewXY( x, y ) --> oPt
Quick functions for creation PointXY(x,y)/PointRowCol(r,c)
Access and Assign: oPt:nRow / oPt:Y and oPt:nCol / oPt:X
Method Rect( nRadius, [nRadiusY] ) --> TRect object

* Enahancement: function RingGradientFill() can now use alpha
color gradients

* New function GDIP_ELLIPSE( hDC, aRect, nBorderClr, [nFillClr] )
Can use alpha colors

* New function GDIP_RINGGRAD( hDC, x, y, naRad1, naRad2, nInnerClr,nOuterClr)
Gradient fill of ring in ellipse/circle

* New: samples\servicio.prg a Windows service example that works fine with both
Harbour and xHarbour. Please carefully read the instructions inside it.

* New: function FW_EllipShadow( hDC, aRect, [nShadowSize], [nInClr], [nOutClr] )
aRect: Rect containing the circle/ellipse.

* New samples circshad.prg: Demonstrates shadows for circles/
ellipses, alpha gradients

* functions FW_RTRIM( cStr, cChars), FW_TRIM(), FW_LTRIM(),FW_ALLTRIM()
now do not raise run-time error if cStr is not a string. Instead,
these functions return the same value.

Agosto-Septiembre 2024
======================

* Nuevo: Nueva clase TChatGPT basado en el trabajo previo de Reinaldo y Kwon OhChul con modificaciones nuestras.

* Nuevo: Nuevo ejemplo samples\buildit.prg, es un gran ejemplo de Inteligencia Artificial usando la nueva clase de FWH TChatGPT
para ver las posibilidades de Inteligencia Artificial desde nuestras apliaciones FWH.

* Mejora: El _( bAction ) ahora proporciona un tercer parámetro (nLevel) con el nivel del elemento. De esta forma
podemos guardar fácilmente un TTreeView en una DBF, etc...

* Nuevo: Nuevo ejemplo samples\webviewxml.prg, muestra como mostrar un fichero XML como un árbol desde un control webview.

* msglogo.prg: La función MsgSplash() ahora centra la imagen correctamente incluso cuando el escalado de la pantalla es mayor
del 100%.
https://forums.fivetechsupport.com/view ... 0b0fb86890

* Nuevas funciones:

LocalIP() --> cLocalIP - IP local del PC
PublicIP() --> cPublicIP - IP pública del PC/Router
IsLocalIP( cIP ) --> .T./.F.
isExernalIP( cIP) --> .T./.F.

Puedes encontrar los fuentes de estas funciones en: source\winapi\netapi32.prg

* Nuevo: Nueva DATA bPaste en TGet.prg:
Si se especifica este bloque de código se evalúa con PasteText y oGet como parámetros en lugar de ejecutar el método
interno Paste().
https://forums.fivetechsupport.com/view ... 7a#p272343

* Mejora: Mejora en la función FW_StitchImages( image1,image2,[cSide],[cType],[lGDIP] )
cSide: "R" o "B" para añadir la "imagen2" a la derecha/debajo de la "imagen1". Si es NIL la función decide.
Nuevo: Este parámetro puede ser una matriz de { row, col }. En este caso, la "imagen2" se superpondrá a una
distancia de nrow,ncol relativa a la esquina superior izquierda de la "imagen1". nRow, nCol pueden ser
positivo o negativo.
cType: Si se especifica como «JPG/PNG», etc. la función devolverá un blob de ese tipo en lugar de como hBitmap
(por defecto).
lGIDP (nuevo ) por defecto .F. Para usar GDI+ o GDI clásico.

* Corrección: La función FW_ReadImage() fallaba con xHarbour comercial (xhb.com). Solucionado.

* Mejora: En el ejemplo samples\FiveDbu.prg, tenía un error al borrar un campo de una estructura DBF, ahora está bien.
https://fivetechsupport.com/forums/view ... 41#p273041

* FWMarialib: oRs := oCn:<tablename> abre la tabla completa.
Ahora puede abrir campos especificos sólo mediante oCn:<tablename>( fieldlist ).

* Corrección: La función chmHelpTopic( cnTopic ) tenía un error en la versión de 64 bits. Solucionado.

* Nuevo: Nueva clase TPoint. Podéis encontrar los fuentes en source\classes\rect.prg.
TPoint():New( nRow, nCol ) --> oPt
TPoint():NewXY( x, y ) --> oPt
Funciones rápidas para la creación de PointXY(x,y)/PointRowCol(r,c)
Acceso y asignación: oPt:nRow / oPt:Y y oPt:nCol / oPt:X
Metódo Rect( nRadius, [nRadiusY] ) --> objeto TRect

* Mejora: La función RingGradientFill() ahora puede usar gradientes de color Alpha.

* Nuevo: Nueva función GDIP_ELLIPSE( hDC, aRect, nBorderClr, [nFillClr] )
Puede usar colores Alpha.

* Nuevo: Nueva función GDIP_RINGGRAD( hDC, x, y, naRad1, naRad2, nInnerClr,nOuterClr)
Relleno de gradiente de anillo en elipse/círculo

* Nuevo: Nuevo ejemplo samples\servicio.prg, un ejemplo de servicio de Windows que funciona bien tanto con
Harbour como con xHarbour. Por favor, lee atentamente las intrucciones que contiene.

* Nuevo: Nueva función FW_EllipShadow( hDC, aRect, [nShadowSize], [nInClr], [nOutClr] )
aRect: Rectángulo que contiene el círculo/elipse.

* Nuevo: Nuevo ejemplo samples\circshad.prg, muestra como dotar de sombras a círculos/elipses, gradientes Alpha.

* Funciones: FW_RTRIM( cStr, cChars), FW_TRIM(), FW_LTRIM(),FW_ALLTRIM()
Ahora no generan un error en tiempo de ejecución si cStr no es una cadena. En su lugar, estas funciones
devuelven el mismo valor.

Saludos Antonio en esta version no tiene xmath.a se copia nada mas de la version anterior ?

xmath.a es de Harbour y Harbour no ha cambiado

What is xmath.a for? I don't have nor need it. I think it is not required.

No idea. It is mentioned inside hbmk2.exe and hbrun.exe for bcc64

Inside it we find:

!<arch>
/ 0 0 0 0 41 `
┤ ┤ ┤_finite _finitel _isnanl
// 0 0 0 0 10 `
xmath.o/
/1 1588821244 0 0 0 1720 `
ELF > ­ @ @ UHëÕHüõ°   Hâý ░ ‗D$‗D$‗D$ïL$┴Úüß  ü¨  êD$àO ░ ïL$┴Úüß Çü¨ êD$ä0 ░ïL$┴Úü¨ ÇêD$à ü|$ ò└êD$èD$êD$èD$Â╚âßë╚Hëý]├UHëÕHüõ°   Hâý ‗D$HìD$HëD$ïL$ÐÚüß  üÚ  ò┬Â┬ëL$Hëý]├UHëÕHüõ°   Hâý ‗D$HìD$HëD$ïL$ÐÚüß  üÚ  ò┬Â┬ëL$Hëý]├ 2P 2P 2P .text .bss .note.GNU-stack .shstrtab .strtab .symtab .xdata .rela.pdata .data @ I ` ` ` 6 ` B x $ = Ó Ï £ O . ░
& © " ±  á @ Ó @ á xmath.c _isnanl _finite _finitel

á

á
Ó

Ó

No idea why it is in my c:\harbour\lib\win\bcc64 folder or how it arrived there