FWH 8.11 Nested TGroup + WindowsXP.Manifest Problem

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

FWH 8.11 Nested TGroup + WindowsXP.Manifest Problem
Posted: Thu Dec 11, 2008 08:22 PM

Hi,

I use Nested TGroup in my app with WindowsXP.Manifest. Inner TGroup override the outer TGroups's Left and bottom sides.

Any Advice?

Thanks,

without Manifest:

with Manifest:

test.prg

Code: Select all Collapse

#include "FiveWin.ch" 

function Main() 
LOCAL oGet1, oGet2, oGet3, oGet4, oGet5, obtnCancel, obtnChg
LOCAL oFnt, oFnt2, oDlg, oFld, oGrp, oGrp1 
LOCAL xVekNo := 11, xREFNO := SPACE(15), xNOTER := SPACE(20)
    
  DEFINE FONT oFnt NAME "Verdana" SIZE 0, -16 BOLD 
	DEFINE FONT oFnt1 NAME "Verdana" SIZE 0, -12

   DEFINE DIALOG oDlg SIZE 620, 294 FONT oFnt1 TRANSPARENT ;
   		STYLE nOr( WS_OVERLAPPEDWINDOW ) //COLOR CLR_BLACK,RGB(196,244,244)
		oDlg:SetColor(,9425383)
   
  @ 2, 3 GROUP oGrp TO 150, 150 PROMPT " Group Text " OF oDlg PIXEL TRANSPARENT;
  	FONT oFnt

  @ 10, 10 GROUP oGrp1 TO 100, 150 PROMPT " Second Group Text " OF oDlg PIXEL TRANSPARENT;
  	FONT oFnt

	@ 15,160 SAY oSay PROMPT "No" OF oDlg PIXEL UPDATE
	@ 13,218 GET oGet1 VAR xVEKNO OF oDlg PIXEL RIGHT PICT "@Z 9999999" UPDATE

	@ 28,160 SAY oSay PROMPT "Referans No" OF oDlg PIXEL UPDATE
	@ 26,218 GET oGet5 VAR xREFNO OF oDlg PIXEL SIZE 60,12 UPDATE

	@ 41,160 SAY "Remarks" OF oDlg PIXEL UPDATE
	@ 39,218 GET oGet2 VAR xNOTER OF oDlg PIXEL SIZE 80,12 UPDATE

	@ 100,10 BUTTON obtnCancel PROMPT "&Cancel" OF oDlg PIXEL SIZE 50,13 ;
		ACTION oDlg:End()

  oDlg:bResized := {|| ONINIT_VEKALET(oDlg, oGrp, obtnCancel) }
	ACTIVATE DIALOG oDlg CENTERED ON INIT ONINIT_VEKALET(oDlg, oGrp, obtnCancel)
	
	oFnt:End()
	oFnt1:End()

return nil 

PROCEDURE ONINIT_VEKALET(oDlg, oGrp, obtnCancel, obtnChg)
LOCAL i

  oGrp:nHeight := oDlg:nHeight-80
  oGrp:nWidth  := oDlg:nWidth-29
  
  obtnCancel:nTop := oDlg:nHeight-70
	obtnCancel:nLeft := oDlg:nWidth-125


return

.rc

Code: Select all Collapse

1 24 "WindowsXP.Manifest"

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

fraxzi

Posts: 811

Joined: Tue May 06, 2008 04:28 AM

FWH 8.11 Nested TGroup + WindowsXP.Manifest Problem
Posted: Fri Dec 12, 2008 12:22 AM

Hello Hakan,

Please look with this link http://fivetechsoft.com/forums/viewtopic.php?t=11257&start=15&sid=1d862b4db232c18101ff676c34f4ffa4

Regards,

Kind Regards,

Frances

Fivewin for xHarbour v18.07

xHarbour v1.2.3.x

BCC 7.3 + PellesC8 ( Resource Compiler only)

ADS 10.1 / MariaDB

Crystal Reports 8.5/9.23 DE

xMate v1.15

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

FWH 8.11 Nested TGroup + WindowsXP.Manifest Problem
Posted: Fri Dec 12, 2008 07:12 AM

Thanks fraxzi,

I have added to my on init. But your solution does not worked form my sample.

Another solution?

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

FWH 8.11 Nested TGroup + WindowsXP.Manifest Problem
Posted: Fri Dec 12, 2008 10:13 PM

Antonio,

Any Suggestion?

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

Horizon

Posts: 1387

Joined: Fri May 23, 2008 01:33 PM

FWH 8.11 Nested TGroup + WindowsXP.Manifest Problem
Posted: Sun Dec 14, 2008 12:57 PM

Hi fraxzi,

You are right. I have looked the whole thread. It is related the Method Colors() in TControl class.

I have found the my problem's solution, but I don't know it's true?

When I remove the "TGROUP" in

Code: Select all Collapse

if Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP"

or

Remarks the line

Code: Select all Collapse

SendMessage( ::oWnd:hWnd, WM_ERASEBKGND, hDC, 0 ) // to properly remove/set the dotted rect

Antonio,

Can you help me?

Thanks

Regards,

Hakan ONEMLI

Harbour & MSVC 2022 & FWH 23.06

FiveTech Support Forums

Continue the discussion