Ads

  1 
  2 type vBtnSys <inherit = vCtrl>
  3 {
  4    uint    fPush
  5    evEvent onclick
  6 }
  7 
  8 property vBtnSys.Push( uint val )
  9 {
 10    if val : val = 1 
 11    if this.fPush != val
 12    {
 13       this.fPush = val
 14       InvalidateRect( this.hwnd, 0->RECT, 1 )   
 15    }
 16 }
 17 
 18 property uint vBtnSys.Push()
 19 {
 20    return this.fPush
 21 }
 22 
 23 /*method uint vBtnSys.defproc( eventn ev )
 24 {
 25    switch ev.code
 26    {
 27       case $e_mouse
 28       {      
 29          switch ev->eventmouse.evmtype 
 30          {
 31             case $evmLDown 
 32             {            
 33                this.push = 1               
 34                SetCapture( this.hwnd )
 35                this.onclick.run()             
 36             }
 37             case $evmLUp 
 38             {
 39                this.push = 0               
 40                ReleaseCapture()
 41             }            
 42          }
 43       }      
 44    }
 45    return this->vctrl.defproc( ev )
 46 }*/
 47 
 48 method uint vBtnSys.wmpaint <alias=vBtnSys_wmpaint>( winmsg wmsg )
 49 {
 50    uint         hdc
 51    PAINTSTRUCT  ps
 52    RECT         rect         
 53    
 54    hdc = BeginPaint( this.hwnd, ps )       
 55    rect.left = 0
 56    rect.top = 0
 57    rect.right = this.loc.width
 58    rect.bottom = this.loc.height
 59    DrawFrameControl( hdc, rect, 3, 1 | ?( this.fPush, 0x4200, 0 ))          
 60    EndPaint( this.hwnd, ps )
 61    return 0
 62 }
 63 
 64 method uint vBtnSys.wmlbuttondown <alias=vBtnSys_wmlbuttondown>( winmsg wmsg )
 65 {            
 66    this.Push = 1               
 67    SetCapture( this.hwnd )
 68    this.onclick.run() 
 69    wmsg.flags = 1
 70    return 0            
 71 }
 72 
 73 method uint vBtnSys.wmlbuttonup <alias=vBtnSys_wmlbuttonup>( winmsg wmsg ) 
 74 {
 75    this.Push = 0               
 76    ReleaseCapture()
 77    wmsg.flags = 1
 78    return 0
 79 }
 80 
 81 method vBtnSys vBtnSys.mCreateWin <alias=vBtnSys_mCreateWin>()
 82 {   
 83    .CreateWin( "GVForm".ustr(), 0, 
 84                        $WS_CHILD | $WS_VISIBLE | $WS_CLIPCHILDREN | $WS_CLIPSIBLINGS | $WS_OVERLAPPED )
 85    this->vCtrl.mCreateWin()      
 86    .WinMsg( $WM_SETFONT, GetStockObject( $DEFAULT_GUI_FONT ) )                     
 87    return this
 88 }
 89 
 90 method vBtnSys vBtnSys.init( )
 91 {    
 92    this.pTypeId = vBtnSys      
 93    this.Visible = 1
 94    return this 
 95 }  
 96 
 97 func init_vBtnSys <entry>()
 98 {  
 99    regcomp( vBtnSys, "vBtnSys", vCtrl, $vCtrl_last, 
100       %{ %{$mCreateWin,    vCustomBtn_mCreateWin}/*,
101          %{$mWinCmd,       vBtn_mWinCmd},
102          %{$mLangChanged, vBtn_mLangChanged }*/}, 
103       %{ %{$WM_PAINT,      vBtnSys_wmpaint },
104          %{$WM_LBUTTONDOWN,  vBtnSys_wmlbuttondown },
105          %{$WM_LBUTTONUP,    vBtnSys_wmlbuttonup }
106       } )
107 }