Домой Классы Статические функции Перечисления (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'

   






OVERRIDE 
shown













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'

        






OVERRIDE 
mouse_move













FUNCTION 
Hint_on_control_under_mouse

(

     {Form} 
F|orm_of_which
, 

     STR 
Old_hint
)
 ==> STR 












FUNCTION 
text_hint

(

     {Form} 
F|orm_of_control
, 

     {Control} 
c|ontrol_hinting
)
 ==> STR 











METHOD 
prefix_text_hint

(
{Control} 
c|ontrol_hinting
)
 ==> STR 











OVERRIDE 
paint













FUNCTION 
Draw_focus_frame

(
{Paint_lines} 
Sender|_box
)











OVERRIDE 
paint_item













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'

    






OVERRIDE 
mouse_wheel

 ==> BOOL 












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}'


{Control} 
on_wh|ich_control_key_down





      






OVERRIDE 
key_down

 ==> {Form}.{action} 











OVERRIDE 
key_press

 ==> {Form}.{action} 











OVERRIDE 
key_up

 ==> {Form}.{action} 












FUNCTION 
want_reactivate

(
{Form} 
F|orm_or_dialog_common
)












FUNCTION 
Handle_key

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












FUNCTION 
Handle_after_key

(

     {Form} 
F|orm_to_handle_key_pressed
)
 ==> BOOL 







{Control} 
reactivate|_control






{Timer} 
timer_reactivate





   






OVERRIDE 
timer













FUNCTION 
Common_timer

(

     {Control} 
Reactivate|_which_control
, 

     {Timer} 
Timer|_object
, 

     {Control} 
Sender|_object
)











OVERRIDE 
mouse_double_click









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

     







FUNCTION 
enter_leave

(
{Control} 
sender|_focus_changed
)












FUNCTION 
enter_focus|_control

(
{Control} 
sender|_entered
)












FUNCTION 
leave_focus|_control

(
{Control} 
sender|_entered
)











OVERRIDE 
enter












OVERRIDE 
leave








END