Mr. Rao, thanks for your help.
The issue with gets is from the source code. From resources, it works fine.
If I make this modification
Please comment out this line and let us know if this works:
- Code: Select all Expand view
// ::CalcSize( ::nTop, ::nLeft, nWidth, nHeight )
Commenting out the line "::CalcSize..." won't affect the rendering of the get dimensions in any other way, will it ? Is it safe to remove it without affecting the behavior of the TGet class ?
do I still need to make this other change, suggested by you on 10-06-2024 ?
Please change the last line as:
- Code: Select all Expand view
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
Regarding this suggestion, I have two concerns:
1. I believe this change has an error, as the original code of the CalcSize() Method checks for a numeric value with "if PCount() > 0", not a boolean "if .F.". This causes applications to break in other parts where ::CalcSize() is invoked.
2. The CalcSize Method in the Control.prg file from the FWH-24.09 version does not have the line "local lTruePixel := .t.". Why ? Is it important ?
Best regards,