DATA nFColor 
  DATA nBColor 
  DATA lFocused   INIT .F. 
  
 METHOD SetColor( tcolor, bColor, lRepaint ) CLASS HEdit  
  
  If ::nFColor == Nil 
     ::nFColor := tcolor 
  EndIf 
  If ::nBColor == Nil 
     ::nBColor := bColor 
  EndIf 
  If ::nFColor == Nil 
     ::nFColor := 0 
  EndIf 
  
 RETURN Super:SetColor( tcolor, bColor, lRepaint ) 
  
 METHOD SetColorReal() CLASS HEdit   
 LOCAL tC := ::nFColor   
 LOCAL bC := ::nBColor   
 LOCAL xC   
    
   If ::lFocused .and. lColorinFocus   
      tC := tColorinFocus   
      bC := bColorinFocus    
   EndIf  
   If hb_IsBlock(tC)   
      xC := Eval(tC, Self)   
      If hb_IsNumeric(xC)   
         tC := xC   
      EndIf   
   EndIf   
   If hb_IsBlock(bC)   
      xC := Eval(bC, Self)   
      If hb_IsNumeric(xC)   
         bC := xC   
      EndIf   
   EndIf   
  
   Super:SetColor( tC, bC, .T. )   
      
 RETURN  
     
 METHOD Refresh()  CLASS HEdit 
    LOCAL vari 
  
    ::SetColorReal() 
  
    IF hb_isBlock( ::bSetGet ) 
       vari := Eval( ::bSetGet, , self ) 
       IF vari == Nil 
          vari := "" 
       ENDIF 
  
       IF !Empty( ::cPicFunc ) .OR. !Empty( ::cPicMask ) 
          vari := Transform( vari, ::cPicFunc + iif( Empty(::cPicFunc ),""," " ) + ::cPicMask ) 
       ELSE 
          vari := iif( ::cType == "D", Dtoc( vari ), iif( ::cType == "N",Str(vari ),iif(::cType == "C",vari,"" ) ) ) 
       ENDIF 
       ::title := vari 
       hwg_Setdlgitemtext( ::oParent:handle, ::id, vari ) 
    ELSE 
       hwg_Setdlgitemtext( ::oParent:handle, ::id, ::title ) 
    ENDIF 
 //   IF ::bColorBlock != Nil .AND. hwg_Isptreq( ::handle, hwg_Getfocus() ) 
 //      Eval( ::bColorBlock, Self ) 
 //   ENDIF 
  
    RETURN Nil 
  
 и   
  
     IF msg == WM_SETFOCUS  
         ::lFocused := .T. 
         ::Refresh()  
     ELSEIF msg == WM_KILLFOCUS  
         ::lFocused := .F. 
         ::Refresh()  
  
 тогда должны совместиться старые тексты с исп.  
 hwg_SetColorinFocus( lColor, ... ) и 
 ::SetColor(...) и 
 добавится возможность ставить 
 ::nFColor := {|o,v| v := o:Value(), iif(v < 0, ..., iif(v >=0 .and. v <= 1000, ... }  
 ::nBColor := {|o| iif(o:lFocused, ..., ...) } 
 

 
 c:\HwGui\_hbmk2.bat 
 @echo off 
 cls 
 set path=c:\minigui\harbour\bin;c:\borland\bcc55\bin; 
 set hb_path=c:\minigui\harbour\bin 
  
 echo ------- hwgui.hbp --------  > _hbmk2.txt 
 %hb_path%\hbmk2.exe -info -comp=bcc -trace hwgui.hbp    >> _hbmk2.txt 
 echo ------- hbxml.hbp --------     >> _hbmk2.txt 
 %hb_path%\hbmk2.exe -info -comp=bcc -trace hbxml.hbp    >> _hbmk2.txt 
 echo ------- hwgdebug.hbp --------  >> _hbmk2.txt 
 %hb_path%\hbmk2.exe -info -comp=bcc -trace hwgdebug.hbp >> _hbmk2.txt 
 echo ------- procmisc.hbp --------  >> _hbmk2.txt 
 %hb_path%\hbmk2.exe -info -comp=bcc -trace procmisc.hbp >> _hbmk2.txt 
  
 C:\HwGui\contrib\_hbmk2.bat 
 @echo off 
 cls 
 set path=c:\minigui\harbour\bin;c:\borland\bcc55\bin; 
 set hb_path=c:\minigui\harbour\bin 
  
 echo ------- hbactivex.hbp --------  > _hbmk2.txt 
 %hb_path%\hbmk2.exe -info -comp=bcc -trace hbactivex.hbp    >> _hbmk2.txt 
 echo ------- hwg_extctrl.hbp --------     >> _hbmk2.txt 
 %hb_path%\hbmk2.exe -info -comp=bcc -trace hwg_extctrl.hbp  >> _hbmk2.txt 
 echo ------- hwg_qhtm.hbp --------  >> _hbmk2.txt 
 %hb_path%\hbmk2.exe -info -comp=bcc -trace hwg_qhtm.hbp     >> _hbmk2.txt 
  
 C:\HwGui\samples\_hbmk2.bat 
 @echo off 
 cls 
 if %1.==. goto e 
  
 set path=c:\minigui\harbour\bin;c:\borland\bcc55\bin; 
 set hb_path=c:\minigui\harbour\bin 
  
 if not exist hwgui_xp.rc echo 1 24 "..\image\WindowsXP.Manifest" > hwgui_xp.rc 
  
 echo -------------- %1 -------------------- > _hbmk2.txt 
 %hb_path%\hbmk2.exe -info -comp=bcc -trace ..\hwgui.hbc hwgui_xp.rc %1 >> _hbmk2.txt 
  
 :e 
  
 C:\HwGui\tutorial\_hbmk2.bat 
 @echo off 
 SET P=tutor.prg 
  
 set path=c:\minigui\harbour\bin;c:\borland\bcc55\bin; 
 set hb_path=c:\minigui\harbour\bin 
  
 if not exist hwgui_xp.rc echo 1 24 "..\image\WindowsXP.Manifest" > hwgui_xp.rc 
  
 echo ------- %P% --------  > _hbmk2.txt 
 %hb_path%\hbmk2.exe -info -comp=bcc -trace ..\..\hwgui.hbc hwgui_xp.rc %P% >> _hbmk2.txt