FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Cambio dimensiones gets FWH-24.09
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Cambio dimensiones gets FWH-24.09
Posted: Sat Oct 05, 2024 06:53 PM
Antonio, la versi贸n FWH24-09 cambia las dimensiones de los gets.

El siguiente ejemplo est谩 compilado con FWH-23.10 y con FWH-24.09. Obs茅rvese que el ancho y el alto de los gets es ligeramente diferente entre las dos versiones. En una ventana simple no hay problema, pero en una ventana compleja, con muchos gets y otros controles, se vuelve complicado reordenarlos. En principio no deber铆an cambiarse las dimemsiones.
Code (fw): Select all Collapse
#include "FiveWin.ch"

Function Inicio
聽 聽LOCAL oDlg, oGet[1], oFont[1], oBtn[1]
聽 聽LOCAL cText1 := "Campo de texto 01"
聽 聽LOCAL cText2 := "Campo de texto 02"
聽 聽DEFINE FONT oFont[1] NAME "Arial" SIZE 0,16 BOLD
聽 聽DEFINE DIALOG oDlg SIZE 280,140 PIXEL 
聽 聽 聽 聽@ 10, 30 SAY "Versi贸n: 聽 " + FWVERSION OF oDlg PIXEL FONT oFont[1]
聽 聽 聽 聽@ 30, 10 GET oGet[1] VAR cText1 OF oDlg SIZE 100,11 PIXEL
聽 聽 聽 聽@ 30, 110 BTNBMP oBtn[1] PROMPT "+" OF oDlg SIZE 10,10 PIXEL FLAT
聽 聽 聽 聽@ 42, 10 GET oGet[1] VAR cText2 OF oDlg SIZE 100,11 PIXEL
聽 聽ACTIVATE DIALOG oDlg CENTERED
Return(NIL)


Ya hay algunos temas pendientes sin soluci贸n (TPrinter():lUseHaruPDF, Maria_Connect(), dimensiones gets) que nos impide la actualizaci贸n de nuestros programas a la versi贸n FWH-24.09. Agradezco tu invaluable ayuda al respecto.

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Cambio dimensiones gets FWH-24.09
Posted: Sun Oct 06, 2024 06:12 AM

Carlos,

vamos a revisarlo de inmediato,

muchas gracias por tu feedback!

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Cambio dimensiones gets FWH-24.09
Posted: Sun Oct 06, 2024 07:13 AM
dimensiones gets
We regret the inconvenience.

We will be grateful if you can apply a small fix in
\fwh\classes\cpntrol.prg
and provide your feedback.

Please locate the METHOD CalcSize(...) in control.prg
Code (fw): Select all Collapse
METHOD CalcSize( nTop, nLeft, nWidth, nHeight, lRelative, oWnd, nBottom, nRight ) CLASS TControl // 2024-05-21

聽 聽local aRect
聽 聽local lTruePixel := .t.

聽 聽DEFAULT oWnd := ::oWnd, lRelative := oWnd:lAutoSizeCtrls

聽 聽if .PCount() > 0
Please change the last line as:
Code (fw): Select all Collapse
METHOD CalcSize( nTop, nLeft, nWidth, nHeight, lRelative, oWnd, nBottom, nRight ) CLASS TControl // 2024-05-21

聽 聽local aRect
聽 聽local lTruePixel := .t.

聽 聽DEFAULT oWnd := ::oWnd, lRelative := oWnd:lAutoSizeCtrls

聽 聽if .f. //PCount() > 0
Can you please confirm if this fix solves the Get dimensions issue?
Thanks in advance.
Regards



G. N. Rao.

Hyderabad, India
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Cambio dimensiones gets FWH-24.09
Posted: Sun Oct 06, 2024 07:21 AM
Maria_Connect()

The problem is only with xHarbour 64 bits.


Continues to work perfectly with all other compiler versions
xHarbour bcc32 bits, Harbour bcc 32bits and 64 bits MSVC 32 and 64 bits.

This is an issue with xHarbour and not at all with FWH

PS: I am looking for xHarbour 64 bits built in year 2023 or before with versions prior to bcc77
Do you have by any chance?
Regards



G. N. Rao.

Hyderabad, India
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Cambio dimensiones gets FWH-24.09
Posted: Sun Oct 06, 2024 07:28 AM
TPrinter():lUseHaruPDF

The problem is only with the current version of xHarbour and that too 32 bits version only.

Works perfectly with
Harbour bcc 32/64 bit and MSVC 32/64 bits
and xHarbour 64 bits also.

Incidentally, this works perfectly even with older versions of xHarbour 32 bits also even with FWH2409.
The problem came up recently with upgraded versions of xHarbour.
Regards



G. N. Rao.

Hyderabad, India
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Cambio dimensiones gets FWH-24.09
Posted: Sun Oct 06, 2024 07:32 AM

We can prove to ourselves that with FWH2409 the sample pdfharu1.prg works perfectly if we build with an older version of xHarbour built with bcc7 (not with bcc77 recently)

Note: we need to include a workaround for __streams.

Regards



G. N. Rao.

Hyderabad, India
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Cambio dimensiones gets FWH-24.09
Posted: Sun Oct 06, 2024 09:35 AM
I have an older version of xHarbour (built with bcc7 (not bcc77)) in the year 2023.
xHarbour 1.2.3 Intl. (SimpLex) (Build 20180818)
I have in folder c:\xharbour70
Now I will try to build fwh2409\samples\pdfharu1.prg using my older xharbour.

Step-1:
I edited pdfharu1.prg and added these 3 lines of code:
#pragma BEGINDUMP

int _streams;

#pragma ENDDUMP]/code]

Now I set environment variable xhdir=c:\xharbour70 and tried to build and this is successful.
Problem is only with the present xHarbour.
No problem with FWH at all


[url=https://imageshack.com/i/pnfNaN6Dg][img]https://imagizer.imageshack.com/img923/5583/fNaN6D.gif[/img][/url]
Regards



G. N. Rao.

Hyderabad, India
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Cambio dimensiones gets FWH-24.09
Posted: Sun Oct 06, 2024 04:13 PM
HARUPDF : FIX

On testing I found that the problem is with "libharu.lib" that comes with the current version of xHarbour.
If we replace \xharbour\lib\libharu.lib with an older version of the lib, everything is working perfectly.
Or we can use the older libharu.lib in our link script.
I have tested this and is working perfectly.

You may please test and confirm.
We can treat this issue as resolved.
Regards



G. N. Rao.

Hyderabad, India
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM
Re: Cambio dimensiones gets FWH-24.09
Posted: Sun Oct 06, 2024 07:15 PM
Mr. Rao thanks for your answer.

1.- Dimensiones gets:
Ok, your suggestion works well in the example, but in full app produce error.
Code (fw): Select all Collapse
Aplicaci贸n:
===========
聽 聽Path y nombre: D:\MSTVS\CG_VP.EXE
聽 聽Tam.: 8,605,184 bytes
聽 聽M谩ximo de ficheros abiertos: ( SetHandleCount() ) 聽 0
聽 聽Error ocurrido el d铆a: 06-10-2024, a la hora: 18:45:24
聽 聽Nombre del error: Error BASE/1083 聽Error de argumento: *
聽 聽Args:
聽 聽 聽[ 聽 1] = N 聽 16
聽 聽 聽[ 聽 2] = U 聽 16

Llamadas a funciones
====================
聽 聽Llamado por TCONTROL:CTOCHAR(404)
聽 聽Llamado por (b)TGROUP:TGROUP(28)
聽 聽Llamado por TGROUP:CTOCHAR(0)
聽 聽Llamado por TDIALOG:CTOCHAR(725)
聽 聽Llamado por TDIALOG:ACTIVATE(309)
聽 聽Llamado por CGINI31(219)
聽 聽Llamado por (b)INICIAL(269)
聽 聽Llamado por TMDIFRAME:ACTIVATE(1106)
聽 聽Llamado por INICIAL(269)
聽 聽Llamado por INICIO(558)

Sistema
=======
聽 聽CPU tipo: Intel(R) Core(TM) i7-1065G7 CPU @ 1.30GHz
聽 聽Memoria: 16935899904 (16538964 megas)

聽 聽Recursos libres .....: % 90
聽 聽 聽 聽 GDI 聽recursos ..: % 90
聽 聽 聽 聽 Usuarios recurs.: % 90

聽 聽Version de Windows y MS-Dos: 聽6. 2, **. 2
聽 聽Total de aplicaciones WIN ejecutandose: 聽 0
聽 聽 聽 1 , 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 

Variables en uso
================
聽 聽Programa 聽 聽 聽Tipo 聽 Valor
聽 聽==========================
聽 聽TCONTROL:CTOCHAR
聽 聽 聽Param 聽 1: 聽 聽C 聽 聽"BUTTON"
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TGROUP
聽 聽 聽Local 聽 2: 聽 聽N 聽 聽1048584
聽 聽 聽Local 聽 3: 聽 聽U 聽 聽
聽 聽 聽Local 聽 4: 聽 聽U 聽 聽
聽 聽 聽Local 聽 5: 聽 聽U 聽 聽
聽 聽 聽Local 聽 6: 聽 聽U 聽 聽
聽 聽 聽Local 聽 7: 聽 聽N 聽 聽16
聽 聽 聽Local 聽 8: 聽 聽U 聽 聽
聽 聽 聽Local 聽 9: 聽 聽U 聽 聽
聽 聽 聽Local 聽10: 聽 聽U 聽 聽
聽 聽(b)TGROUP:TGROUP
聽 聽 聽Param 聽 1: 聽 聽O 聽 聽Class: TGROUP
聽 聽TGROUP:CTOCHAR
聽 聽TDIALOG:CTOCHAR
聽 聽 聽Param 聽 1: 聽 聽N 聽 聽7736026
聽 聽 聽Local 聽 1: 聽 聽O 聽 聽Class: TDIALOG
聽 聽 聽Local 聽 2: 聽 聽C 聽 聽"
It is understandable, somewhere the call to the CalcSize() method needs to evaluate a numeric value with PCount and not a Boolean value.
The expression "if PCount() > 0" handles a different type compared to "if .F.".

In other way, I have a question: The file 'Control.prg' that comes in FWH-24.09 has:
Code (fw): Select all Collapse
METHOD CalcSize( nTop, nLeft, nWidth, nHeight, lRelative, oWnd, nBottom, nRight ) CLASS TControl // 2024-05-21

聽 聽local aRect

聽 聽DEFAULT oWnd := ::oWnd, lRelative := oWnd:lAutoSizeCtrls

聽 聽if .F. // PCount() > 0
Which is slightly different from yours:
Code (fw): Select all Collapse
METHOD CalcSize( nTop, nLeft, nWidth, nHeight, lRelative, oWnd, nBottom, nRight ) CLASS TControl // 2024-05-21


聽 聽local aRect
聽 聽local lTruePixel := .t.

聽 聽DEFAULT oWnd := ::oWnd, lRelative := oWnd:lAutoSizeCtrls

聽 聽if .f. //PCount() > 0
The version I have does not include local lTruePixel := .t., why ?, Is it important ?

2.- Maria_Connect():
Yes, the issue is specific to xHarbour 64-bit.
I only have 'xhb10269_bcc73064.zip', could it be useful for you ?
I looked online, but I couldn't find another.

3.- TPrinter():lUseHaruPDF:
Using lUseHaruPDF (like pdfharu1.prg and others) fails in 32-bit xHarbour and Harbour, but works as expected in 64-bit versions of both.

I don't have a version of xHarbour bcc7, only bcc7.3 and bcc7.7, and neither of them work. Could you send me "libharu.lib" compiled with bcc7 to test? While I believe mixing different compiler versions could cause headaches in future updates, it would be fine for testing. Hopefully, the xHarbour experts will find definitive solutions.

I tried including libharu.lib version bcc7.3, but it didn't work.

Reflection:
Are the difficulties we're encountering with the most recent xHarbour version a sign that we're reaching the end of the road for xHarbour ?

Does this mean we are forced to migrate to Harbour?

Best regards,

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Cambio dimensiones gets FWH-24.09
Posted: Mon Oct 07, 2024 01:13 AM
Ok, your suggestion works well in the example, but in full app produce error.
Thanks for the feed-back.
I will do extensive testing and fix the size issue.
For sure we will handle the issue in next one or two days.
I will also be thankful if you keep helping me with testing.
I only have 'xhb10269_bcc73064.zip', could it be useful for you ?
I don't know. Let me try with this version and see.
For now I am thinking of totally commenting out the Rowset destructor method for xharbour 64 bits only.
I tried including libharu.lib version bcc7.3, but it didn't work.
I will send you the lib that worked for me and try with that.
Are the difficulties we're encountering with the most recent xHarbour version a sign that we're reaching the end of the road for xHarbour ?

Does this mean we are forced to migrate to Harbour?
Not at all. Once in a while, we may get into some problems, but for sure xHarbour is great..

Once I fix the first two issues, I will request Mr. Antonio to release a revised build of FWH2409

Can you please write to my email:
nageswaragunupudi[at]gmail[dot]com
Regards



G. N. Rao.

Hyderabad, India
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Cambio dimensiones gets FWH-24.09
Posted: Mon Oct 07, 2024 08:17 AM
Using lUseHaruPDF (like pdfharu1.prg and others) fails in 32-bit xHarbour and Harbour,

No please.
Works perfectly with Harbour bcc 32bits also.
Fails only with xHarbour and that too we can now overcome by using an older libharu.lib
Regards



G. N. Rao.

Hyderabad, India
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Re: Cambio dimensiones gets FWH-24.09
Posted: Mon Oct 07, 2024 11:22 AM
nageswaragunupudi wrote:Maria_Connect()

The problem is only with xHarbour 64 bits.


Continues to work perfectly with all other compiler versions
xHarbour bcc32 bits, Harbour bcc 32bits and 64 bits MSVC 32 and 64 bits.

This is an issue with xHarbour and not at all with FWH

PS: I am looking for xHarbour 64 bits built in year 2023 or before with versions prior to bcc77
Do you have by any chance?
You can browse the old commits in the FWH repository. But please, answer to this question: why do you need an explicit destructor? FWH never used explicit destructors for any classes before.
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Re: Cambio dimensiones gets FWH-24.09
Posted: Mon Oct 07, 2024 11:40 AM
nageswaragunupudi wrote:HARUPDF : FIX

On testing I found that the problem is with "libharu.lib" that comes with the current version of xHarbour.
If we replace \xharbour\lib\libharu.lib with an older version of the lib, everything is working perfectly.
Or we can use the older libharu.lib in our link script.
I have tested this and is working perfectly.

You may please test and confirm.
We can treat this issue as resolved.
Works fine here using xHarbour/MSC32. So the problem can''t be xHarbour or libharu.lib.
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Cambio dimensiones gets FWH-24.09
Posted: Mon Oct 07, 2024 01:20 PM
Works fine here using xHarbour/MSC32.
Is it working for you with xHarbour bcc77 32 bits for you there please?
Regards



G. N. Rao.

Hyderabad, India
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM
Re: Cambio dimensiones gets FWH-24.09
Posted: Mon Oct 07, 2024 02:09 PM

No, but xHarbour source code is the same for both BCC32 and MSC32, so the problem is not with xHarbour, right?