New FTDN September/Septiembre 2024 (FWH 24.09)

[Antonio Linares]

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.
viewtopic.php?p=273041#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.

[Antonio Linares]

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 método Scan( 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.
viewtopic.php?p=273041#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.

[CARLOS ATUNCAR]

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

[Antonio Linares]

xmath.a es de Harbour y Harbour no ha cambiado

[Enrico Maria Giordano]

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

[Antonio Linares]

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ëý]├
 2
P
 2
P
 2
P .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