struct MyEdit : RichEdit;

void MyEdit::Layout()
{
	RichEdit::Layout();
	SetPage(Size(minmax(GetSize().cx, 50, 10000), INT_MAX));
}

class ExtRichEdit : public RichEdit {
public:
	typedef AppRichEdit CLASSNAME;
	float zoomlevel;

	//==========================================================================================	
	virtual void MouseWheel(Point p, int zdelta, dword keyflags) {
		if (keyflags == K_CTRL) {
			// Zooms font
			float fzdelta = zdelta;
			zoomlevel+= (fzdelta / 240.0); // One bump on the mouse wheel is 120 on my machine
			RefreshLayoutDeep();
		} else {
			// Scrolls down
			RichEdit::MouseWheel(p, zdelta, keyflags);		
		}
	}
	
	//==========================================================================================	
	void Layout() {
		RichEdit::Layout();
#if 0
		//Mirek's solution: to big font
		SetPage(Size(minmax(GetSize().cx, 50, 10000), INT_MAX));
#else
		//Alendar's solution: to small font
		long editor_cx = GetSize().cx;
		long adaptive_cx = (editor_cx * zoomlevel); // Smaller the number, the bigger the text
		SetPage(Size(adaptive_cx, INT_MAX));
#endif
	}
};

GUI_APP_MAIN
{	
	ExtRichEdit edit;	
	TopWindow r;
	r.Add(edit.SizePos());

	TopWindow wnd;	
	SplitterFrame sp;
	wnd.AddFrame(sp.Right(r, 300));
	wnd.AddFrame(NullFrame());	
	
    wnd.Run();
}

typedef ExtRichEdit CLASSNAME;

class RichEdit2 : public RichEdit {
public:
	RichEdit2() {
		zoomlevel = 7;
	}
	virtual void Layout() {
		RichEdit::Layout();
		SetPage(Size(int(zoomlevel*GetSize().cx), INT_MAX));	// Smaller the total, the bigger the text
	}
	virtual void MouseWheel(Point p, int zdelta, dword keyflags) {
		if (keyflags == K_CTRL) {		// Zooms font
			zoomlevel += zdelta/240.;
			if (zoomlevel < 1)
				zoomlevel = 10;
			else if (zoomlevel > 9)
				zoomlevel = 1;
			RefreshLayoutDeep();
		} else 							// Scrolls down
			RichEdit::MouseWheel(p, zdelta, keyflags);			
	}
	double zoomlevel;
};

class RichTextView2 : public RichTextView {
public:
	RichTextView2() {
		zoomlevel = 7;
	}
	virtual void Layout() {
		RichTextView::Layout();
		PageWidth( int(zoomlevel*GetSize().cx) );	// Smaller the total, the bigger the text
	}
	virtual void MouseWheel(Point p, int zdelta, dword keyflags) {
		if (keyflags == K_CTRL) {		// Zooms font
			zoomlevel += zdelta/240.;
			if (zoomlevel < 1)
				zoomlevel = 10;
			else if (zoomlevel > 9)
				zoomlevel = 1;
			RefreshLayoutDeep();
		} else				// Scrolls down
			RichTextView::MouseWheel(p, zdelta, keyflags);
	}
	
	double zoomlevel;
};