FWH 8.12 Nested TGroup + WindowsXP.Manifest Problem

[Horizon]

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,

ps. This problem occurs also fwh 8.11. I have a thread in this subject.

without Manifest:


with Manifest:


test.prg

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()
LOCAL oGet1, oGet2, oGet3, oGet4, oGet5, obtnCancel, obtnChg
LOCAL oRadio, oCheckBox, lValue := .f., nValue := 2
LOCAL oFnt, oFnt2, oDlg, oFld, oGrp, oGrp1
LOCAL xVekNo := 11, xREFNO := SPACE(15), xNOTER := SPACE(20)
xDos_Basma:=.f.
   
  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

   @ 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
   oDlg:bEraseBkGnd :=  Nil
  oGrp:nHeight := oDlg:nHeight-80
  oGrp:nWidth  := oDlg:nWidth-29
  obtnCancel:nTop := oDlg:nHeight-70
   obtnCancel:nLeft := oDlg:nWidth-125
return

test.rc

Code: Select all  Expand view

1 24 "WindowsXP.Manifest"

[Horizon]

Antonio,

any advice?

[Enrico Maria Giordano]

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oFnt

    LOCAL oGrp1, oGrp2

    DEFINE FONT oFnt NAME "Arial" SIZE 0, -16 BOLD

    DEFINE DIALOG oDlg;
           SIZE 800, 600;
           COLOR NIL, CLR_GREEN;
           STYLE WS_OVERLAPPEDWINDOW

    @ 0, 0 GROUP oGrp1 TO 0, 0;
           PROMPT "Outer groupbox";
           FONT oFnt

    @ 0, 0 GROUP oGrp2 TO 0, 0;
           PROMPT "Inner groupbox";
           FONT oFnt

    oDlg:bResized = { || SizeGroups( oDlg, oGrp1, oGrp2 ) }

    ACTIVATE DIALOG oDlg;
             ON INIT SIZEGROUPS( oDlg, oGrp1, oGrp2 );
             CENTER

    RELEASE FONT oFnt

    RETURN NIL


STATIC FUNCTION SIZEGROUPS( oDlg, oGrp1, oGrp2 )

    IF oGrp1 = NIL .OR. oGrp2 = NIL; RETURN NIL; ENDIF

    oGrp1:Move( 10, 10, oDlg:nWidth() - 30, oDlg:nHeight() - 50 )
    oGrp2:Move( 40, 40, oDlg:nWidth() - 90, oDlg:nHeight() - 110 )

    oDlg:Refresh( .F. )

    RETURN NIL

EMG

[Horizon]

Thanks Enrico,

I didn't understand that why do you use oGrp:Move instead of changing widht and height. When I use move there is no problem.

I only delete TRANSPARENT in DEFINE DIALOG and GROUP in my original code, My problem has solved.

Thanks again.