PUBLIC x
x=NEWOBJECT('azz')
READ EVENTS 

**************************************************
* -- Class:        azz (d:\vfp8\test.vcx)
 
* -- ParentClass:  form
 
* -- BaseClass:    form
 
* -- Time Stamp:   03/31/03 03:30:02 PM
 
*
DEFINE CLASS azz AS form

 Height =  250 
 Width =  375 
 DoCreate = .T.
 AutoCenter = .T.
 BorderStyle =  2 
 Caption =  "Form" 
 * -- Specifies the current state of a control.
 
 value =  0 
 Name =  "azz" 

 ADD OBJECT txtdec AS textbox WITH ;
  Alignment =  3 , ;
  Value =  0 , ;
  Height =  25 , ;
  Left =  56 , ;
  TabIndex =  2 , ;
  Top =  24 , ;
  Width =  290 , ;
  Name =  "txtDec" 

 ADD OBJECT lbldec AS label WITH ;
  Caption =  "Dec" , ;
  Height =  25 , ;
  Left =  24 , ;
  Top =  24 , ;
  Width =  30 , ;
  TabIndex =  1 , ;
  Name =  "lblDec" 
  ADD OBJECT txthex AS textbox WITH ;
  Alignment =  1 , ;
  Height =  25 , ;
  Left =  56 , ;
  TabIndex =  4 , ;
  Top =  61 , ;
  Width =  290 , ;
  Name =  "txtHex" 
  
 ADD OBJECT lblhex AS label WITH ;
  Caption =  "Hex" , ;
  Height =  25 , ;
  Left =  24 , ;
  Top =  61 , ;
  Width =  30 , ;
  MaxLength =  10 , ;
  TabIndex =  3 , ;
  Name =  "lblHex" 
 
 ADD OBJECT txtbin AS textbox WITH ;
  Alignment =  1 , ;
  Height =  25 , ;
  Left =  56 , ;
  MaxLength =  32 , ;
  TabIndex =  6 , ;
  Top =  98 , ;
  Width =  290 , ;
  Name =  "txtBin" 

 ADD OBJECT label2 AS label WITH ;
  Caption =  "Bin" , ;
  Height =  25 , ;
  Left =  24 , ;
  Top =  98 , ;
  Width =  30 , ;
  TabIndex =  5 , ;
  Name =  "Label2" 

 ADD OBJECT cmdcalc AS commandbutton WITH ;
  Top =  144 , ;
  Left =  252 , ;
  Height =  25 , ;
  Width =  85 , ;
  Caption =  "Calculate" , ;
  Name =  "cmdCalc" 

 PROCEDURE value_assign
  LPARAMETERS vNewVal
  this.txtDec.Value=vNewVal
  this.txtHex.Value=TRANSFORM(vNewVal,'@0')
  this.txtBin.Value=this.int2bin(vNewVal)
  THIS.Value = m.vNewVal
 ENDPROC

 PROCEDURE int2bin
  LPARAMETERS lnValue
  LOCAL i
  LOCAL b
  b=''
  FOR i= 0  TO  31 
   b=iif(bittest(lnValue,i),'1','0')+b
  ENDFOR 
  RETURN b
 ENDPROC

 PROCEDURE Init
  this.value= 0 
  this.Visible= .T. 
 ENDPROC

 PROCEDURE txtdec.LostFocus
  thisform.value=this.Value 
 ENDPROC

 PROCEDURE txthex.Valid
  LOCAL c
  c=this.Value
  IF LEFT(c, 2 )#'0x'
   ??CHR( 7 )
   KEYBOARD '{ESC}' PLAIN 
   RETURN .F.
  ELSE
   thisform.Value=&c
  ENDIF 
 ENDPROC

 PROCEDURE txthex.KeyPress
  ** Содрано из hexedit.pjx
  LPARAMETERS nKeyCode, nShiftAltCtrl
  **  Must be numeric or in  "ABCDEF"  or arrow keys or bkspace.
  DO CASE
  * Put valid keystrokes first
   CASE BETWEEN(nKeyCode,  48 ,  57 ) OR BETWEEN(nKeyCode,  97 ,  102 ) ;
   OR   BETWEEN(nKeyCode,  65 ,  70 )
      RETURN && Valid character keystroke.  Exit immediately.
   CASE BETWEEN(nKeyCode,  0 ,  31 );
   OR (nKeyCode =  148 ) OR (nKeyCode =  165 )	&& All valid keystrokes 
     RETURN
   OTHERWISE
    ?? CHR( 7 )		
  ENDCASE
  NODEFAULT
 ENDPROC

 PROCEDURE txtbin.LostFocus
  LOCAL c
  c= 0 
  FOR i= 0  TO  31 
   IF SUBSTR(this.Value, 32 -i, 1 )='1'
    c=BITSET(c,i)
   ENDIF 
  ENDFOR 
  thisform.value=c
 ENDPROC

ENDDEFINE
*
* -- EndDefine: azz
 
**************************************************