Subversion Repositories Kolibri OS

Rev

Rev 9668 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9668 Rev 9671
Line 80... Line 80...
80 
	res.top := 0;
 80 
	res.top := 0;
81 
	res.value := FALSE;
 81 
	res.value := FALSE;
82 
	res.mouse := FALSE;
 82 
	res.mouse := FALSE;
83 
	COPY(text, res.text);
 83 
	COPY(text, res.text);
84 
	res.canvas := G.CreateCanvas(fontHeight + padding + LENGTH(res.text)*fontWidth, fontHeight + 1);
 84 
	res.canvas := G.CreateCanvas(fontHeight + padding + LENGTH(res.text)*fontWidth, fontHeight + 1);
85 
	G.SetFont(res.canvas, G.font1);
 85 
	G.SetFont(res.canvas, G.fonts[1]);
86 
	chkbox := res
 86 
	chkbox := res
87 
END create;
 87 
END create;
Line 88... Line 88...
88 
 
 88