FiveTech Support Forums

#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

1 24 "WindowsXP.Manifest"

#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