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

struct MyRichEdit : public RichEdit {
	MyRichEdit() {
		NoRuler();
		ShowCodes(Null);
		ViewBorder(0);
		SetZoom(20);
	}	
	void Layout() {
		RichEdit::Layout();
		SetPage(Size(minmax(GetSize().cx, 20, 10000), INT_MAX));
	}
};

#include <RichEdit/RichEdit.h>

using namespace Upp;

struct MyRichEdit : public RichEdit {
	MyRichEdit() {
		NoRuler();
		ShowCodes(Null);
		ViewBorder(0);

		RichPara::Format f;
		(Font&)f = StdFont();
		RichText::FormatInfo fi;
		fi.Set(f);
		ApplyFormatInfo(fi);	
	}	
	void Layout() {
		RichEdit::Layout();
		SetPage(Size(minmax(GetSize().cx, 20, 10000), INT_MAX));
	}
};

GUI_APP_MAIN {
	MyRichEdit edit;
	
	TopWindow win;
	win.Add(edit.SizePos());
	win.Sizeable().Zoomable().Run();
};

	void Layout() {
		RichEdit::Layout();
		long editor_cx = GetSize().cx;
		long adaptive_cx = (editor_cx * 8); // Smaller the total, the bigger the text.  Increase the constant to decrease the font.
		SetPage(Size(adaptive_cx, INT_MAX));
	}

struct MyRichEdit : public RichEdit {
	typedef MyRichEdit 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();
		long editor_cx = GetSize().cx;
		long adaptive_cx = (editor_cx * zoomlevel); // Smaller the number, the bigger the text
		SetPage(Size(adaptive_cx, INT_MAX));
	}