24.07 and 24.09 TGroup problem.

24.07 and 24.09 TGroup problem.

Postby Horizon » Wed Oct 02, 2024 9: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.
Image

24.09 screen.
Image

ps. I use TRANSPARENT in dialog. I have tried to remove and test it. There is not any change.
Last edited by Horizon on Fri Oct 04, 2024 8:31 am, edited 1 time in total.
Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.04
Horizon
 
Posts: 1322
Joined: Fri May 23, 2008 1:33 pm

Re: 24.07 and 24.09 TGroup problem.

Postby karinha » Thu Oct 03, 2024 3: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
User avatar
karinha
 
Posts: 7804
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: 24.07 and 24.09 TGroup problem.

Postby Horizon » Thu Oct 03, 2024 3: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.04
Horizon
 
Posts: 1322
Joined: Fri May 23, 2008 1:33 pm

Re: 24.07 and 24.09 TGroup problem.

Postby nageswaragunupudi » 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
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: 24.07 and 24.09 TGroup problem.

Postby Horizon » Sun Oct 06, 2024 4: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: Select all  Expand view
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
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.04
Horizon
 
Posts: 1322
Joined: Fri May 23, 2008 1:33 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Otto and 56 guests