FiveTech Support Forums

#include "FiveWin.ch"

function Main()

   local oWnd

   SetResDebug( .T. )

   DEFINE WINDOW oWnd MDI 

   ACTIVATE WINDOW oWnd

   CheckRes()
   WinExec( "notepad checkres.txt" )

return nil

#include "FiveWin.ch"

function Main()

   local oWnd, oFont

   SetResDebug( .T. )

   DEFINE FONT oFont NAME "Verdana" SIZE 0, -10

   DEFINE WINDOW oWnd MDI 
   
   oWnd:SetFont( oFont )    

   ACTIVATE WINDOW oWnd

   oFont:End()

   CheckRes()
   WinExec( "notepad checkres.txt" )

return nil

CLASS MyBrowse FROM TXBrowse
   CLASSDATA lRegistered AS LOGICAL // This is compulsory for derived classes
    METHOD New( oWnd ) CONSTRUCTOR 
 ENDCLASS


METHOD New( oWnd ) CLASS MyBrowse

   DEFINE FONT ::oFont NAME "Arial" SIZE 0, -15   // aqui desaparece el font 
   ::Super:New( oWnd )

  //   DEFINE FONT ::oFont NAME "Arial" SIZE 0, -15 // aqui se mantiene el font al salir ...
    
   ::lKineticBrw:= .f.
   ::l2007:= .t.
   ::bClrHeader   := ;
   ::bClrFooter   := {|| { GetSysColor( COLOR_BTNTEXT ), If( ::l2007, nRGB( 229, 229, 229 ), GetSysColor( COLOR_BTNFACE ) ), ;
                           nRGB( 149, 149, 149 ), nRGB( 230, 230, 230 ) } }
     
   ........

  DEFINE FONT oheaderFONT NAME "Arial" SIZE 0, -8

 oBrw := TxBrowse():New( ::oWnd )
   oCol := oBrw:AddCol()
      WITH OBJECT oCol
         :cHeader  := "Descripción"
         :oHeaderFont := oheaderFONT
         :bStrData  := { || left((::calias)->descrip ,32 ) }
          :nWidth := 290
       END
 obrw:SetRDD()
  obrw:CreateFromCode()

  // oHeaderFont:end()  // si la destruyo aqui no se aplica al browse.

METHOD New( oWnd ) CLASS MyBrowse

   DEFINE FONT ::oFont NAME "Arial" SIZE 0, -15   // aqui desaparece el font

#include "fivewin.ch"
#include "xbrowse.ch"

function TestMain()

   local oWnd
   local oBrw
   local oBar
   local lEmpty := .f.
   local oHeaderFont
   local aArray := {}
   
    SetResDebug( .t. )
   
      DEFINE FONT oheaderFONT NAME "Arial" SIZE 0, -28
   
   DEFINE WINDOW oWnd TITLE "Testing Autosave Data" 
   
  
   if empty( aArray )                          
      aArray := {{"one","two","three","four"},;
        {"one","two","three","four"},;
        {"one","two","three","four"},;
        {"one","two","three","four"}}    
   endif

   
   @ 0,0 XBROWSE oBrw OF oWnd ;
      COLUMNS {1,2,3,4} ;
      HEADERS {"Activated-1","Activated-2","Deactivated-1","DeActivated-2"} ;
      array aArray LINES CELL fastedit
   
   oBrw:aCols[ 1 ]:lAutoSave := .t.
   oBrw:aCols[ 2 ]:lAutoSave := .t.
   
   oBrw:aCols[ 2 ]:oHeaderFont := oheaderFONT
   
   aeval( oBrw:aCols, { |oCols| oCols:nEditType := EDIT_GET } )
   
   oWnd:oClient := oBrw
   
   oBrw:createfromcode()
   
   activate window oWnd 
      
  oheaderFONT:end()    // matar la fuente del header 

   checkres()
     
return nil