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

{Paint_tabs|_scrollable}



CLASS {Paint_tabs|_scrollable}
, UNTESTED :








Класс для отображения и управления пользователем (с помощью мыши или другого указательного устройства) линейкой вкладок.



IMPORT : 
{Paintbox}
, 
{Form}
, 
{AL4_form}
, 
{Control}
 .


BASE CLASS 
{Paintbox} .


 







FUNCTION 
New_paint_tabs

(

     {Form} 
Parent|_form
, 

     STR 
Alias|_paint_lines
)
 ==> {Paint_tabs} 
 , NEW








----------------------------------------------------------------- 'вкладки'



STR 
Tabs|_list[]
 , READ





 






OVERRIDE 
Count

 ==> INT 







{Object} 
Data_|for_tabs_[]
 , READ






BOOL 
Highlight|_tabs[]
 , READ






INT 
Color_highlight|_for_highlighted_tabs





     






METHOD 
Insert_tab|_at_position

(

     INT 
At|_position
, 

     STR 
Tab_name|_to_insert
, 

     {Object} 
Data|_to_associate_with_tab_inserted
)











METHOD 
Replace_tab

(

     INT 
At|_position
, 

     STR 
Tab_name|_to_insert
, 

     {Object} 
Data|_to_associate_with_tab_inserted
)











METHOD 
Delete_tab

(
INT 
At|_position
)











METHOD 
Move_tab

(
INT 
From|_position
, 
INT 
To|_position
)











METHOD 
Set_highlight

(
INT 
Index|_to_highlight
, 
BOOL 
Set|_or_reset
)








--------------------------------------------------------- 'текущая вкладка'


INDEXING 
({Object},STR)

INT 
Current_tab|_index
 , READ





  






METHOD 
Current|_tab_get

 ==> INT 











METHOD 
Select|_tab|_by_index

(
INT 
Index|_tab
)








-------------------------------------------- 'прокрутка левой кнопкой мыши'




------------------------------------------------------- 'отрисовка вкладок'


  






METHOD 
Tab_position

(

     INT 
Index|_of_tab
INDEXING 
REAL
)
 ==> REAL 











METHOD 
Tab_width

(

     INT 
Index|_of_tab
INDEXING 
REAL
)
 ==> REAL 







INT 
Drawing_tab|_index_or_minus_one_when_filling_background






END


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