Home

Add

Edit

Without Linenumbers

Code in Textfield

ctl.bi

  1. #MAKRO get_ctl_callback(v_class, v_callback)
    
  2. Select Case v_class
    
  3.     Case button: v_callback = @ctl_int_callback_button
    
  4.     Case scroll: v_callback = @ctl_int_callback_scroll
    
  5. End Select
    
  6. #END Macro
    
  7. 
    
  8. Type control
    
  9.     Declare Property Width () As Integer
    
  10.     Declare Property Width (v_value As Integer)
    
  11.     Declare Property height () As Integer
    
  12.     Declare Property height (v_value As Integer)
    
  13. End Type
    
  14. 
    
  15. Property Width ()
    
  16. '...
    



scroll.bi

  1. Type scroll
    
  2.     Declare Property Width () As Integer
    
  3.     Declare Property Width (v_value As Integer)
    
  4.     Declare Property height () As Integer
    
  5.     Declare Property height (v_value As Integer)
    
  6.     
    
  7.     Declare Property max '...
    
  8.     Declare Property value '...
    
  9. End Type
    
  10. 
    
  11. 
    
  12. Sub ctl_int_callback_scroll()
    
  13. '...
    
  14. End Sub