Домой Классы Статические функции Перечисления (ENUM) Записи (RECORD)

{Form_common|_with_basic_handlers}



CLASS {Form_common|_with_basic_handlers}
,
UNTESTED, BITWISE:






IMPORT : 
{Form}
, 
{Dialog}
, 
{Control}
, 
{Timer}
, 
{Label}
, 
{AL4_form}
 .


BASE CLASS 
{Form} .




--------------------------------- 'change entire form background to TEALed'

  







FUNCTION 
Set_all_forms_background

(
INT 
B|ackground_to_set
)












FUNCTION 
Set_all_forms_min|imal_size_restrictions

(

     INT 
Min_w|idth
, 

     INT 
Min_h|eight
)








----------------- 'hint on controls showing entire text under mouse cursor'

   







FUNCTION 
Hint_on_control_under_mouse

(

     {Form} 
F|orm_of_which
, 

     STR 
Old_hint
)
 ==> STR 












FUNCTION 
Draw_focus_frame

(
{Paint_lines} 
Sender|_box
)












FUNCTION 
Common_paint_item

(
{Control} 
Sender|_paint_table
)







STR 
Hint|_current





  







FUNCTION 
Set_hint_colors

(

     INT 
Foreground
, 

     INT 
Background
, 

     INT 
NNLF|oregrgound_non_latins
)












FUNCTION 
Paint_hints

(
{Form} 
F|orm_of_which
, 
STR 
S|how_hint
)








------ 'scroll {Paint_lines}, {Paint_table}, {Paint_tree} with mouse wheel'

   







FUNCTION 
Do_mouse_wheel

(
{Form} 
F|orm_to_wheel
)
 ==> BOOL 











OVERRIDE 
Get_info













FUNCTION 
Table_header_style

(
{Paint_table} 
Table|_any
)








----------- 'handle keyboard in {Paint_lines}, {Paint_table}, {Paint_tree}'

   







FUNCTION 
Handle_key

(
{Form} 
F|orm_to_handle_key_pressed
)
 ==> BOOL 












FUNCTION 
Handle_after_key

(

     {Form} 
F|orm_to_handle_key_pressed
)
 ==> BOOL 












FUNCTION 
Common_timer

(

     {Control} 
Reactivate|_which_control
, 

     {Timer} 
Timer|_object
, 

     {Control} 
Sender|_object
)








-------------------------------------------------- 'enter & leave controls'


END


См. так же с защищёнными членами