class ProgressIndicator : public Ctrl {

Color SColor;

void  SetColor(Color& color) { SColor = color; }

SetColor(SColorHighlight());

void ProgressIndicator::Paint(Draw& w)

w.DrawRect(r1, SColorHighlight());

w.DrawRect(r1, SColor);

hlook = CtrlsImg::PI();
hchunk = CtrlsImg::PIC();
vlook = CtrlsImg::VPI();
vchunk = CtrlsImg::VPIC();

ProgressIndicator::Style style; // in main class declaration
style.hlook = CtrlsImg::PI();
style.hchunk = CtrlsImg::PIC();
style.vlook = CtrlsImg::VPI();
style.vchunk = Images::VPICblue();
	
Prog1.SetStyle(style);

style = ProgressIndicator::DefaultStyle();
style.vchunk = Images::VPICblue();

	Style XPstyle;
	Image img;

	void  SetColor(Color& color);

	void ChangeVChunk(Color& color);
	void ChangeHChunk(Color& color);

	if(GUI_GlobalStyle() >= GUISTYLE_XP && !percent) {
		Size sz = GetSize();
		if(sz.cy > sz.cx) {
			ChangeVChunk(color);
		}
		else {
			ChangeHChunk(color);
		}
		SetStyle(XPstyle);
	}
	else {
		SColor = color;
	}

void ProgressIndicator::ChangeVChunk(Color& color)
{
	ImageBuffer ib(11,8);
	// draw points in an ImageBuffer with specified color
	for(int y=0; y<8; y++)
	{
		RGBA *l = ib[y];
		for(int x=0; x<11; x++)
		{
			// the first and the last row must be white
			if(y == 0 || y == 7)
			{
				*l = SWhite();
			}
			else if(x == 0 || x == 10) // the first and the last column must have alfa = 150
			{
				*l = color;
				l->a = 150;
			}
			else // everything else must be set to user color with alfa = 200
			{
				*l = color;
				l->a = 200;
			}
			l++;
		}
	}


	// HotSpots - coordinates best for me
	ib.SetHotSpot(Point(0,7));
	ib.Set2ndSpot(Point(10,0));

	// changing vchunk
	Premultiply(ib);
	img = ib;
	XPstyle = ProgressIndicator::StyleDefault();

	XPstyle.vchunk = img;
}

void ProgressIndicator::ChangeHChunk(Color& color)
{
	ImageBuffer ib(8,11);
	// draw points in an ImageBuffer with specified color
	for(int y=0; y<11; y++)
	{
		RGBA *l = ib[y];
		for(int x=0; x<8; x++)
		{
			// the first and the last row must be white
			if(x == 0 || x == 7)
			{
				*l = SWhite();
			}
			else if(y == 0 || y == 10) // the first and the last column must have alfa = 150
			{
				*l = color;
				l->a = 150;
			}
			else // everything else must be set to user color with alfa = 200
			{
				*l = color;
				l->a = 200;
			}
			l++;
		}
	}


	// HotSpots - coordinates best for me
	ib.SetHotSpot(Point(7,0));
	ib.Set2ndSpot(Point(0,10));

	// changing hchunk
	Premultiply(ib);
	img = ib;
	XPstyle = ProgressIndicator::StyleDefault();

	XPstyle.hchunk = img;
}