{Paintbox|_control}

CLASS {Paintbox|_control} , UNTESTED, BITWISE :

IMPORT : {Control} , {AL4_drawing} , {Canvas} , {Bitmap} , {Form} , {AL4_form} .

------------------------------------------------------------------ 'create'

BOOL Has_vertical_scroll , READ

BOOL Has_horizontal_scroll , READ

BOOL Can_focus , READ

BOOL Handle_tab|_when_in_focus

FUNCTION New_paintbox (
     {Form} Parent|_form ,
     STR Alias|_name ,
     STR Scrollbars|_VH ) ==> {Paintbox} , NEW

-------------------------------------------------------------- 'invalidate'

BOOL Invalidated|_flag_used_to_optimize_painting , READ

METHOD Invalid_rect\|angle ==> {rect}
METHOD Invalidate_rect\|angle ( {Geometry}.{rect} Rect\|angle_invalidate_coords_in_points )
METHOD Invalidate_all
METHOD Update\|_should_repaint_control

------------------------------------------------ 'content and visible area'

REAL Content_width|_in_points , READ

REAL Content_height|_in_points , READ

REAL Line_height|_points

METHOD Set_content_size ( REAL Area_w|idth , REAL Area_h|eight )

METHOD Visible_size|_in_points (
STR VH|orizontal_or_vertical ) ==> REAL

METHOD Visible_area|_coords_in_points ==> {rect}

----------------------------------------------------- 'scroll programmatic'

METHOD Move_top_left_to (
{Geometry}.{point} N|ew_top_left_position_in_points )

----------------------------------------------------------------- 'drawing'

{Canvas} Canvas|_available_only_in_paint_event , READ

FUN Is_dark|_color ( INT C|olor_to_check ) ==> BOOL

FUN Lighten_color ( INT C|olor_normal ) ==> INT

FUN Invert_back|ground_color ( INT C|olor_normal ) ==> INT

------------------------------------------------------------ 'cursor shape'

ENUMERATION {cursor|_shapes} :
        'ARROW|_DEFAULT_SHAPE' ,
        'IBEAM|_TEXT_POSITION' ,
        'NO|_DISALLOW' ,
        'CROSS|_GRAPHIC_SELECTION' ,
        'HAND|_SHAPE' ,
        'WAIT|_BUSY' ,
        'APP_START|ING_WITH_HOURGLASS' ,
        'UP_ARROW' ,
        'SIZE_ALL' ,
        'SIZE_WE|AST_TO_WEST' ,
        'SIZE_NS|OUTH_TO_NORD' ,
        'SIZE_NESW' ,
        'SIZE_NWSE' ,
        'HELP|_QUESTION' .

{cursor} Cursor|_shape , READ

METHOD Set_cursor|_shape ( {cursor} New_c|ursor ) , SETTER FOR Cursor

OVERRIDE Set_background ( INT C|olor_becomes_background )

----------------------------------------------------------------- 'panning'

BOOL Pan_content , READ

BOOL Indicate_pan|ning_avalible , READ

METHOD Set_pan_content (
BOOL P|an_content_when_too_large_to_fit ,
BOOL Ind|icate_panning_possible_in_given_directions )

{point} Pan_position , READ

METHOD Set_pan_pos|ition ( {point} New|_pan_position )

METHOD Invalid_rect\|angle ==> {rect}
METHOD Invalidate_rect\|angle ( {Geometry}.{rect} Rect\|angle_invalidate_coords_in_points )
METHOD Invalidate_all
METHOD Update\|_should_repaint_control

{Paintbox|_control}

END