Home

Add

Edit

With Linenumbers

Code in Textfield

ctl.bi

#MAKRO get_ctl_callback(v_class, v_callback)
Select Case v_class
    Case button: v_callback = @ctl_int_callback_button
    Case scroll: v_callback = @ctl_int_callback_scroll
End Select
#END Macro

Type control
    Declare Property Width () As Integer
    Declare Property Width (v_value As Integer)
    Declare Property height () As Integer
    Declare Property height (v_value As Integer)
End Type

Property Width ()
'...
     



scroll.bi

Type scroll
    Declare Property Width () As Integer
    Declare Property Width (v_value As Integer)
    Declare Property height () As Integer
    Declare Property height (v_value As Integer)
    
    Declare Property max '...
    Declare Property value '...
End Type


Sub ctl_int_callback_scroll()
'...
End Sub