FiveTech Support Forums

 function misfolders()

   local oDlg, oFld, oSay,oFont,APERS2,oBrush

	 DEFINE BRUSH oBrush FILE "Brush.Bmp"

   DEFINE DIALOG oDlg OF oChild TRANSPARENT FROM 0, 0 TO 0, 0

  @ 20.135, 20.4 FOLDER oFld PROMPTS "&Datos del cliente", "&And OOP", "&Primas pagadas" ;
  	PAGES "fold1", "fold2", "fold3" COLORS "CLR_YELLOW,CLR_HBLUE";
OF oDlg SIZE 517.6, 160

 oFld:aDialogs[1]:SetBrush( oBrush )// funciona
 oFld:aDialogs[2]:SetBrush( oBrush )// funciona
 oFld:aDialogs[1]:SetColor(rgb(255, 255, 200)) //no funciona

 oFld:aEnable = { .t., .t. ,.t.}

 oFld:aDialogs[1]:SetColor( "CLR_YELLOW,CLR_HBLUE" )// no funciona

  oFld:SetColor( "CLR_YELLOW,CLR_HBLUE" )// no funciona

DEFINE FONT oFont NAME "Ms Serif" SIZE 14,14


@ 0,1 SAY oSay PROMPT "  NOMBRE  " oF oFld:aDialogs[ 1 ]
@ 1,1 say oGetN var getNOM OF oFld:aDialogs[ 1 ] size 150,10 BORDER 


   ACTIVATE DIALOG oDlg NOWAIT ;
      ON INIT ChangeParent( oDlg, oWndD )

oBrush:End()
oDlg:End()
   
return nil

function ChangeParent( oDlg,  oWndD )

   local hCtrl := GetWindow( oDlg:hWnd, GW_CHILDD )
   local n, aChilds := {}

   while hCtrl != 0
      AAdd( aChilds, hCtrl )
      hCtrl = GetWindow( hCtrl, GW_HWNDNEXTT )
   end

   AEval( aChilds, { | hCtrl | SetParent( hCtrl,  oWndD:hWnd ) } )

   for n = 1 to Len( oDlg:aControls )
      AAdd(  oWndD:aControls, oDlg:aControls[ n ] )
   next

return nil