Rev 2875 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
2568 | leency | 1 | //Leency - 2012 |
2 | |||
3 | dword onLeft(dword right,left) {EAX=Form.width-right-left;} |
||
2875 | leency | 4 | dword onTop(dword down,up) {EAX=Form.height-GetSkinHeight()-down-up;} |
2568 | leency | 5 | |
6 | |||
7 | void ShowMessage(dword message) |
||
8 | { |
||
9 | DrawFlatButton(Form.width/2-13,160,200,80,0,0xFFB6B5, message); |
||
10 | Pause(150); |
||
11 | List_ReDraw(); |
||
12 | } |
||
13 | |||
14 | |||
15 | dword ConvertSize(dword bytes) |
||
16 | { |
||
3043 | leency | 17 | unsigned char size_prefix[8], size_nm[4]; |
18 | if (bytes>=1073741824) copystr(" Gb",#size_nm); |
||
19 | else if (bytes>=1048576) copystr(" Mb",#size_nm); |
||
20 | else if (bytes>=1024) copystr(" Kb",#size_nm); |
||
21 | else copystr(" b ",#size_nm); |
||
22 | while (bytes>1023) bytes/=1024; |
||
2568 | leency | 23 | copystr(IntToStr(bytes),#size_prefix); |
3043 | leency | 24 | copystr(#size_nm,#size_prefix+strlen(#size_prefix)); |
25 | return #size_prefix; |
||
2568 | leency | 26 | } |
2695 | leency | 27 | |
28 | inline fastcall void TVScroll() { //Прокрутка |
||
29 | dword on_y; |
||
3043 | leency | 30 | if (count<=0) {DrawFlatButton(onLeft(27,0),57,16,onTop(22,58),0,0xE4DFE1,""); return;} |
2695 | leency | 31 | on_y = za_kadrom * onTop(22,57) / count +57; |
32 | scroll_size=onTop(22,57) * but_num - but_num / count; |
||
3043 | leency | 33 | if (scroll_size<20) scroll_size = 20; //устанавливаем минимальный размер скролла |
34 | if (scroll_size>onTop(22,57)-on_y+56) || (za_kadrom+but_num>=count) on_y=onTop(23+scroll_size,0); //для большого списка |
||
2695 | leency | 35 | DrawFlatButton(onLeft(27,0),on_y,16,scroll_size,0,0xE4DFE1,"");//ползунок |
36 | DrawBar(onLeft(26,0),57,15,on_y-57,0xCED0D0);//поле до ползунка |
||
37 | DrawBar(onLeft(26,0),on_y+scroll_size+1,15,onTop(22,57)-scroll_size-on_y+56,0xCED0D0); //поле после ползунка |
||
38 | }20)>=0)> |