topic-44961

Board index FiveWin for Harbour/xHarbour 24.07 and 24.09 TGroup problem.

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

24.07 and 24.09 TGroup problem.

Posted: Wed Oct 02, 2024 09:01 AM

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.

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: 24.07 and 24.09 TGroup problem.

Posted: Thu Oct 03, 2024 03:23 PM

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: 24.07 and 24.09 TGroup problem.

Posted: Thu Oct 03, 2024 03:37 PM

karinha wrote: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.

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: 24.07 and 24.09 TGroup problem.

Posted: Thu Oct 03, 2024 10:18 PM

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?

Regards

G. N. Rao.

Hyderabad, India

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

Re: 24.07 and 24.09 TGroup problem.

Posted: Sun Oct 06, 2024 04:47 PM

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 (fw): Select all Collapse

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 (fw): Select all Collapse

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.

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

FiveTech Support Forums

24.07 and 24.09 TGroup problem.

Re: 24.07 and 24.09 TGroup problem.

Re: 24.07 and 24.09 TGroup problem.

Re: 24.07 and 24.09 TGroup problem.

Re: 24.07 and 24.09 TGroup problem.

Continue the discussion