char char_width[255];

enum {
	COUNT_BUF_HEIGHT,
	DRAW_BUF
};

void Parcer(byte mode)
{
dword bufoff, buflen;
byte ch;
char line[4096]=0;
int srch_pos;
dword stroka_y=5;
dword line_length=30;
dword line_start=io.buffer_data;

	buflen = strlen(io.buffer_data) + io.buffer_data;
	for (bufoff=io.buffer_data; bufoff<buflen; bufoff++)
	{
		ch = ESBYTE[bufoff];
		line_length += char_width[ch];
		if (line_length>=list.w) || (ch==10) {
			srch_pos = bufoff;
			loop()
			{
				if (__isWhite(ESBYTE[srch_pos])) { bufoff=srch_pos+1; break; } //normal word-break
				if (srch_pos == line_start) break; //no white space found in whole line
				srch_pos--;
			}
			if (mode==COUNT_BUF_HEIGHT) {
				line_start = bufoff;
				line_length = 30;
				list.count++;
			}
			if (mode==DRAW_BUF) {
				EBX = bufoff-line_start;
				strlcpy(#line, line_start, EBX);
				kfont.WriteIntoBuffer(8,stroka_y,list.w,kfont.size.height, 0xFFFFFF, 0, kfont.size.pt, #line);
				stroka_y += list.item_h;
				line_start = bufoff;
				line_length = 30;
			}
		}
	}
	if (mode==COUNT_BUF_HEIGHT) list.count+=2;
	if (mode==DRAW_BUF) kfont.WriteIntoBuffer(8,stroka_y,list.w,kfont.size.height, 0xFFFFFF, 0, kfont.size.pt, line_start);
}

void PreparePage() 
{
	//get font chars width, need to increase performance
	int i;
	kfont.changeSIZE();
	for (i=0; i<256; i++) char_width[i] = kfont.symbol_size(i);

	//get font buffer height
	list.w = Form.cwidth-scroll.size_x-1;
	list.count=0;
	Parcer(COUNT_BUF_HEIGHT);
	
	//draw text in buffer
	list.SetSizes(0, TOOLBAR_H, list.w, Form.cheight-TOOLBAR_H, kfont.size.pt+4);
	if (list.count < list.visible) list.count = list.visible;
	kfont.size.height = list.count+1*list.item_h;
	kfont.raw_size = 0;
	Parcer(DRAW_BUF);

	if (list.count > list.visible * 10) DrawPage();
	//draw result
	kfont.ApplySmooth();
	DrawPage();
}