24.07 and 24.09 TGroup problem.

[Horizon]

Hi,

I was on fwh 24.02 there was no problem, then tried 24.07, there was something strange error on tgroup. tried 24.09 again. still there is.

Since I took some x, y coordinates from the group element, I think the location and size of the other elements change.

24.02 screen.


24.09 screen.


ps. I use TRANSPARENT in dialog. I have tried to remove and test it. There is not any change.

[karinha]

Hakan, the images are not showing. It would be very kind of you if you would post a small, working example, please.

Hakan, las imágenes no se muestran. Sería muy amable de su parte si publicara un pequeño ejemplo práctico, por favor.

Regards, saludos.

[Horizon]

Hakan, the images are not showing. It would be very kind of you if you would post a small, working example, please.

Hakan, las imágenes no se muestran. Sería muy amable de su parte si publicara un pequeño ejemplo práctico, por favor.

Regards, saludos.

Hi Karinha,

You can open pictures with open it with new window tab.

[nageswaragunupudi]

Honestly, I could not understand the problem.
Can you please help me with a sample that I can build at my end and see the problem?

[Horizon]

Hi Mr. Rao,

I know I should prepare small, working example but I could not.

I also know this is not a solution but.
Fwh 24.09 Group class

Code: Select all  Expand view  RUN

METHOD New( nTop, nLeft, nBottom, nRight, cLabel, oWnd, nClrText, nClrPane,;
            lPixel, lDesign, oFont, lTransparent, nWidth, nHeight, lRelPix ) CLASS TGroup

   DEFAULT nTop     := 0, nLeft := 0, nBottom := 3, nRight := 3,;
           oWnd     := GetWndDefault(),;
           nClrText := oWnd:nClrText, nClrPane := oWnd:nClrPane,;
           lPixel   := .f., lDesign := .f.,;
           lTransparent := .f., oFont := oWnd:oFont

   ::lUnicode = FW_SetUnicode()

   if !lPixel
      if nTop    >= 1.0; nTop    *= GRP_CHARPIX_H; endif
      if nLeft   >= 1.0; nLeft   *= GRP_CHARPIX_W; endif
      if nBottom >= 1.0; nBottom *= GRP_CHARPIX_H; endif
      if nRight  >= 1.0; nRight  *= GRP_CHARPIX_W; endif
   endif
   ::CalcSize( @nTop, @nLeft, @nWidth, @nHeight, lRelPix, oWnd, @nBottom, @nRight )

/*
   ::nTop  = nTop  * If( lPixel, 1, GRP_CHARPIX_H ) // 14
   ::nLeft = nLeft * If( lPixel, 1, GRP_CHARPIX_W ) //  7

   if nWidth != nil
      ::nRight = ::nLeft + nWidth
   else
      ::nRight   = nRight  * If( lPixel, 1, GRP_CHARPIX_W ) //  7
   endif
*/

   if nHeight != nil
      ::nBottom = ::nTop + nHeight
   else
      ::nBottom  = nBottom * If( lPixel, 1, GRP_CHARPIX_H ) // 14
   endif
 

Changed to.

Code: Select all  Expand view  RUN

METHOD New( nTop, nLeft, nBottom, nRight, cLabel, oWnd, nClrText, nClrPane,;
            lPixel, lDesign, oFont, lTransparent, nWidth, nHeight, lRelPix ) CLASS TGroup

   DEFAULT nTop     := 0, nLeft := 0, nBottom := 3, nRight := 3,;
           oWnd     := GetWndDefault(),;
           nClrText := oWnd:nClrText, nClrPane := oWnd:nClrPane,;
           lPixel   := .f., lDesign := .f.,;
           lTransparent := .f., oFont := oWnd:oFont

   ::lUnicode = FW_SetUnicode()

   if !lPixel
      if nTop    >= 1.0; nTop    *= GRP_CHARPIX_H; endif
      if nLeft   >= 1.0; nLeft   *= GRP_CHARPIX_W; endif
      if nBottom >= 1.0; nBottom *= GRP_CHARPIX_H; endif
      if nRight  >= 1.0; nRight  *= GRP_CHARPIX_W; endif
   endif
   //::CalcSize( @nTop, @nLeft, @nWidth, @nHeight, lRelPix, oWnd, @nBottom, @nRight )


   ::nTop  = nTop  * If( lPixel, 1, GRP_CHARPIX_H ) // 14
   ::nLeft = nLeft * If( lPixel, 1, GRP_CHARPIX_W ) //  7

   if nWidth != nil
      ::nRight = ::nLeft + nWidth
   else
      ::nRight   = nRight  * If( lPixel, 1, GRP_CHARPIX_W ) //  7
   endif


   if nHeight != nil
      ::nBottom = ::nTop + nHeight
   else
      ::nBottom  = nBottom * If( lPixel, 1, GRP_CHARPIX_H ) // 14
   endif
 

And my group problem is solved. Maybe this can give you an idea.