static WString s_macro[10];

bool MacroKeyHook(Ctrl *ctrl, dword key, int count)
{
	if(key >= K_CTRL_F1 && key <= K_CTRL_F10) {
		WString& txt = s_macro[key - K_CTRL_F1];
		int l, h;
		if(EditField *e = dynamic_cast<EditField *>(ctrl))
			if(e->GetSelection(l, h)) {
				txt = e->GetText().Mid(l, h - l);
				return true;
			}
		if(TextCtrl *e = dynamic_cast<TextCtrl *>(ctrl))
			if(e->GetSelection(l, h)) {
				txt = e->GetW(l, h - l);
				return true;
			}
		if(RichEdit *e = dynamic_cast<RichEdit *>(ctrl)) {
			txt = e->GetSelection().GetPlainText();
			return true;
		}
	}
	if(key >= K_F1 && key <= K_F10) {
		WString txt = s_macro[key - K_F1];
		if(EditField *e = dynamic_cast<EditField *>(ctrl)) {
			e->Insert(txt);
			return true;
		}
		if(TextCtrl *e = dynamic_cast<TextCtrl *>(ctrl)) {
			e->Paste(txt);
			return true;
		}
		if(RichEdit *e = dynamic_cast<RichEdit *>(ctrl)) {
			e->PasteText(AsRichText(txt, e->GetFormatInfo()));
			return true;
		}
	}
	return false;
}

void SerializeTextMacros(Stream& s)
{
	int version = 0;
	s / version;
	for(int i = 0; i < 10; i++)
		s % s_macro[i];
}

INITBLOCK {
	Ctrl::InstallKeyHook(MacroKeyHook);
}