Subversion Repositories Kolibri OS

Rev

Rev 2587 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2587 Rev 2695
Line 22... Line 22...
22 
	WHILE (bytes>1023) bytes/=1024;
 22 
	WHILE (bytes>1023) bytes/=1024;
23 
	copystr(IntToStr(bytes),#size_prefix);
 23 
	copystr(IntToStr(bytes),#size_prefix);
24 
	copystr(#temp,#size_prefix+strlen(#size_prefix));
 24 
	copystr(#temp,#size_prefix+strlen(#size_prefix));
25 
	EAX=#size_prefix;
 25 
	EAX=#size_prefix;
26 
}
 26 
}
- 
 
 27 
 
- 
 
 28 
inline fastcall void TVScroll() { //Ïðîêðóòêà
- 
 
 29 
	dword on_y;
- 
 
 30 
	IF (count<=0) {DrawFlatButton(onLeft(27,0),57,16,onTop(22,58),0,0xE4DFE1,""); return;}
- 
 
 31 
	on_y = za_kadrom * onTop(22,57) / count +57;
- 
 
 32 
	scroll_size=onTop(22,57) * but_num - but_num / count;
- 
 
 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); //äëÿ áîëüøîãî ñïèñêà
- 
 
 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 
}
27 

            39