/*
 *	A text editor implementation
 *	Nana C++ Library(http://www.nanapro.org)
 *	Copyright(C) 2003-2017 Jinhao(cnjinhao@hotmail.com)
 *
 *	Distributed under the Boost Software License, Version 1.0.
 *	(See accompanying file LICENSE_1_0.txt or copy at
 *	http://www.boost.org/LICENSE_1_0.txt)
 *
 *	@file: nana/gui/widgets/skeletons/text_editor.cpp
 *	@contributors: Ariel Vina-Rodriguez
 */
#include <nana/gui/widgets/skeletons/text_editor.hpp>
#include <nana/gui/widgets/skeletons/textbase_export_interface.hpp>
#include <nana/gui/element.hpp>
#include <nana/gui/widgets/scroll.hpp>
#include <nana/system/dataexch.hpp>
#include <nana/unicode_bidi.hpp>

#include <numeric>
#include <cwctype>
#include <cstring>
#include <algorithm>
#include <map>

namespace nana{	namespace widgets
{
	namespace skeletons
	{

		template<typename EnumCommand>
		class undoable_command_interface
		{
		public:
			virtual ~undoable_command_interface() = default;

			virtual EnumCommand get() const = 0;
			virtual bool merge(const undoable_command_interface&) = 0;
			virtual void execute(bool redo) = 0;
		};

		template<typename EnumCommand>
		class undoable
		{
		public:
			using command = EnumCommand;
			using container = std::deque < std::unique_ptr<undoable_command_interface<command>> >;

			void clear()
			{
				commands_.clear();
				pos_ = 0;
			}

			void max_steps(std::size_t maxs)
			{
				max_steps_ = maxs;
				if (maxs && (commands_.size() >= maxs))
					commands_.erase(commands_.begin(), commands_.begin() + (commands_.size() - maxs + 1));
			}

			std::size_t max_steps() const
			{
				return max_steps_;
			}

			void enable(bool enb)
			{
				enabled_ = enb;
				if (!enb)
					clear();
			}

			bool enabled() const
			{
				return enabled_;
			}

			void push(std::unique_ptr<undoable_command_interface<command>> && ptr)
			{
				if (!ptr || !enabled_)
					return;

				if (pos_ < commands_.size())
					commands_.erase(commands_.begin() + pos_, commands_.end());
				else if (max_steps_ && (commands_.size() >= max_steps_))
					commands_.erase(commands_.begin(), commands_.begin() + (commands_.size() - max_steps_ + 1));

				pos_ = commands_.size();
				if (!commands_.empty())
				{
					if (commands_.back().get()->merge(*ptr))
						return;
				}

				commands_.emplace_back(std::move(ptr));
				++pos_;
			}

			std::size_t count(bool is_undo) const
			{
				return (is_undo ? pos_ : commands_.size() - pos_);
			}

			void undo()
			{
				if (pos_ > 0)
				{
					--pos_;
					commands_[pos_].get()->execute(false);
				}
			}

			void redo()
			{
				if (pos_ != commands_.size())
					commands_[pos_++].get()->execute(true);
			}

		private:
			container commands_;
			bool		enabled_{ true };
			std::size_t max_steps_{ 30 };
			std::size_t pos_{ 0 };
		};

		template<typename T>
		using undo_command_ptr = std::unique_ptr <undoable_command_interface<T>> ;

		template<typename EnumCommand>
		class text_editor::basic_undoable
			: public undoable_command_interface<EnumCommand>
		{
		public:
			basic_undoable(text_editor& te, EnumCommand cmd)
				: editor_(te), cmd_(cmd)
			{}

			void set_selected_text()
			{
				//sel_a_ and sel_b_ are not sorted, sel_b_ keeps the caret position.
				sel_a_ = editor_.select_.a;
				sel_b_ = editor_.select_.b;
			}

			void set_caret_pos()
			{
				pos_ = editor_.caret();
			}
		protected:
			EnumCommand get() const override
			{
				return cmd_;
			}

			virtual bool merge(const undoable_command_interface<EnumCommand>&) override
			{
				return false;
			}
		protected:
			text_editor & editor_;
			upoint			pos_;
			upoint			sel_a_, sel_b_;
			std::wstring	selected_text_;
		private:
			const EnumCommand cmd_;
		};

		class text_editor::undo_backspace
			: public basic_undoable < command >
		{
		public:
			undo_backspace(text_editor& editor)
				:	basic_undoable<command>(editor, command::backspace)
			{
			}

			void set_removed(std::wstring str)
			{
				//use selected_text_ as removed text
				selected_text_ = str;
			}

			void execute(bool redo) override
			{
				editor_._m_cancel_select(0);
				editor_.points_.caret = pos_;

				bool is_enter = ((selected_text_.size() == 1) && ('\n' == selected_text_[0]));
				if (redo)
				{
					if (sel_a_ != sel_b_)
					{
						editor_.select_.a = sel_a_;
						editor_.select_.b = sel_b_;
						editor_._m_erase_select();
						editor_.select_.a = editor_.select_.b;
						editor_.points_.caret = sel_a_;
					}
					else
					{
						if (is_enter)
						{
							editor_.points_.caret = nana::upoint(0, pos_.y + 1);
							editor_.backspace(false);
						}
						else
							editor_.textbase().erase(pos_.y, pos_.x, selected_text_.size());
					}
				}
				else
				{
					if (is_enter)
					{
						editor_.enter(false);
					}
					else
					{
						editor_._m_put(selected_text_);
						if (sel_a_ != sel_b_)
						{
							editor_.select_.a = sel_a_;
							editor_.select_.b = sel_b_;
							editor_.points_.caret = sel_b_;
						}
						else
							++editor_.points_.caret.x;
					}
				}

				editor_.move_caret(editor_.points_.caret);
			}
		};

		class text_editor::undo_input_text
			: public basic_undoable <command>
		{
		public:
			undo_input_text(text_editor & editor, const std::wstring& text)
				:	basic_undoable<command>(editor, command::input_text),
					text_(text)
			{
			}

			void execute(bool redo) override
			{
				bool is_enter = (text_.size() == 1 && '\n' == text_[0]);
				editor_._m_cancel_select(0);
				editor_.points_.caret = pos_;	//The pos_ specifies the caret position before input

				if (redo)
				{
					if (is_enter)
					{
						editor_.enter(false);
					}
					else
					{
						if (!selected_text_.empty())
						{
							editor_.select_.a = sel_a_;
							editor_.select_.b = sel_b_;
							editor_._m_erase_select();
						}
						editor_.points_.caret = editor_._m_put(text_); //redo
					}
				}
				else
				{
					if (is_enter)
					{
						editor_.points_.caret.x = 0;
						++editor_.points_.caret.y;
						editor_.backspace(false);
					}
					else
					{
						std::vector<std::pair<std::size_t, std::size_t>> lines;
						if (editor_._m_resolve_text(text_, lines))
						{
							editor_.select_.a = pos_;
							editor_.select_.b = upoint(static_cast<unsigned>(lines.back().second - lines.back().first), static_cast<unsigned>(pos_.y + lines.size() - 1));
							editor_.backspace(false);
							editor_.select_.a = editor_.select_.b;
						}
						else
							editor_.textbase().erase(pos_.y, pos_.x, text_.size());	//undo

						if (!selected_text_.empty())
						{
							editor_.points_.caret = sel_a_;
							editor_._m_put(selected_text_);
							editor_.points_.caret = sel_b_;
							editor_.select_.a = sel_a_;	//Reset the selected text
							editor_.select_.b = sel_b_;
						}
					}
				}
				editor_.move_caret(editor_.points_.caret);
			}
		private:
			std::wstring text_;
		};

		class text_editor::undo_move_text
			: public basic_undoable <command>
		{
		public:
			undo_move_text(text_editor& editor)
				:	basic_undoable<command>(editor, command::move_text)
			{}

			void execute(bool redo) override
			{
				if (redo)
				{
					editor_.select_.a = sel_a_;
					editor_.select_.b = sel_b_;
					editor_.points_.caret = pos_;
					editor_._m_move_select(false);
				}
				else
				{
					editor_.select_.a = dest_a_;
					editor_.select_.b = dest_b_;
					editor_.points_.caret = (sel_a_ < sel_b_ ? sel_a_ : sel_b_);

					const auto text = editor_._m_make_select_string();

					editor_._m_erase_select();
					editor_._m_put(text);

					editor_.select_.a = sel_a_;
					editor_.select_.b = sel_b_;

					editor_.points_.caret = sel_b_;
					editor_.reset_caret();
				}
			}

			void set_destination(const nana::upoint& dest_a, const nana::upoint& dest_b)
			{
				dest_a_ = dest_a;
				dest_b_ = dest_b;
			}
		private:
			nana::upoint dest_a_, dest_b_;
		};

		class text_editor::editor_behavior_interface
		{
		public:
			virtual ~editor_behavior_interface() = default;

			/// Deletes lines between first and second, and then, second line will be merged into first line.
			virtual void merge_lines(std::size_t first, std::size_t second) = 0;
			//Calculates how many lines the specified line of text takes with a specified pixels of width.
			virtual void add_lines(std::size_t pos, std::size_t lines) = 0;
			virtual void pre_calc_line(std::size_t line, unsigned pixels) = 0;
			virtual void pre_calc_lines(unsigned pixels) = 0;
			virtual std::size_t take_lines() const = 0;
			/// Returns the number of lines that the line of text specified by pos takes.
			virtual std::size_t take_lines(std::size_t pos) const = 0;

			virtual void update_line(std::size_t textline, std::size_t secondary_before) = 0;
			virtual std::vector<::nana::upoint> render(const ::nana::color& fgcolor) = 0;
			virtual	nana::point		caret_to_screen(upoint) = 0;
			virtual nana::upoint	screen_to_caret(point scrpos) = 0;
			virtual bool move_caret_ns(bool to_north) = 0;
			virtual bool adjust_caret_into_screen() = 0;
		};

		inline bool is_right_text(const unicode_bidi::entity& e)
		{
			return ((e.bidi_char_type != unicode_bidi::bidi_char::L) && (e.level & 1));
		}


		class text_editor::behavior_normal
			: public editor_behavior_interface
		{
		public:
			behavior_normal(text_editor& editor)
				: editor_(editor)
			{}

			void merge_lines(std::size_t, std::size_t) override{}
			void add_lines(std::size_t, std::size_t) override{}
			void pre_calc_line(std::size_t, unsigned) override{}
			void pre_calc_lines(unsigned) override{}

			std::size_t take_lines() const override
			{
				return editor_.textbase().lines();
			}

			std::size_t take_lines(std::size_t) const override
			{
				return 1;
			}

			void update_line(std::size_t textline, std::size_t) override
			{
				int top = editor_._m_text_top_base() + static_cast<int>(editor_.line_height() * (textline - editor_.points_.offset.y));
				editor_.graph_.rectangle({ editor_.text_area_.area.x, top, editor_.text_area_.area.width, editor_.line_height() }, true, API::bgcolor(editor_.window_));
				editor_._m_draw_string(top, API::fgcolor(editor_.window_), nana::upoint(0, editor_.points_.caret.y), editor_.textbase().getline(textline), true);
			}

			std::vector<upoint> render(const ::nana::color& fgcolor) override
			{
				std::vector<upoint> line_index;

				::nana::upoint str_pos(0, static_cast<unsigned>(editor_.points_.offset.y));

				const auto scrlines = (std::min)(editor_.screen_lines() + str_pos.y, static_cast<unsigned>(editor_.textbase().lines()));

				int top = editor_._m_text_top_base();
				const unsigned pixels = editor_.line_height();

				while( str_pos.y < scrlines)
				{
					editor_._m_draw_string(top, fgcolor, str_pos, editor_.textbase().getline(str_pos.y), true);
					line_index.emplace_back(str_pos);
					++str_pos.y;
					top += pixels;
				}

				return line_index;
			}

			nana::point	caret_to_screen(nana::upoint pos) override
			{
				pos.y = (std::min)(pos.y, static_cast<unsigned>(editor_.textbase().lines()));

				auto text_ptr = &editor_.textbase().getline(pos.y);

				std::wstring mask_str;
				if (editor_.mask_char_)
				{
					mask_str.resize(text_ptr->size(), editor_.mask_char_);
					text_ptr = &mask_str;
				}
				
				if (pos.x > text_ptr->size())
					pos.x = static_cast<decltype(pos.x)>(text_ptr->size());

				pos.x = editor_._m_pixels_by_char(*text_ptr, pos.x) + editor_.text_area_.area.x;
				int pos_y = static_cast<int>((pos.y - editor_.points_.offset.y) * editor_.line_height() + editor_._m_text_top_base());

				return{ static_cast<int>(pos.x - editor_.points_.offset.x), pos_y };
			}

			nana::upoint screen_to_caret(point scrpos) override
			{
				nana::upoint res{ 0, static_cast<unsigned>(_m_textline_from_screen(scrpos.y)) };

				//Convert the screen point to text caret point

				auto text_ptr = &editor_.textbase().getline(res.y);

				std::wstring mask_str;
				if (editor_.mask_char_)
				{
					mask_str.resize(text_ptr->size(), editor_.mask_char_);
					text_ptr = &mask_str;
				}

				if (text_ptr->size() > 0)
				{
					scrpos.x += (editor_.points_.offset.x - editor_.text_area_.area.x);
					if (scrpos.x > 0)
					{
						std::vector<unicode_bidi::entity> reordered;
						unicode_bidi{}.linestr(text_ptr->c_str(), text_ptr->size(), reordered);

						for (auto & ent : reordered)
						{
							std::size_t len = ent.end - ent.begin;
							auto str_px = static_cast<int>(editor_._m_text_extent_size(ent.begin, len).width);
							if (scrpos.x < str_px)
							{
								res.x = editor_._m_char_by_pixels(ent, static_cast<unsigned>(scrpos.x));
								res.x += static_cast<unsigned>(ent.begin - text_ptr->c_str());
								return res;
							}
							scrpos.x -= str_px;
						}

						res.x = static_cast<int>(text_ptr->size());
					}
				}

				return res;
			}

			bool move_caret_ns(bool to_north) override
			{
				auto & points = editor_.points_;

				auto & textbase = editor_.textbase();

				if (to_north)	//North
				{
					if (points.caret.y)
					{
						points.caret.x = (std::min)(points.xpos,
							static_cast<unsigned>(textbase.getline(--points.caret.y).size())
							);

						bool out_of_screen = (static_cast<int>(points.caret.y) < points.offset.y);
						if (out_of_screen)
							editor_._m_offset_y(static_cast<int>(points.caret.y));

						return (adjust_caret_into_screen() || out_of_screen);
					}
				}
				else //South
				{
					if (points.caret.y + 1 < textbase.lines())
					{
						points.caret.x = (std::min)(points.xpos,
							static_cast<unsigned>(textbase.getline(++points.caret.y).size())
							);

						return adjust_caret_into_screen();
					}
				}
				return false;
			}

			//adjust_caret_into_screen
			//@brief:	Adjust the text offset in order to moving caret into visible area if it is out of the visible area
			//@note:	the function assumes the points_.caret is correct
			bool adjust_caret_into_screen() override
			{
				const auto scrlines = editor_.screen_lines();
				if (0 == scrlines)
					return false;

				auto& points = editor_.points_;
				auto& textbase = editor_.textbase();

				editor_._m_get_scrollbar_size();

				auto&	lnstr = textbase.getline(points.caret.y);
				const auto x = (points.caret.x > lnstr.size() ? static_cast<decltype(points.caret.x)>(lnstr.size()) : points.caret.x);
				auto const text_w = editor_._m_pixels_by_char(lnstr, x);

				unsigned area_w = editor_._m_text_area().width;

				bool adjusted_cond = true;
				if (static_cast<int>(text_w) < points.offset.x)
				{
					auto delta_pixels = editor_._m_text_extent_size(L"    ", 4).width;
					points.offset.x = (text_w > delta_pixels ? text_w - delta_pixels : 0);
				}
				else if (area_w && (text_w >= points.offset.x + area_w))
					points.offset.x = text_w - area_w + 2;
				else
					adjusted_cond = false;

				bool adjusted_cond2 = true;
				int value = points.offset.y;
				if (scrlines && (points.caret.y >= points.offset.y + scrlines))
				{
					value = static_cast<int>(points.caret.y - scrlines) + 1;
				}
				else if (static_cast<int>(points.caret.y) < points.offset.y)
				{
					if (scrlines >= static_cast<unsigned>(points.offset.y))
						value = 0;
					else
						value = static_cast<int>(points.offset.y - scrlines);
				}
				else if (points.offset.y && (textbase.lines() <= scrlines))
					value = 0;
				else
					adjusted_cond2 = false;

				editor_._m_offset_y(value);
				editor_._m_scrollbar();
				return (adjusted_cond || adjusted_cond2);
			}

		private:
			std::size_t	_m_textline_from_screen(int y) const
			{
				const std::size_t textlines = editor_.textbase().lines();
				const auto line_px = static_cast<int>(editor_.line_height());
				if ((0 == textlines) || (0 == line_px))
					return 0;

				const int offset_top = editor_.points_.offset.y;
				const int text_area_top = editor_.text_area_.area.y;

				if (y < text_area_top)
					y = offset_top ? offset_top - 1 : 0;
				else
					y = (y - text_area_top) / line_px + offset_top;

				return (textlines <= static_cast<std::size_t>(y) ? textlines - 1 : static_cast<std::size_t>(y));
			}
		private:
			text_editor& editor_;
		}; //end class behavior_normal


		class text_editor::behavior_linewrapped
			: public text_editor::editor_behavior_interface
		{
			struct text_section
			{
				const wchar_t* begin;
				const wchar_t* end;
				unsigned pixels;

				text_section(const wchar_t* ptr, const wchar_t* endptr, unsigned px)
					: begin(ptr), end(endptr), pixels(px)
				{}
			};

			struct line_metrics
			{
				std::size_t		take_lines;	//The number of lines that text of this line takes.
				std::vector<text_section>	line_sections;
			};
		public:
			/// A coordinate type for line position. first: the absolute line position of text. second: the secondary line position of a part of line.
			using row_coordinate = std::pair<std::size_t, std::size_t>;

			behavior_linewrapped(text_editor& editor)
				: editor_(editor)
			{}

			void merge_lines(std::size_t first, std::size_t second) override
			{
				if (first > second)
					std::swap(first, second);

				if (second < linemtr_.size())
					linemtr_.erase(linemtr_.begin() + first + 1, linemtr_.begin() + second);

				pre_calc_line(first, editor_.width_pixels());

				//textbase is implement by using deque, and the linemtr holds the text pointers
				//If the textbase is changed, it will check the text pointers.
				std::size_t line = 0;
				for (auto & mtr: linemtr_)
				{
					auto& linestr = editor_.textbase().getline(line);
					auto p = mtr.line_sections.front().begin;
					if (p < linestr.c_str() || (linestr.c_str() + linestr.size() < p))
						pre_calc_line(line, editor_.width_pixels());

					++line;
				}
			}

			void add_lines(std::size_t pos, std::size_t lines) override
			{
				if (pos < linemtr_.size())
				{
					for (std::size_t i = 0; i < lines; ++i)
						linemtr_.emplace(linemtr_.begin() + pos + i);

					//textbase is implement by using deque, and the linemtr holds the text pointers
					//If the textbase is changed, it will check the text pointers.
					std::size_t line = 0;
					for (auto & mtr : linemtr_)
					{
						if (line < pos || (pos + lines) <= line)
						{
							auto & linestr = editor_.textbase().getline(line);
							auto p = mtr.line_sections.front().begin;
							if (p < linestr.c_str() || (linestr.c_str() + linestr.size() < p))
								pre_calc_line(line, editor_.width_pixels());
						}
						++line;
					}
				}
			}

			void pre_calc_line(std::size_t line, unsigned pixels) override
			{
				const string_type& lnstr = editor_.textbase().getline(line);
				if (lnstr.empty())
				{
					auto & mtr = linemtr_[line];
					mtr.line_sections.clear();

					mtr.line_sections.emplace_back(lnstr.c_str(), lnstr.c_str(), unsigned{});
					mtr.take_lines = 1;
					return;
				}

				std::vector<text_section> sections;
				_m_text_section(lnstr, sections);

				std::vector<text_section> line_sections;

				unsigned text_px = 0;
				const wchar_t * secondary_begin = nullptr;
				for (auto & ts : sections)
				{
					if (!secondary_begin)
						secondary_begin = ts.begin;

					const unsigned str_w = editor_._m_text_extent_size(ts.begin, ts.end - ts.begin).width;

					text_px += str_w;
					if (text_px > pixels)
					{
						if (text_px != str_w)
						{
							line_sections.emplace_back(secondary_begin, ts.begin, unsigned{ text_px - str_w });
							text_px = str_w;
							secondary_begin = ts.begin;
						}

						if (str_w > pixels)	//Indicates the splitting of ts string
						{
							std::size_t len = ts.end - ts.begin;
							std::unique_ptr<unsigned[]> pxbuf(new unsigned[len]);
							editor_.graph_.glyph_pixels(ts.begin, len, pxbuf.get());

							auto pxptr = pxbuf.get();
							auto pxend = pxptr + len;

							secondary_begin = ts.begin;
							text_px = 0;
							for (auto pxi = pxptr; pxi != pxend; ++pxi)
							{
								text_px += *pxi;
								if (text_px < pixels)
									continue;

								const wchar_t * endptr = ts.begin + (pxi - pxptr) + (text_px == pixels ? 1 : 0);
								line_sections.emplace_back(secondary_begin, endptr, unsigned{ text_px - (text_px == pixels ? 0 : *pxi) });
								secondary_begin = endptr;

								text_px = (text_px == pixels ? 0 : *pxi);
							}
						}
						continue;
					}
					else if (text_px == pixels)
					{
						line_sections.emplace_back(secondary_begin, ts.begin, unsigned{ text_px - str_w });
						secondary_begin = ts.begin;
						text_px = str_w;
					}
				}

				auto & mtr = linemtr_[line];

				mtr.take_lines = line_sections.size();
				mtr.line_sections.swap(line_sections);

				if (secondary_begin)
				{
					mtr.line_sections.emplace_back(secondary_begin, sections.back().end, unsigned{ text_px });
					++mtr.take_lines;
				}
			}

			void pre_calc_lines(unsigned pixels) override
			{
				const auto lines = editor_.textbase().lines();
				linemtr_.resize(lines);

				for (std::size_t i = 0; i < lines; ++i)
					pre_calc_line(i, pixels);
			}

			std::size_t take_lines() const override
			{
				std::size_t lines = 0;
				for (auto & mtr : linemtr_)
					lines += mtr.take_lines;

				return lines;
			}

			std::size_t take_lines(std::size_t pos) const override
			{
				return (pos < linemtr_.size() ? linemtr_[pos].take_lines : 0);
			}

			void update_line(std::size_t textline, std::size_t secondary_before) override
			{
				if (take_lines(textline) == secondary_before)
				{
					int top = caret_to_screen(upoint{ 0, static_cast<unsigned>(textline) }).y;

					const unsigned pixels = editor_.line_height();
					editor_.graph_.rectangle({ editor_.text_area_.area.x, top, editor_.width_pixels(), static_cast<unsigned>(pixels * secondary_before) }, true, API::bgcolor(editor_.window_));

					auto fgcolor = API::fgcolor(editor_.window_);
					auto text_ptr = editor_.textbase().getline(textline).c_str();

					for (std::size_t pos = 0; pos < secondary_before; ++pos, top+=pixels)
					{
						auto & sct = linemtr_[textline].line_sections[pos];
						editor_._m_draw_string(top, fgcolor, nana::upoint(static_cast<unsigned>(sct.begin - text_ptr), editor_.points_.caret.y), std::wstring(sct.begin, sct.end), true);
					}
				}
				else
					editor_.render(API::is_focus_ready(editor_.window_));
			}

			std::vector<upoint> render(const ::nana::color& fgcolor) override
			{
				std::vector<upoint> line_index;

				auto row = _m_textline_from_screen(0);
				if (row.first >= linemtr_.size() || row.second >= linemtr_[row.first].line_sections.size())
					return line_index;

				nana::upoint str_pos(0, static_cast<unsigned>(row.first));
				str_pos.x = static_cast<unsigned>(linemtr_[row.first].line_sections[row.second].begin - editor_.textbase().getline(row.first).c_str());

				int top = editor_._m_text_top_base();
				const unsigned pixels = editor_.line_height();

				const std::size_t scrlines = editor_.screen_lines();
				for (std::size_t pos = 0; pos < scrlines; ++pos, top += pixels)
				{
					if ((row.first < linemtr_.size()) && (row.second < linemtr_[row.first].line_sections.size()))
					{
						auto & mtr = linemtr_[row.first];
						auto & section = mtr.line_sections[row.second];

						std::wstring text(section.begin, section.end);
						editor_._m_draw_string(top, fgcolor, str_pos, text, true);
						line_index.emplace_back(str_pos);
						++row.second;
						if (row.second >= mtr.line_sections.size())
						{
							++row.first;
							row.second = 0;
							str_pos.x = 0;
							++str_pos.y;
						}
						else
							str_pos.x += static_cast<unsigned>(text.size());
					}
					else
						break;
				}

				return line_index;
			}

			nana::point	caret_to_screen(upoint pos) override
			{
				const auto & mtr = linemtr_[pos.y];

				std::size_t lines = 0;	//lines before the caret line;
				for (auto & v : linemtr_)
				{
					if (pos.y)
					{
						lines += v.take_lines;
						--pos.y;
					}
					else
						break;
				}

				nana::point scrpos;
				if (0 != pos.x)
				{
					std::wstring str;
					for (auto & sec : mtr.line_sections)
					{
						std::size_t chsize = sec.end - sec.begin;
						str.clear();
						if (editor_.mask_char_)
							str.append(chsize, editor_.mask_char_);
						else
							str.append(sec.begin, sec.end);

						if (pos.x < chsize)
						{
							scrpos.x = editor_._m_pixels_by_char(str, pos.x);
							break;
						}
						else if (pos.x == chsize)
						{
							scrpos.x = editor_._m_text_extent_size(str.c_str(), sec.end - sec.begin).width;
							break;
						}
						else
						{
							pos.x -= static_cast<unsigned>(chsize);
							++lines;
						}
					}
				}

				scrpos.x += editor_.text_area_.area.x;
				scrpos.y = editor_.text_area_.area.y + static_cast<int>((lines - editor_.points_.offset.y) * editor_.line_height());
				return scrpos;
			}

			nana::upoint screen_to_caret(point scrpos) override
			{
				const auto row = _m_textline_from_screen(scrpos.y);

				auto & mtr = linemtr_[row.first];
				if (mtr.line_sections.empty())
					return{ 0, static_cast<unsigned>(row.first) };

				//First of all, find the text of secondary.
				auto real_str = mtr.line_sections[row.second];

				auto text_ptr = real_str.begin;
				const auto text_size = real_str.end - real_str.begin;

				std::wstring mask_str;
				if (editor_.mask_char_)
				{
					mask_str.resize(text_size, editor_.mask_char_);
					text_ptr = mask_str.c_str();
				}

				std::vector<unicode_bidi::entity> reordered;
				unicode_bidi{}.linestr(text_ptr, text_size, reordered);

				nana::upoint res(static_cast<unsigned>(real_str.begin - mtr.line_sections.front().begin), static_cast<unsigned>(row.first));
				scrpos.x -= editor_.text_area_.area.x;
				if (scrpos.x < 0)
					scrpos.x = 0;

				for (auto & ent : reordered)
				{
					auto str_px = static_cast<int>(editor_._m_text_extent_size(ent.begin, ent.end - ent.begin).width);
					if (scrpos.x < str_px)
					{
						res.x += editor_._m_char_by_pixels(ent, scrpos.x);
						res.x += static_cast<unsigned>(ent.begin - text_ptr);
						return res;
					}
					scrpos.x -= str_px;
				}
				res.x = static_cast<unsigned>(editor_.textbase().getline(res.y).size());
				return res;
			}

			bool move_caret_ns(bool to_north) override
			{
				auto & points = editor_.points_;

				nana::upoint secondary_pos;
				_m_pos_secondary(points.caret, secondary_pos);

				if (to_north)	//North
				{
					if (0 == secondary_pos.y)
					{
						if (0 == points.caret.y)
							return false;

						--points.caret.y;
						secondary_pos.y = static_cast<unsigned>(take_lines(points.caret.y)) - 1;
					}
					else
						--secondary_pos.y;
				}
				else //South
				{
					++secondary_pos.y;
					if (secondary_pos.y >= take_lines(points.caret.y))
					{
						secondary_pos.y = 0;
						if (points.caret.y + 1 >= editor_.textbase().lines())
							return false;

						++points.caret.y;
					}
				}

				_m_pos_from_secondary(points.caret.y, secondary_pos, points.caret.x);
				return adjust_caret_into_screen();
			}

			bool adjust_caret_into_screen() override
			{
				const auto scrlines = editor_.screen_lines();
				if (0 == scrlines)
					return false;

				const auto & points = editor_.points_;
				editor_._m_get_scrollbar_size();

				auto off_coord = _m_textline(points.offset.y);

				unsigned caret_secondary;
				{
					nana::upoint secondpos;
					_m_pos_secondary(points.caret, secondpos);
					caret_secondary = secondpos.y;
				}

				//Use the caret line for the offset line when caret is in front of current offset line.
				if (off_coord.first > points.caret.y || ((off_coord.first == points.caret.y) && (off_coord.second > caret_secondary)))
				{
					//Use the line which was specified by points.caret for the first line.
					_m_set_offset_by_secondary(row_coordinate(points.caret.y, caret_secondary));
					return true;
				}

				//Find the last screen line. If the text does not reach the bottom of screen,
				//do not adjust the offset line.
				row_coordinate bottom;
				if (false == _m_advance_secondary(off_coord, static_cast<int>(scrlines - 1), bottom))
					return false;

				//Do not adjust the offset line if the caret line does not reach the bottom line.
				if (points.caret.y < bottom.first || ((points.caret.y == bottom.first) && (caret_secondary <= bottom.second)))
					return false;

				_m_advance_secondary(row_coordinate(points.caret.y, caret_secondary), -static_cast<int>(scrlines - 1), bottom);

				_m_set_offset_by_secondary(bottom);
				return true;
			}
		private:
			void _m_text_section(const std::wstring& str, std::vector<text_section>& tsec)
			{
				if (str.empty())
				{
					tsec.emplace_back(str.c_str(), str.c_str(), unsigned{});
					return;
				}
				const auto end = str.c_str() + str.size();

				const wchar_t * word = nullptr;
				for (auto i = str.c_str(); i != end; ++i)
				{
					wchar_t const ch = *i;

					//CKJ characters and whitespace
					if (' ' == ch || '\t' == ch || (0x4E00 <= ch && ch <= 0x9FCF))
					{
						if (word)	//Record the word.
						{
							tsec.emplace_back(word, i, unsigned{});
							word = nullptr;
						}

						tsec.emplace_back(i, i + 1, unsigned{});
						continue;
					}

					if (nullptr == word)
						word = i;
				}

				if(word)
					tsec.emplace_back(word, end, unsigned{});
			}

			void _m_set_offset_by_secondary(row_coordinate row)
			{
				for (auto i = linemtr_.begin(), end = linemtr_.begin() + row.first; i != end; ++i)
					row.second += i->take_lines;

				editor_.points_.offset.y = static_cast<int>(row.second);
			}

			bool _m_advance_secondary(row_coordinate row, int distance, row_coordinate& new_row)
			{
				if ((row.first >= linemtr_.size()) || (row.second >= linemtr_[row.first].take_lines))
					return false;

				if (0 == distance)
				{
					new_row = row;
					return true;
				}

				if (distance < 0)
				{
					std::size_t n = static_cast<std::size_t>(-distance);

					if (row.second > n)
					{
						new_row.first = row.first;
						new_row.second = row.second - n;
						return true;
					}

					if (0 == row.first)
						return false;

					--row.first;
					n -= (row.second + 1);

					while (true)
					{
						auto lines = linemtr_[row.first].take_lines;
						if (lines >= n)
						{
							new_row.first = row.first;
							new_row.second = lines - n;
							return true;
						}
						if (0 == row.first)
							return false;

						--row.first;
						n -= lines;
					}
				}
				else
				{
					std::size_t n = static_cast<std::size_t>(distance);

					auto delta_lines = linemtr_[row.first].take_lines - (row.second + 1);

					if (delta_lines >= n)
					{
						new_row.first = row.first;
						new_row.second = row.second + n;
						return true;
					}

					n -= delta_lines;

					while (++row.first < linemtr_.size())
					{
						auto & mtr = linemtr_[row.first];
						if (mtr.take_lines >= n)
						{
							new_row.first = row.first;
							new_row.second = n - 1;
							return true;
						}
						n -= mtr.take_lines;
					}
				}
				return false;
			}

			bool _m_pos_from_secondary(std::size_t textline, const nana::upoint& secondary, unsigned & pos)
			{
				if (textline >= linemtr_.size())
					return false;

				auto & mtr = linemtr_[textline];
				if (secondary.y >= mtr.line_sections.size() || mtr.line_sections.size() != mtr.take_lines)
					return false;

				auto & section = mtr.line_sections[secondary.y];

				auto chptr = section.begin + (std::min)(secondary.x, static_cast<unsigned>(section.end - section.begin));
				pos = static_cast<unsigned>(chptr - editor_.textbase().getline(textline).c_str());
				return true;
			}

			bool _m_pos_secondary(const nana::upoint& charpos, nana::upoint& secondary_pos) const
			{
				if (charpos.y >= linemtr_.size())
					return false;

				secondary_pos.x = charpos.x;
				secondary_pos.y = 0;

				unsigned len = 0;
				for (auto & ts : linemtr_[charpos.y].line_sections)
				{
					len = static_cast<unsigned>(ts.end - ts.begin);
					if (len >= secondary_pos.x)
						return true;

					++secondary_pos.y;
					secondary_pos.x -= len;
				}
				--secondary_pos.y;
				secondary_pos.x = len;
				return true;
			}


			row_coordinate _m_textline(std::size_t scrline) const
			{
				row_coordinate coord;
				for (auto & mtr : linemtr_)
				{
					if (mtr.take_lines > scrline)
					{
						coord.second = scrline;
						return coord;
					}
					else
						scrline -= mtr.take_lines;

					++coord.first;
				}
				return coord;
			}

			//secondary, index of line that the text was splitted into multilines.
			row_coordinate _m_textline_from_screen(int y) const
			{
				row_coordinate coord;
				const auto line_px = static_cast<int>(editor_.line_height());

				if ((0 == editor_.textbase().lines()) || (0 == line_px))
					return coord;

				const int text_area_top = editor_.text_area_.area.y;
				const int offset_top = editor_.points_.offset.y;

				auto screen_line = (text_area_top - y) / line_px;
				if ((y < text_area_top) && (screen_line > offset_top))
					screen_line = 0;
				else
					screen_line = offset_top - screen_line;

				coord = _m_textline(static_cast<std::size_t>(screen_line));
				if (linemtr_.size() <= coord.first)
				{
					coord.first = linemtr_.size() - 1;
					coord.second = linemtr_.back().line_sections.size() - 1;
				}
				return coord;
			}
		private:
			text_editor& editor_;
			std::vector<line_metrics> linemtr_;
		}; //end class behavior_linewrapped


		struct keyword_scheme
		{
			::nana::color fgcolor;
			::nana::color bgcolor;
		};

		struct keyword_desc
		{
			std::wstring text;
			std::string scheme;
			bool case_sensitive;
			bool whole_word_matched;

			keyword_desc(const std::wstring& txt, const std::string& schm, bool cs, bool wwm)
				: text(txt), scheme(schm), case_sensitive(cs), whole_word_matched(wwm)
			{}
		};

		/*
		struct text_editor::keywords
		{
			std::map<std::string, std::shared_ptr<keyword_scheme>> schemes;
			std::deque<keyword_desc> kwbase;
		};
		*/

		struct entity
		{
			const wchar_t* begin;
			const wchar_t* end;
			const keyword_scheme * scheme;
		};


		struct text_editor::implementation
		{
			undoable<command>	undo;			//undo command
			renderers			customized_renderers;
			std::vector<upoint> text_position;	//positions of text since last rendering.

			skeletons::textbase<wchar_t> textbase;

			struct inner_capacities
			{
				editor_behavior_interface * behavior;

				accepts acceptive{ accepts::no_restrict };
				std::function<bool(char_type)> pred_acceptive;
			}capacities;

			struct inner_counterpart
			{
				bool enabled{ false };
				paint::graphics buffer;	//A offscreen buffer which keeps the background that painted by external part.
			}counterpart;


			struct indent_rep
			{
				bool enabled{ false };
				std::function<std::string()> generator;
			}indent;


			struct inner_keywords
			{
				std::map<std::string, std::shared_ptr<keyword_scheme>> schemes;
				std::deque<keyword_desc> base;
			}keywords;

			struct inner_widgets
			{
				std::unique_ptr<nana::scroll<true>>		vscroll;
				std::unique_ptr<nana::scroll<false>>	hscroll;
			}widgets;
		};

		class text_editor::keyword_parser
		{
		public:
			void parse(const std::wstring& text, const implementation::inner_keywords& keywords)
			{
				if ( keywords.base.empty() || text.empty() )
					return;

				using index = std::wstring::size_type;

				std::vector<entity> entities;

				::nana::ciwstring cistr;
				for (auto & ds : keywords.base)
				{
                    index pos{0} ;
                    for (index rest{text.size()}; rest >= ds.text.size() ; ++pos, rest = text.size() - pos)
                    {
					    if (ds.case_sensitive)
					    {
						    pos = text.find(ds.text, pos);
						    if (pos == text.npos)
							    break;

						    if (ds.whole_word_matched)
						    {
							    if (!_m_whole_word(text, pos, ds.text.size()))
								    continue;
						    }
					    }
					    else
					    {
						    if (cistr.empty())
							    cistr.append(text.c_str(), text.size());

						    pos = cistr.find(ds.text.c_str(), pos);
						    if (pos == cistr.npos)
							    break;

						    if (ds.whole_word_matched)
						    {
							    if (!_m_whole_word(text, pos, ds.text.size()))
								    continue;
						    }
					    }

					    auto ki = keywords.schemes.find(ds.scheme);
					    if (ki != keywords.schemes.end() && ki->second)
					    {
							entities.emplace_back();
							auto & last = entities.back();
							last.begin = text.c_str() + pos;
							last.end = last.begin + ds.text.size();
							last.scheme = ki->second.get();
					    }
                    }
				}

				if (!entities.empty())
				{
					std::sort(entities.begin(), entities.end(), [](const entity& a, const entity& b)
					{
						return (a.begin < b.begin);
					});

					auto i = entities.begin();
					auto bound = i->end;

					for (++i; i != entities.end(); )
					{
						if (bound > i->begin)
							i = entities.erase(i);  // erase overlaping. Left only the first.
						else
							++i;
					}
				}

				entities_.swap(entities);
			}

			const std::vector<entity>& entities() const
			{
				return entities_;
			}
		private:
			static bool _m_whole_word(const std::wstring& text, std::wstring::size_type pos, std::size_t len)
			{
				if (pos)
				{
					auto chr = text[pos - 1];
					if ((std::iswalpha(chr) && !std::isspace(chr)) || chr == '_')
						return false;
				}

				if (pos + len < text.size())
				{
					auto chr = text[pos + len];
					if ((std::iswalpha(chr) && !std::isspace(chr)) || chr == '_')
						return false;
				}

				return true;
			}
		private:
			std::vector<entity> entities_;
		};

		//class text_editor

		text_editor::text_editor(window wd, graph_reference graph, const text_editor_scheme* schm)
			:	impl_(new implementation),
				window_(wd),
				graph_(graph),
				scheme_(schm)
		{
			impl_->capacities.behavior = new behavior_normal(*this);

			text_area_.area.dimension(graph.size());
			text_area_.captured = false;
			text_area_.tab_space = 4;
			text_area_.scroll_pixels = 16;
			text_area_.hscroll = text_area_.vscroll = 0;

			select_.behavior = text_focus_behavior::select_if_tabstop_or_click;
			select_.move_to_end = false;
			select_.mode_selection = selection::mode::no_selected;
			select_.ignore_press = false;

			API::create_caret(wd, { 1, line_height() });
			API::bgcolor(wd, colors::white);
			API::fgcolor(wd, colors::black);
		}

		text_editor::~text_editor()
		{
			//For instance of unique_ptr pimpl idiom.

			delete impl_->capacities.behavior;
			delete impl_;
		}

		void text_editor::set_highlight(const std::string& name, const ::nana::color& fgcolor, const ::nana::color& bgcolor)
		{
			if (fgcolor.invisible() && bgcolor.invisible())
			{
				impl_->keywords.schemes.erase(name);
				return;
			}

			auto sp = std::make_shared<keyword_scheme>();
			sp->fgcolor = fgcolor;
			sp->bgcolor = bgcolor;
			impl_->keywords.schemes[name].swap(sp);
		}

		void text_editor::erase_highlight(const std::string& name)
		{
			impl_->keywords.schemes.erase(name);
		}

		void text_editor::set_keyword(const ::std::wstring& kw, const std::string& name, bool case_sensitive, bool whole_word_matched)
		{
			for(auto & ds : impl_->keywords.base)
			{
				if (ds.text == kw)
				{
					ds.scheme = name;
					ds.case_sensitive = case_sensitive;
					ds.whole_word_matched = whole_word_matched;
					return;
				}
			}

			impl_->keywords.base.emplace_back(kw, name, case_sensitive, whole_word_matched);
		}

		void text_editor::erase_keyword(const ::std::wstring& kw)
		{
			for (auto i = impl_->keywords.base.begin(); i != impl_->keywords.base.end(); ++i)
			{
				if (kw == i->text)
				{
					impl_->keywords.base.erase(i);
					return;
				}
			}
		}

		void text_editor::set_accept(std::function<bool(char_type)> pred)
		{
			impl_->capacities.pred_acceptive = std::move(pred);
		}

		void text_editor::set_accept(accepts acceptive)
		{
			impl_->capacities.acceptive = acceptive;
		}

		bool text_editor::respond_char(const arg_keyboard& arg)	//key is a character of ASCII code
		{
			if (!API::window_enabled(window_))
				return false;

			char_type key = arg.key;
			switch (key)
			{
			case keyboard::end_of_text:
				copy();
				return false;
			case keyboard::select_all:
				select(true);
				return true;
			}

			if (attributes_.editable && (!impl_->capacities.pred_acceptive || impl_->capacities.pred_acceptive(key)))
			{
				switch (key)
				{
				case '\b':
					backspace();	break;
				case '\n': case '\r':
					enter();	break;
				case keyboard::sync_idel:
					paste();	break;
				case keyboard::tab:
					put(static_cast<wchar_t>(keyboard::tab)); break;
				case keyboard::cancel:
					cut();
					break;
				case keyboard::end_of_medium:
					undo(true);
					break;
				case keyboard::substitute:
					undo(false);
					break;
				default:
					if (!_m_accepts(key))
						return false;

					if (key > 0x7F || (32 <= key && key <= 126))
						put(key);
				}
				reset_caret();
				return true;
			}
			return false;
		}

		bool text_editor::respond_key(const arg_keyboard& arg)
		{
			char_type key = arg.key;
			switch (key)
			{
			case keyboard::os_arrow_left:
			case keyboard::os_arrow_right:
			case keyboard::os_arrow_up:
			case keyboard::os_arrow_down:
			case keyboard::os_home:
			case keyboard::os_end:
			case keyboard::os_pageup:
			case keyboard::os_pagedown:
				_m_handle_move_key(arg);
				break;
			case keyboard::os_del:
				// send delete to set_accept function
				if (this->attr().editable && (!impl_->capacities.pred_acceptive || impl_->capacities.pred_acceptive(key)))
					del();
				break;
			default:
				return false;
			}
			return true;
		}

		void text_editor::typeface_changed()
		{
			impl_->capacities.behavior->pre_calc_lines(width_pixels());
		}

		void text_editor::indent(bool enb, std::function<std::string()> generator)
		{
			/*
			indent_.enabled = enb;
			indent_.generator = std::move(generator);
			*/
			impl_->indent.enabled = enb;
			impl_->indent.generator = std::move(generator);
		}

		void text_editor::set_event(event_interface* ptr)
		{
			event_handler_ = ptr;
		}

		bool text_editor::line_wrapped() const
		{
			return attributes_.line_wrapped;
		}

		bool text_editor::line_wrapped(bool autl)
		{
			if (autl != attributes_.line_wrapped)
			{
				attributes_.line_wrapped = autl;

				delete impl_->capacities.behavior;
				if (autl)
				{
					impl_->capacities.behavior = new behavior_linewrapped(*this);
					text_area_.vscroll = text_area_.scroll_pixels;
					text_area_.hscroll = 0;
					impl_->capacities.behavior->pre_calc_lines(width_pixels());
				}
				else
					impl_->capacities.behavior = new behavior_normal(*this);

				points_.offset.x = 0;
				_m_offset_y(0);
				move_caret(upoint{});
				
				_m_scrollbar();
				render(API::is_focus_ready(window_));
				return true;
			}
			return false;
		}

		bool text_editor::load(const char* fs)
		{
			if (!impl_->textbase.load(fs))
				return false;

			_m_reset();
			impl_->capacities.behavior->pre_calc_lines(width_pixels());

			render(API::is_focus_ready(window_));
			_m_scrollbar();
			return true;
		}

		bool text_editor::text_area(const nana::rectangle& r)
		{
			if(text_area_.area == r)
				return false;

			text_area_.area = r;

			if (impl_->counterpart.enabled)
				impl_->counterpart.buffer.make(r.dimension());

			impl_->capacities.behavior->pre_calc_lines(width_pixels());
			_m_scrollbar();

			move_caret(points_.caret);
			return true;
		}

		rectangle text_editor::text_area(bool including_scroll) const
		{
			return (including_scroll ? _m_text_area() : text_area_.area);
		}

		bool text_editor::tip_string(::std::string&& str)
		{
			if(attributes_.tip_string == str)
				return false;

			attributes_.tip_string = std::move(str);
			return true;
		}

		const text_editor::attributes& text_editor::attr() const
		{
			return attributes_;
		}

		bool text_editor::multi_lines(bool ml)
		{
			if((ml == false) && attributes_.multi_lines)
			{
				//retain the first line and remove the extra lines
				if (impl_->textbase.erase(1, impl_->textbase.lines() - 1))
					_m_reset();
			}

			if (attributes_.multi_lines == ml)
				return false;

			attributes_.multi_lines = ml;

			if (!ml)
				line_wrapped(false);

			_m_scrollbar();
			return true;
		}

		void text_editor::editable(bool enable, bool enable_caret)
		{
			attributes_.editable = enable;
			attributes_.enable_caret = (enable || enable_caret);
		}

		void text_editor::enable_background(bool enb)
		{
			attributes_.enable_background = enb;
		}

		void text_editor::enable_background_counterpart(bool enb)
		{
			impl_->counterpart.enabled = enb;
			if (enb)
				impl_->counterpart.buffer.make(text_area_.area.dimension());
			else
				impl_->counterpart.buffer.release();
		}

		void text_editor::undo_enabled(bool enb)
		{
			impl_->undo.enable(enb);
		}

		bool text_editor::undo_enabled() const
		{
			return impl_->undo.enabled();
		}

		void text_editor::undo_max_steps(std::size_t maxs)
		{
			impl_->undo.max_steps(maxs);
		}

		std::size_t text_editor::undo_max_steps() const
		{
			return impl_->undo.max_steps();
		}

		void text_editor::clear_undo()
		{
			auto size = impl_->undo.max_steps();
			impl_->undo.max_steps(0);
			impl_->undo.max_steps(size);
		}

		auto text_editor::customized_renderers() -> renderers&
		{
			return impl_->customized_renderers;
		}

		unsigned text_editor::line_height() const
		{
			unsigned ascent, descent, internal_leading;
			if (graph_.text_metrics(ascent, descent, internal_leading))
				return ascent + descent;

			return 0;
		}

		unsigned text_editor::screen_lines() const
		{
			if(graph_ && (text_area_.area.height > text_area_.hscroll))
			{
				auto lines = (text_area_.area.height - text_area_.hscroll) / line_height();
				return (lines ? lines : 1);
			}
			return 0;
		}

		bool text_editor::focus_changed(const arg_focus& arg)
		{
			bool renderred = false;

			if (arg.getting && (select_.a == select_.b)) //Do not change the selected text
			{
				bool select_all = false;
				switch (select_.behavior)
				{
				case text_focus_behavior::select:
					select_all = true;
					break;
				case text_focus_behavior::select_if_click:
					select_all = (arg_focus::reason::mouse_press == arg.focus_reason);
					break;
				case text_focus_behavior::select_if_tabstop:
					select_all = (arg_focus::reason::tabstop == arg.focus_reason);
					break;
				case text_focus_behavior::select_if_tabstop_or_click:
					select_all = (arg_focus::reason::tabstop == arg.focus_reason || arg_focus::reason::mouse_press == arg.focus_reason);
				default:
					break;
				}

				if (select_all)
				{
					select(true);
					move_caret_end(false);
					renderred = true;

					//If the text widget is focused by clicking mouse button, the selected text will be cancelled
					//by the subsequent mouse down event. In this situation, the subsequent mouse down event should
					//be ignored.
					select_.ignore_press = (arg_focus::reason::mouse_press == arg.focus_reason);
				}
			}
			show_caret(arg.getting);
			reset_caret();
			return renderred;
		}

		bool text_editor::mouse_enter(bool entering)
		{
			if ((false == entering) && (false == text_area_.captured))
				API::window_cursor(window_, nana::cursor::arrow);

			return false;
		}

		bool text_editor::mouse_move(bool left_button, const point& scrpos)
		{
			cursor cur = cursor::iterm;
			if(((!hit_text_area(scrpos)) && (!text_area_.captured)) || !attributes_.enable_caret || !API::window_enabled(window_))
				cur = cursor::arrow;

			API::window_cursor(window_, cur);

			if(!attributes_.enable_caret)
				return false;

			if(left_button)
			{
				mouse_caret(scrpos);

				if (selection::mode::mouse_selected == select_.mode_selection || selection::mode::method_selected == select_.mode_selection)
					set_end_caret();

				_m_draw_border();
				return true;
			}
			return false;
		}

		bool text_editor::mouse_pressed(const arg_mouse& arg)
		{
			if(!attributes_.enable_caret)
				return false;

			if (event_code::mouse_down == arg.evt_code)
			{
				if (select_.ignore_press || (!hit_text_area(arg.pos)))
				{
					select_.ignore_press = false;
					return false;
				}

				if (::nana::mouse::left_button == arg.button)
				{
					API::set_capture(window_, true);
					text_area_.captured = true;


					if (this->hit_select_area(impl_->capacities.behavior->screen_to_caret(arg.pos), true))
					{
						//The selected of text can be moved only if it is editable
						if (attributes_.editable)
							select_.mode_selection = selection::mode::move_selected;
					}
					else
					{
						//Set caret pos by screen point and get the caret pos.
						mouse_caret(arg.pos);
						if (arg.shift)
						{
							if (points_.shift_begin_caret != points_.caret)
							{
								select_.a = points_.shift_begin_caret;
								select_.b = points_.caret;
							}
						}
						else
						{
							if (!select(false))
							{
								select_.a = points_.caret;	//Set begin caret
								set_end_caret();
							}
							points_.shift_begin_caret = points_.caret;
						}
						select_.mode_selection = selection::mode::mouse_selected;
					}
				}

				_m_draw_border();
				return true;
			}
			else if (event_code::mouse_up == arg.evt_code)
			{
				select_.ignore_press = false;
				bool updated = false;

				if (select_.mode_selection == selection::mode::mouse_selected)
				{
					select_.mode_selection = selection::mode::no_selected;
					set_end_caret();
				}
				else if (selection::mode::move_selected == select_.mode_selection)
				{
					if (!move_select())
						select(false);
					updated = true;
				}

				API::release_capture(window_);

				text_area_.captured = false;
				if (hit_text_area(arg.pos) == false)
					API::window_cursor(window_, nana::cursor::arrow);

				_m_draw_border();

				return updated;
			}
			return false;
		}

		textbase<text_editor::char_type> & text_editor::textbase()
		{
			return impl_->textbase;
		}

		const textbase<text_editor::char_type> & text_editor::textbase() const
		{
			return impl_->textbase;
		}

		bool text_editor::getline(std::size_t pos, std::wstring& text) const
		{
			if (impl_->textbase.lines() <= pos)
				return false;

			text = impl_->textbase.getline(pos);
			return true;
		}

		void text_editor::text(std::wstring str, bool end_caret)
		{
			impl_->undo.clear();

			impl_->textbase.erase_all();
			_m_reset();
			impl_->capacities.behavior->pre_calc_lines(width_pixels());
			if (!end_caret)
			{
				auto undo_ptr = std::unique_ptr<undo_input_text>{ new undo_input_text(*this, str) };
				undo_ptr->set_caret_pos();

				_m_put(std::move(str));

				impl_->undo.push(std::move(undo_ptr));

				if (graph_)
				{
					impl_->capacities.behavior->adjust_caret_into_screen();
					reset_caret();
					render(API::is_focus_ready(window_));
					_m_scrollbar();

					points_.xpos = 0;
				}
			}
			else
				put(std::move(str));
		}

		std::wstring text_editor::text() const
		{
			std::wstring str;
			std::size_t lines = impl_->textbase.lines();
			if(lines > 0)
			{
				str = impl_->textbase.getline(0);
				for(std::size_t i = 1; i < lines; ++i)
				{
					str += L"\n\r";
					str += impl_->textbase.getline(i);
				}
			}
			return str;
		}

		bool text_editor::move_caret(const upoint& crtpos, bool reset_caret)
		{	
			const unsigned line_pixels = line_height();
			auto pos = impl_->capacities.behavior->caret_to_screen(crtpos);
			const int line_bottom = pos.y + static_cast<int>(line_pixels);

			if (reset_caret)
				points_.caret = this->impl_->capacities.behavior->screen_to_caret(pos);

			if (!API::is_focus_ready(window_))
				return false;

			auto caret = API::open_caret(window_, true);

			bool visible = false;
			auto text_area = _m_text_area();
			if (text_area.is_hit(pos) && (line_bottom > text_area.y))
			{
				visible = true;
				if (line_bottom > text_area.bottom())
					caret->dimension(nana::size(1, line_pixels - (line_bottom - text_area.bottom())));
				else if (caret->dimension().height != line_pixels)
					reset_caret_pixels();
			}

			if(!attributes_.enable_caret)
				visible = false;

			caret->visible(visible);
			if(visible)
				caret->position(pos);

			//Adjust the caret into screen when the caret position is modified by this function
			if (reset_caret && (!hit_text_area(pos)))
			{
				impl_->capacities.behavior->adjust_caret_into_screen();
				render(true);
				caret->visible(true);
				return true;
			}
			return false;
		}

		void text_editor::move_caret_end(bool update)
		{
			points_.caret.y = static_cast<unsigned>(impl_->textbase.lines());
			if(points_.caret.y) --points_.caret.y;
			points_.caret.x = static_cast<unsigned>(impl_->textbase.getline(points_.caret.y).size());

			if (update)
				this->move_caret(points_.caret, false);
		}

		void text_editor::reset_caret_pixels() const
		{
			API::open_caret(window_, true)->dimension({ 1, line_height() });
		}

		void text_editor::reset_caret()
		{
			move_caret(points_.caret);
		}

		void text_editor::show_caret(bool isshow)
		{
			if(isshow == false || API::is_focus_ready(window_))
				API::open_caret(window_, true)->visible(isshow);
		}

		bool text_editor::selected() const
		{
			return (select_.a != select_.b);
		}

		bool text_editor::get_selected_points(nana::upoint &a, nana::upoint &b) const
		{
			if (select_.a == select_.b)
				return false;

			if (select_.a < select_.b)
			{
				a = select_.a;
				b = select_.b;
			}
			else
			{
				a = select_.b;
				b = select_.a;
			}

			return true;
		}

		void text_editor::set_end_caret()
		{
			bool new_sel_end = (select_.b != points_.caret);
			select_.b = points_.caret;
			points_.xpos = points_.caret.x;

			if (new_sel_end || impl_->capacities.behavior->adjust_caret_into_screen())
				render(true);
		}

		bool text_editor::select(bool yes)
		{
			if(yes)
			{
				select_.a.x = select_.a.y = 0;
				select_.b.y = static_cast<unsigned>(impl_->textbase.lines());
				if(select_.b.y) --select_.b.y;
				select_.b.x = static_cast<unsigned>(impl_->textbase.getline(select_.b.y).size());
				select_.mode_selection = selection::mode::method_selected;
				render(true);
				return true;
			}

			select_.mode_selection = selection::mode::no_selected;
			if (_m_cancel_select(0))
			{
				render(true);
				return true;
			}
			return false;
		}

		bool text_editor::hit_text_area(const point& pos) const
		{
			return _m_text_area().is_hit(pos);
		}

		bool text_editor::hit_select_area(nana::upoint pos, bool ignore_when_select_all) const
		{
			nana::upoint a, b;
			if (get_selected_points(a, b))
			{
				if (ignore_when_select_all)
				{
					if (a.x == 0 && a.y == 0 && (b.y + 1) == static_cast<unsigned>(textbase().lines()))
					{
						//is select all
						if (b.x == static_cast<unsigned>(textbase().getline(b.y).size()))
							return false;
					}
				}

				if((pos.y > a.y || (pos.y == a.y && pos.x >= a.x)) && ((pos.y < b.y) || (pos.y == b.y && pos.x < b.x)))
					return true;
			}
			return false;
		}

		bool text_editor::move_select()
		{
			if(hit_select_area(points_.caret, true) || (select_.b == points_.caret))
			{
				points_.caret = select_.b;

				if (impl_->capacities.behavior->adjust_caret_into_screen())
					render(true);

				reset_caret();
				return true;
			}

			if (_m_move_select(true))
			{
				impl_->capacities.behavior->adjust_caret_into_screen();
				render(true);
				return true;
			}
			return false;
		}

		bool text_editor::mask(wchar_t ch)
		{
			if (mask_char_ == ch)
				return false;

			mask_char_ = ch;
			return true;
		}

		unsigned text_editor::width_pixels() const
		{
			unsigned exclude_px;
			if (attributes_.line_wrapped)
				exclude_px = text_area_.vscroll;
			else
				exclude_px = API::open_caret(window_, true)->dimension().width;

			return (text_area_.area.width > exclude_px ? text_area_.area.width - exclude_px : 0);
		}

		window text_editor::window_handle() const
		{
			return window_;
		}

		const std::vector<upoint>& text_editor::text_position() const
		{
			return impl_->text_position;
		}

		void text_editor::focus_behavior(text_focus_behavior behavior)
		{
			select_.behavior = behavior;
		}

		void text_editor::select_behavior(bool move_to_end)
		{
			select_.move_to_end = move_to_end;
		}

		void text_editor::draw_corner()
		{
			if(text_area_.vscroll && text_area_.hscroll)
			{
				graph_.rectangle(rectangle{ text_area_.area.right() - static_cast<int>(text_area_.vscroll), text_area_.area.bottom() - static_cast<int>(text_area_.hscroll), text_area_.vscroll, text_area_.hscroll },
								true, colors::button_face);
			}
		}

		void text_editor::render(bool has_focus)
		{
			const auto bgcolor = _m_bgcolor();

			auto fgcolor = scheme_->foreground.get_color();
			if (!API::window_enabled(window_))
				fgcolor.blend(bgcolor, 0.5);

			if (API::widget_borderless(window_))
				graph_.rectangle(false, bgcolor);

			//Draw background
			if(attributes_.enable_background)
				graph_.rectangle(text_area_.area, true, bgcolor);

			if (impl_->customized_renderers.background)
				impl_->customized_renderers.background(graph_, text_area_.area, bgcolor);

			if(impl_->counterpart.buffer && !text_area_.area.empty())
				impl_->counterpart.buffer.bitblt(rectangle{ text_area_.area.dimension() }, graph_, text_area_.area.position());

			//Render the content when the text isn't empty or the window has got focus,
			//otherwise draw the tip string.
			if ((false == textbase().empty()) || has_focus)
			{
				auto text_pos = impl_->capacities.behavior->render(fgcolor);
				
				if (text_pos.empty())
					text_pos.emplace_back(upoint{});
				
				if (text_pos != impl_->text_position)
				{
					impl_->text_position.swap(text_pos);
					if (event_handler_)
						event_handler_->text_exposed(impl_->text_position);
				}
			}
			else //Draw tip string
				graph_.string({ text_area_.area.x - points_.offset.x, text_area_.area.y }, attributes_.tip_string, static_cast<color_rgb>(0x787878));

			if (impl_->text_position.empty())
				impl_->text_position.emplace_back(upoint{});

			draw_corner();

			_m_draw_border();
		}
	//public:
		void text_editor::put(std::wstring text)
		{
			if (text.empty())
				return;

			auto undo_ptr = std::unique_ptr<undo_input_text>{ new undo_input_text(*this, text) };

			undo_ptr->set_selected_text();

			//Do not forget to assign the _m_erase_select() to caret
			//because _m_put() will insert the text at the position where the caret is.
			points_.caret = _m_erase_select();

			undo_ptr->set_caret_pos();
			points_.caret = _m_put(std::move(text));

			impl_->undo.push(std::move(undo_ptr));

			if(graph_)
			{
				impl_->capacities.behavior->adjust_caret_into_screen();
				reset_caret();
				render(API::is_focus_ready(window_));
				_m_scrollbar();

				points_.xpos = points_.caret.x;
			}
		}

		void text_editor::put(wchar_t ch)
		{
			std::wstring ch_str(1, ch);

			auto undo_ptr = std::unique_ptr<undo_input_text>{new undo_input_text(*this, ch_str)};
			bool refresh = (select_.a != select_.b);

			undo_ptr->set_selected_text();
			if(refresh)
				points_.caret = _m_erase_select();

			undo_ptr->set_caret_pos();

			impl_->undo.push(std::move(undo_ptr));

			auto secondary_before = impl_->capacities.behavior->take_lines(points_.caret.y);
			textbase().insert(points_.caret, std::move(ch_str));
			_m_pre_calc_lines(points_.caret.y, 1);

			points_.caret.x ++;

			if (refresh || _m_update_caret_line(secondary_before))
				render(true);
			else
				draw_corner();

			_m_scrollbar();

			points_.xpos = points_.caret.x;
		}

		void text_editor::copy() const
		{
			auto text = _m_make_select_string();
			if (!text.empty())
				nana::system::dataexch().set(text, API::root(this->window_));
		}

		void text_editor::cut()
		{
			copy();
			del();
		}

		void text_editor::paste()
		{
			auto text = system::dataexch{}.wget();

			//If it is required check the acceptable
			if ((accepts::no_restrict != impl_->capacities.acceptive) || impl_->capacities.pred_acceptive)
			{
				for (auto i = text.begin(); i != text.end(); ++i)
				{
					if (_m_accepts(*i))
					{
						if (accepts::no_restrict == impl_->capacities.acceptive)
							put(*i);

						continue;
					}

					if (accepts::no_restrict != impl_->capacities.acceptive)
					{
						text.erase(i, text.end());
						put(std::move(text));
					}
					break;
				}
			}
		}

		void text_editor::enter(bool record_undo)
		{
			if(false == attributes_.multi_lines)
				return;

			auto undo_ptr = std::unique_ptr<undo_input_text>(new undo_input_text(*this, std::wstring(1, '\n')));
			bool need_refresh = (select_.a != select_.b);

			undo_ptr->set_selected_text();
			if(need_refresh)
				points_.caret = _m_erase_select();

			undo_ptr->set_caret_pos();

			auto & textbase = this->textbase();

			const string_type& lnstr = textbase.getline(points_.caret.y);
			++points_.caret.y;

			if(lnstr.size() > points_.caret.x)
			{
				//Breaks the line and moves the rest part to a new line
				auto rest_part_len = lnstr.size() - points_.caret.x;	//Firstly get the length of rest part, because lnstr may be invalid after insertln
				textbase.insertln(points_.caret.y, lnstr.substr(points_.caret.x));
				textbase.erase(points_.caret.y - 1, points_.caret.x, rest_part_len);
			}
			else
			{
				if (textbase.lines() == 0)
					textbase.insertln(0, std::wstring{});
				textbase.insertln(points_.caret.y, std::wstring{});
			}

			if (record_undo)
				impl_->undo.push(std::move(undo_ptr));

			impl_->capacities.behavior->add_lines(points_.caret.y - 1, 1);
			_m_pre_calc_lines(points_.caret.y - 1, 2);

			points_.caret.x = 0;

			if(points_.offset.x || (points_.caret.y < textbase.lines()) || textbase.getline(points_.caret.y).size())
			{
				points_.offset.x = 0;
				need_refresh = true;
			}

			if (impl_->indent.enabled)
			{
				if (impl_->indent.generator)
				{
					put(to_wstring(impl_->indent.generator()));
				}
				else
				{
					auto & text = textbase.getline(points_.caret.y - 1);
					auto indent_pos = text.find_first_not_of(L"\t ");
					if (indent_pos != std::wstring::npos)
						put(text.substr(0, indent_pos));
					else
						put(text);
				}
			}

			if (impl_->capacities.behavior->adjust_caret_into_screen() || need_refresh)
				render(true);

			_m_scrollbar();
		}

		void text_editor::del()
		{
			bool has_erase = true;

			if(select_.a == select_.b)
			{
				if(textbase().getline(points_.caret.y).size() > points_.caret.x)
				{
					++points_.caret.x;
				}
				else if(points_.caret.y + 1 < textbase().lines())
				{	//Move to next line
					points_.caret.x = 0;
					++ points_.caret.y;
				}
				else
					has_erase = false;	//No characters behind the caret
			}

			if(has_erase)	backspace();

			_m_scrollbar();
			points_.xpos = points_.caret.x;
		}

		void text_editor::backspace(bool record_undo)
		{
			auto undo_ptr = std::unique_ptr<undo_backspace>(new undo_backspace(*this));
			bool has_to_redraw = true;
			if(select_.a == select_.b)
			{
				auto & textbase = this->textbase();
				if(points_.caret.x)
				{
					unsigned erase_number = 1;
					--points_.caret.x;

					auto& lnstr = textbase.getline(points_.caret.y);

					undo_ptr->set_caret_pos();
					undo_ptr->set_removed(lnstr.substr(points_.caret.x, erase_number));
					auto secondary = impl_->capacities.behavior->take_lines(points_.caret.y);
					textbase.erase(points_.caret.y, points_.caret.x, erase_number);
					_m_pre_calc_lines(points_.caret.y, 1);

					if(_m_move_offset_x_while_over_border(-2) == false)
					{
						impl_->capacities.behavior->update_line(points_.caret.y, secondary);
						draw_corner();
						has_to_redraw = false;
					}
				}
				else if (points_.caret.y)
				{
					points_.caret.x = static_cast<unsigned>(textbase.getline(--points_.caret.y).size());
					textbase.merge(points_.caret.y);
					impl_->capacities.behavior->merge_lines(points_.caret.y, points_.caret.y + 1);
					undo_ptr->set_caret_pos();
					undo_ptr->set_removed(std::wstring(1, '\n'));
				}
				else
					undo_ptr.reset();
			}
			else
			{
				undo_ptr->set_removed(this->_m_make_select_string());

				undo_ptr->set_selected_text();
				points_.caret = _m_erase_select();
				undo_ptr->set_caret_pos();
			}

			if (record_undo)
				impl_->undo.push(std::move(undo_ptr));

			if(has_to_redraw)
			{
				impl_->capacities.behavior->pre_calc_lines(width_pixels());
				impl_->capacities.behavior->adjust_caret_into_screen();
				render(true);
			}
			_m_scrollbar();
		}

		void text_editor::undo(bool reverse)
		{
			if (reverse)
				impl_->undo.redo();
			else
				impl_->undo.undo();

			impl_->capacities.behavior->pre_calc_lines(width_pixels());
			impl_->capacities.behavior->adjust_caret_into_screen();
			render(true);
			_m_scrollbar();
		}

		void text_editor::set_undo_queue_length(std::size_t len)
		{
			impl_->undo.max_steps(len);
		}

		void text_editor::move_ns(bool to_north)
		{
			const bool redraw_required = _m_cancel_select(0);
			if (impl_->capacities.behavior->move_caret_ns(to_north) || redraw_required)
				render(true);
			_m_scrollbar();
		}

		void text_editor::move_left()
		{
			bool pending = true;
			if(_m_cancel_select(1) == false)
			{
				if(points_.caret.x)
				{
					--points_.caret.x;

					pending = false;
					bool adjust_y = (attributes_.line_wrapped && impl_->capacities.behavior->adjust_caret_into_screen());
					if (_m_move_offset_x_while_over_border(-2) || adjust_y)
						render(true);
				}
				else if (points_.caret.y) //Move to previous line
					points_.caret.x = static_cast<unsigned>(textbase().getline(--points_.caret.y).size());
				else
					pending = false;
			}

			if (pending && impl_->capacities.behavior->adjust_caret_into_screen())
				render(true);

			_m_scrollbar();
			points_.xpos = points_.caret.x;
		}

		void text_editor::move_right()
		{
			bool do_render = false;
			if(_m_cancel_select(2) == false)
			{
				auto lnstr = textbase().getline(points_.caret.y);
				if(lnstr.size() > points_.caret.x)
				{
					++points_.caret.x;

					bool adjust_y = (attributes_.line_wrapped && impl_->capacities.behavior->adjust_caret_into_screen());
					do_render = (_m_move_offset_x_while_over_border(2) || adjust_y);
				}
				else if(points_.caret.y + 1 < textbase().lines())
				{	//Move to next line
					points_.caret.x = 0;
					++ points_.caret.y;
					do_render = impl_->capacities.behavior->adjust_caret_into_screen();
				}
			}
			else
				do_render = impl_->capacities.behavior->adjust_caret_into_screen();

			if (do_render)
				render(true);

			_m_scrollbar();
			points_.xpos = points_.caret.x;
		}

		void text_editor::_m_handle_move_key(const arg_keyboard& arg)
		{
			if (arg.shift && (select_.a == select_.b))
				select_.a = select_.b = points_.caret;

			bool changed = false;
			nana::upoint caret = points_.caret;
			wchar_t key = arg.key;
			size_t nlines = textbase().lines();
			if (arg.ctrl) {
				switch (key) {
				case keyboard::os_arrow_left:
				case keyboard::os_arrow_right:
					// TODO: move the caret word by word
					break;
				case keyboard::os_home:
					if (caret.y != 0) {
						caret.y = 0;
						points_.offset.y = 0;
						changed = true;
					}
					break;
				case keyboard::os_end:
					if (caret.y != nlines - 1) {
						caret.y = static_cast<decltype(caret.y)>(nlines - 1);
						changed = true;
					}
					break;
				}
			}
			size_t lnsz = textbase().getline(caret.y).size();
			switch (key) {
			case keyboard::os_arrow_left:
				if (select_.move_to_end && (select_.a != select_.b) && (!arg.shift))
				{
					caret = select_.a;
					changed = true;
				}
				else
				{
					if (caret.x != 0) {
						--caret.x;
						changed = true;
					}
					else {
						if (caret.y != 0) {
							--caret.y;
							caret.x = static_cast<decltype(caret.x)>(textbase().getline(caret.y).size());
							changed = true;
						}
					}
				}
				break;
			case keyboard::os_arrow_right:
				if (select_.move_to_end && (select_.a != select_.b) && (!arg.shift))
				{
					caret = select_.b;
					changed = true;
				}
				else
				{
					if (caret.x < lnsz) {
						++caret.x;
						changed = true;
					}
					else {
						if (caret.y != nlines - 1) {
							++caret.y;
							caret.x = 0;
							changed = true;
						}
					}
				}
				break;
			case keyboard::os_arrow_up:
			case keyboard::os_arrow_down:
				{
					auto screen_pt = impl_->capacities.behavior->caret_to_screen(caret);
					int offset = line_height();
					if (key == keyboard::os_arrow_up) {
						offset = -offset;
					}
					screen_pt.y += offset;
					auto new_caret = impl_->capacities.behavior->screen_to_caret(screen_pt);
					if (new_caret != caret) {
						caret = new_caret;
						if (screen_pt.y < 0) {
							scroll(true, true);
						}
						changed = true;
					}
				}
				break;
			case keyboard::os_home:
				if (caret.x != 0) {
					caret.x = 0;
					changed = true;
				}
				break;
			case keyboard::os_end:
				if (caret.x < lnsz) {
					caret.x = static_cast<decltype(caret.x)>(lnsz);
					changed = true;
				}
				break;
			case keyboard::os_pageup:
				if (caret.y >= screen_lines() && points_.offset.y >= static_cast<int>(screen_lines())) {
					points_.offset.y -= screen_lines();
					caret.y -= screen_lines();
					changed = true;
				}
				break;
			case keyboard::os_pagedown:
				if (caret.y + screen_lines() <= impl_->capacities.behavior->take_lines()) {
					points_.offset.y += screen_lines();
					caret.y += screen_lines();
					changed = true;
				}
				break;
			}
			if (select_.a != caret || select_.b != caret) {
				changed = true;
			}

			if (changed) {
				if (arg.shift) {
					switch (key) {
					case keyboard::os_arrow_left:
					case keyboard::os_arrow_up:
					case keyboard::os_home:
					case keyboard::os_pageup:
						select_.b = caret;
						break;
					case keyboard::os_arrow_right:
					case keyboard::os_arrow_down:
					case keyboard::os_end:
					case keyboard::os_pagedown:
						select_.b = caret;
						break;
					}
				}else {
					select_.b = caret;
					select_.a = caret;
				}
				points_.caret = caret;
				impl_->capacities.behavior->adjust_caret_into_screen();
				render(true);
				_m_scrollbar();
				points_.xpos = points_.caret.x;
			}
		}

		void text_editor::_m_draw_border()
		{
			if (!API::widget_borderless(this->window_))
			{
				if (impl_->customized_renderers.border)
				{
					impl_->customized_renderers.border(graph_, _m_bgcolor());
				}
				else
				{
					::nana::facade<element::border> facade;
					facade.draw(graph_, _m_bgcolor(), API::fgcolor(this->window_), ::nana::rectangle{ API::window_size(this->window_) }, API::element_state(this->window_));
				}
			}
		}

		const upoint& text_editor::mouse_caret(const point& scrpos)	//From screen position
		{
			points_.caret = impl_->capacities.behavior->screen_to_caret(scrpos);

			if (impl_->capacities.behavior->adjust_caret_into_screen())
				render(true);

			move_caret(points_.caret);
			return points_.caret;
		}

		const upoint& text_editor::caret() const
		{
			return points_.caret;
		}

		point text_editor::caret_screen_pos() const
		{
			return impl_->capacities.behavior->caret_to_screen(points_.caret);
		}

		bool text_editor::scroll(bool upwards, bool vert)
		{
			if(vert && impl_->widgets.vscroll)
			{
				impl_->widgets.vscroll->make_step(!upwards, this->scheme_->mouse_wheel.lines);
				if(_m_scroll_text(true))
				{
					render(true);
					return true;
				}
			}
			return false;
		}

		void text_editor::_m_pre_calc_lines(std::size_t line_off, std::size_t lines)
		{
			unsigned width_px = width_pixels();
			for (auto pos = line_off, end = line_off + lines; pos != end; ++pos)
				this->impl_->capacities.behavior->pre_calc_line(pos, width_px);
		}


		bool text_editor::_m_accepts(char_type ch) const
		{
			if (accepts::no_restrict == impl_->capacities.acceptive)
			{
				if (impl_->capacities.pred_acceptive)
					return impl_->capacities.pred_acceptive(ch);
				return true;
			}

			//Checks the input whether it meets the requirement for a numeric.
			auto str = text();

			if ('+' == ch || '-' == ch)
				return str.empty();

			if((accepts::real == impl_->capacities.acceptive) && ('.' == ch))
				return (str.find(L'.') == str.npos);

			return ('0' <= ch && ch <= '9');
		}


		::nana::color text_editor::_m_bgcolor() const
		{
			return (!API::window_enabled(window_) ? static_cast<color_rgb>(0xE0E0E0) : API::bgcolor(window_));
		}

		bool text_editor::_m_scroll_text(bool vert)
		{
			if (vert)
			{
				if (impl_->widgets.vscroll)
				{
					auto sv = static_cast<int>(impl_->widgets.vscroll->value());
					if (sv != points_.offset.y)
					{
						_m_offset_y(sv);
						return true;
					}
				}
			}
			else if(impl_->widgets.hscroll)
			{
				auto sv = static_cast<int>(impl_->widgets.hscroll->value());
				if(sv != points_.offset.x)
				{
					points_.offset.x = sv;
					return true;
				}
			}
			return false;
		}

		void text_editor::_m_scrollbar()
		{
			_m_get_scrollbar_size();
			auto tx_area = _m_text_area();

			auto scroll_fn = [this](const arg_mouse& arg)
			{
				if ((arg.evt_code == event_code::mouse_move) && (arg.left_button == false))
					return;

				bool vert = (impl_->widgets.vscroll && (impl_->widgets.vscroll->handle() == arg.window_handle));
				if (_m_scroll_text(vert))
				{
					render(true);
					reset_caret();
					API::update_window(window_);
				}
			};

			if (text_area_.vscroll)
			{
				const int x = text_area_.area.x + static_cast<int>(tx_area.width);
				auto wdptr = impl_->widgets.vscroll.get();
				if (!wdptr)
				{
					impl_->widgets.vscroll.reset(new nana::scroll<true>);
					wdptr = impl_->widgets.vscroll.get();
					wdptr->create(window_, nana::rectangle(x, text_area_.area.y, text_area_.vscroll, tx_area.height));

					auto & evts = wdptr->events();
					evts.mouse_down(scroll_fn);
					evts.mouse_move(scroll_fn);
					evts.mouse_wheel(scroll_fn);

					API::take_active(wdptr->handle(), false, window_);
				}

				if (impl_->capacities.behavior->take_lines() != wdptr->amount())
					wdptr->amount(static_cast<int>(impl_->capacities.behavior->take_lines()));

				if (screen_lines() != wdptr->range())
					wdptr->range(screen_lines());

				if (points_.offset.y != static_cast<int>(wdptr->value()))
					wdptr->value(points_.offset.y);

				wdptr->move(rectangle{ x, text_area_.area.y, text_area_.vscroll, tx_area.height });
			}
			else
				impl_->widgets.vscroll.reset();

			//HScroll
			if(text_area_.hscroll)
			{
				auto wdptr = impl_->widgets.hscroll.get();
				int y = text_area_.area.y + static_cast<int>(tx_area.height);
				if(nullptr == wdptr)
				{
					impl_->widgets.hscroll.reset(new nana::scroll<false>);
					wdptr = impl_->widgets.hscroll.get();
					wdptr->create(window_, nana::rectangle(text_area_.area.x, y, tx_area.width, text_area_.hscroll));

					auto & evts = wdptr->events();
					evts.mouse_down(scroll_fn);
					evts.mouse_move(scroll_fn);
					evts.mouse_wheel(scroll_fn);

					wdptr->step(20);
					API::take_active(wdptr->handle(), false, window_);
				}
				auto maxline = textbase().max_line();
				nana::size text_size = _m_text_extent_size(textbase().getline(maxline.first).c_str(), maxline.second);

				text_size.width += 1;
				if(text_size.width > wdptr->amount())
					wdptr->amount(text_size.width);

				if(tx_area.width != wdptr->range())	wdptr->range(tx_area.width);
				if(points_.offset.x != static_cast<int>(wdptr->value()))
					wdptr->value(points_.offset.x);

				wdptr->move(rectangle{ text_area_.area.x, y, tx_area.width, text_area_.hscroll });
			}
			else
				impl_->widgets.hscroll.reset();
		}

		rectangle text_editor::_m_text_area() const
		{
			auto area = text_area_.area;
			if (area.width > text_area_.vscroll)
				area.width -= text_area_.vscroll;
			else
				area.width = 0;

			if (area.height > text_area_.hscroll)
				area.height -= text_area_.hscroll;
			else
				area.height = 0;

			return area;
		}

		void text_editor::_m_get_scrollbar_size()
		{
			text_area_.hscroll = 0;

			if (attributes_.line_wrapped)
			{
				text_area_.vscroll = text_area_.scroll_pixels;
				return;
			}

			//No scrollbar if it is not multi-line
			if (!attributes_.multi_lines)
			{
				text_area_.vscroll = 0;
				return;
			}

			const bool text_overflow = (textbase().lines() > screen_lines());

			text_area_.vscroll = (text_overflow ? text_area_.scroll_pixels : 0);

			auto max_line = textbase().max_line();
			if(max_line.second)
			{
				if(points_.offset.x || _m_text_extent_size(textbase().getline(max_line.first).c_str(), max_line.second).width > _m_text_area().width)
				{
					text_area_.hscroll = text_area_.scroll_pixels;
					if((text_area_.vscroll == 0) && text_overflow)
						text_area_.vscroll = text_area_.scroll_pixels;
				}
			}
		}

		void text_editor::_m_reset()
		{
			points_.caret.x = points_.caret.y = 0;
			points_.offset.x = 0;
			_m_offset_y(0);
			select_.a = select_.b;
		}

		nana::upoint text_editor::_m_put(std::wstring text)
		{
			auto & textbase = this->textbase();
			auto crtpos = points_.caret;
			std::vector<std::pair<std::size_t, std::size_t>> lines;
			if (_m_resolve_text(text, lines) && attributes_.multi_lines)
			{
				auto str_orig = textbase.getline(crtpos.y);
				auto x_orig = crtpos.x;

				auto subpos = lines.front();
				auto substr = text.substr(subpos.first, subpos.second - subpos.first);

				if (str_orig.size() == x_orig)
					textbase.insert(crtpos, std::move(substr));
				else
					textbase.replace(crtpos.y, str_orig.substr(0, x_orig) + substr);

				//There are at least 2 elements in lines
				for (auto i = lines.begin() + 1, end = lines.end() - 1; i != end; ++i)
				{
					textbase.insertln(++crtpos.y, text.substr(i->first, i->second - i->first));
				}

				auto backpos = lines.back();
				textbase.insertln(++crtpos.y, text.substr(backpos.first, backpos.second - backpos.first) + str_orig.substr(x_orig));
				crtpos.x = static_cast<decltype(crtpos.x)>(backpos.second - backpos.first);

				impl_->capacities.behavior->add_lines(points_.caret.y, lines.size() - 1);
				_m_pre_calc_lines(points_.caret.y, lines.size());
			}
			else
			{
				//Just insert the first line of text if the text is multilines.
				if (lines.size() > 1)
					text = text.substr(lines.front().first, lines.front().second - lines.front().first);

				auto length = text.size();
				textbase.insert(crtpos, std::move(text));

				crtpos.x += static_cast<unsigned>(length);
				_m_pre_calc_lines(crtpos.y, 1);
			}
			return crtpos;
		}

		nana::upoint text_editor::_m_erase_select()
		{
			nana::upoint a, b;
			if (get_selected_points(a, b))
			{
				auto & textbase = this->textbase();
				if(a.y != b.y)
				{
					textbase.erase(a.y, a.x, std::wstring::npos);
					textbase.erase(a.y + 1, b.y - a.y - 1);

					textbase.erase(a.y + 1, 0, b.x);
					textbase.merge(a.y);

					impl_->capacities.behavior->merge_lines(a.y, b.y);
				}
				else
				{
					textbase.erase(a.y, a.x, b.x - a.x);
					_m_pre_calc_lines(a.y, 1);
				}

				select_.a = select_.b;
				return a;
			}

			return points_.caret;
		}

		std::wstring text_editor::_m_make_select_string() const
		{
			std::wstring text;
			
			nana::upoint a, b;
			if (get_selected_points(a, b))
			{
				auto & textbase = this->textbase();
				if (a.y != b.y)
				{
					text = textbase.getline(a.y).substr(a.x);
					text += L"\r\n";
					for (unsigned i = a.y + 1; i < b.y; ++i)
					{
						text += textbase.getline(i);
						text += L"\r\n";
					}
					text += textbase.getline(b.y).substr(0, b.x);
				}
				else
					text = textbase.getline(a.y).substr(a.x, b.x - a.x);
			}

			return text;
		}

		std::size_t eat_endl(const wchar_t* str, std::size_t pos)
		{
			auto ch = str[pos];
			if (0 == ch)
				return pos;

			const wchar_t * endlstr;
			switch (ch)
			{
			case L'\n':
				endlstr = L"\n\r";
				break;
			case L'\r':
				endlstr = L"\r\n";
				break;
			default:
				return pos;
			}

			if (std::memcmp(str + pos, endlstr, sizeof(wchar_t) * 2) == 0)
				return pos + 2;

			return pos + 1;
		}

		bool text_editor::_m_resolve_text(const std::wstring& text, std::vector<std::pair<std::size_t, std::size_t>> & lines)
		{
			auto const text_str = text.c_str();
			std::size_t begin = 0;
			while (true)
			{
				auto pos = text.find_first_of(L"\r\n", begin);
				if (text.npos == pos)
				{
					if (!lines.empty())
						lines.emplace_back(begin, text.size());
					break;
				}

				lines.emplace_back(begin, pos);

				pos = eat_endl(text_str, pos);

				begin = text.find_first_not_of(L"\r\n", pos);

				//The number of new lines minus one
				const auto chp_end = text_str + (begin == text.npos ? text.size() : begin);

				for (auto chp = text_str + pos; chp != chp_end; ++chp)
				{
					auto eats = eat_endl(chp, 0);
					if (eats)
					{
						lines.emplace_back();
						chp += (eats - 1);
					}
				}

				if (text.npos == begin)
				{
					lines.emplace_back();
					break;
				}
			}
			return !lines.empty();
		}

		bool text_editor::_m_cancel_select(int align)
		{
			nana::upoint a, b;
			if (get_selected_points(a, b))
			{
				switch(align)
				{
				case 1:
					points_.caret = a;
					_m_move_offset_x_while_over_border(-2);
					break;
				case 2:
					points_.caret = b;
					_m_move_offset_x_while_over_border(2);
					break;
				}
				select_.a = select_.b = points_.caret;
				reset_caret();
				return true;
			}
			return false;
		}

		unsigned text_editor::_m_tabs_pixels(size_type tabs) const
		{
			if(0 == tabs) return 0;

			wchar_t ws[2] = {};
			ws[0] = mask_char_ ? mask_char_ : ' ';
			return static_cast<unsigned>(tabs * graph_.text_extent_size(ws).width * text_area_.tab_space);
		}

		nana::size text_editor::_m_text_extent_size(const char_type* str, size_type n) const
		{
			if(mask_char_)
			{
				std::wstring maskstr;
				maskstr.append(n, mask_char_);
				return graph_.text_extent_size(maskstr);
			}
			return graph_.text_extent_size(str, static_cast<unsigned>(n));
		}

		//_m_move_offset_x_while_over_border
		//@brief: Move the view window
		bool text_editor::_m_move_offset_x_while_over_border(int many)
		{
			//x never beyonds border in line-wrapped mode.
			if (attributes_.line_wrapped || (0 == many))
				return false;

			const string_type& lnstr = textbase().getline(points_.caret.y);
			unsigned width = _m_text_extent_size(lnstr.c_str(), points_.caret.x).width;

			const auto count = static_cast<unsigned>(std::abs(many));
			if(many < 0)
			{
				if(points_.offset.x && (points_.offset.x >= static_cast<int>(width)))
				{	//Out of screen text area
					if(points_.caret.x > count)
						points_.offset.x = static_cast<int>(width - _m_text_extent_size(lnstr.c_str() + points_.caret.x - count, count).width);
					else
						points_.offset.x = 0;
					return true;
				}
			}
			else
			{
				const int right_pos = _m_text_area().right();

				width += text_area_.area.x;
				if(static_cast<int>(width) - points_.offset.x >= right_pos)
				{	//Out of screen text area
					points_.offset.x = static_cast<int>(width) - right_pos + 1;
					auto rest_size = lnstr.size() - points_.caret.x;
					points_.offset.x += static_cast<int>(_m_text_extent_size(lnstr.c_str() + points_.caret.x, (rest_size >= static_cast<unsigned>(many) ? static_cast<unsigned>(many) : rest_size)).width);
					return true;
				}
			}
			return false;
		}

		bool text_editor::_m_move_select(bool record_undo)
		{
			if (!attributes_.editable)
				return false;

			nana::upoint caret = points_.caret;
			const auto text = _m_make_select_string();
			if (!text.empty())
			{
				auto undo_ptr = std::unique_ptr<undo_move_text>(new undo_move_text(*this));
				undo_ptr->set_selected_text();

				//Determines whether the caret is at left or at right. The select_.b indicates the caret position when finish selection
				const bool at_left = (select_.b < select_.a);

				nana::upoint a, b;
				get_selected_points(a, b);
				if (caret.y < a.y || (caret.y == a.y && caret.x < a.x))
				{//forward
					undo_ptr->set_caret_pos();

					_m_erase_select();
					_m_put(text);

					select_.a = caret;
					select_.b.y = b.y + (caret.y - a.y);
				}
				else if (b.y < caret.y || (caret.y == b.y && b.x < caret.x))
				{
					undo_ptr->set_caret_pos();

					_m_put(text);
					_m_erase_select();

					select_.b.y = caret.y;
					select_.a.y = caret.y - (b.y - a.y);
					select_.a.x = caret.x - (caret.y == b.y ? (b.x - a.x) : 0);
				}
				select_.b.x = b.x + (a.y == b.y ? (select_.a.x - a.x) : 0);

				//restores the caret at the proper end.
				if ((select_.b < select_.a) != at_left)
					std::swap(select_.a, select_.b);

				if (record_undo)
				{
					undo_ptr->set_destination(select_.a, select_.b);
					impl_->undo.push(std::move(undo_ptr));
				}

				points_.caret = select_.b;
				reset_caret();
				return true;
			}
			return false;
		}

		int text_editor::_m_text_top_base() const
		{
			if(false == attributes_.multi_lines)
			{
				unsigned px = line_height();
				if(text_area_.area.height > px)
					return text_area_.area.y + static_cast<int>((text_area_.area.height - px) >> 1);
			}
			return text_area_.area.y;
		}

		void text_editor::_m_draw_parse_string(const keyword_parser& parser, bool rtl, ::nana::point pos, const ::nana::color& fgcolor, const wchar_t* str, std::size_t len) const
		{
			graph_.palette(true, fgcolor);
			graph_.string(pos, str, len);
			if (parser.entities().empty())
				return;

			std::unique_ptr<unsigned[]> glyph_px(new unsigned[len]);
			graph_.glyph_pixels(str, len, glyph_px.get());
			auto glyphs = glyph_px.get();

			auto px_h = line_height();
			auto px_w = std::accumulate(glyphs, glyphs + len, unsigned{});

			::nana::paint::graphics canvas;
			canvas.make({ px_w, px_h });
			canvas.typeface(graph_.typeface());
			::nana::point canvas_text_pos;

			auto ent_pos = pos;
			const auto str_end = str + len;
			auto & entities = parser.entities();

			for (auto & ent : entities)
			{
				const wchar_t* ent_begin = nullptr;

				int ent_off = 0;
				if (str <= ent.begin && ent.begin < str_end)
				{
					ent_begin = ent.begin;
					ent_off = static_cast<int>(std::accumulate(glyphs, glyphs + (ent.begin - str), unsigned{}));
				}
				else if (ent.begin <= str && str < ent.end)
					ent_begin = str;

				if (ent_begin)
				{
					auto ent_end = (ent.end < str_end ? ent.end : str_end);
					auto ent_pixels = std::accumulate(glyphs + (ent_begin - str), glyphs + (ent_end - str), unsigned{});

					canvas.palette(false, ent.scheme->bgcolor.invisible() ? _m_bgcolor() : ent.scheme->bgcolor);
					canvas.palette(true, ent.scheme->fgcolor.invisible() ? fgcolor : ent.scheme->fgcolor);

					canvas.rectangle(true);

					ent_pos.x += ent_off;


					if (rtl)
					{
						//draw the whole text if it is a RTL text, because Arbic language is transformable.
						canvas.string({}, str, len);
					}
					else
					{
						canvas.string({}, ent_begin, ent_end - ent_begin);
						ent_off = 0;
					}
					graph_.bitblt(rectangle{ ent_pos, size{ ent_pixels, canvas.height() } }, canvas, point{ ent_off, 0 });
				}
			}
		}

		class text_editor::helper_pencil
		{
		public:
			helper_pencil(paint::graphics& graph, const text_editor& editor, const color_proxy& selection_fgcolor, const color_proxy& selection_bgcolor, keyword_parser& parser):
				graph_( graph ),
				editor_( editor ),
				parser_( parser ),
				selection_fgcolor_( selection_fgcolor ),
				selection_bgcolor_( selection_bgcolor ),
				line_px_( editor.line_height() )
			{}

			void write_selection(const point& text_pos, unsigned text_px, const wchar_t* text, std::size_t len)
			{
				graph_.palette(true, selection_fgcolor_.get_color());
				graph_.rectangle(::nana::rectangle{ text_pos, { text_px, line_px_ } }, true, selection_bgcolor_);
				graph_.string(text_pos, text, len);
			}

			void rtl_string(point strpos, const wchar_t* str, std::size_t len, std::size_t str_px, unsigned glyph_front, unsigned glyph_selected)
			{
				editor_._m_draw_parse_string(parser_, true, strpos, selection_fgcolor_.get_color(), str, len);

				//Draw selected part
				paint::graphics graph({ glyph_selected, line_px_ });
				graph.typeface(this->graph_.typeface());
				graph.rectangle(true, selection_bgcolor_.get_color());

				int sel_xpos = static_cast<int>(str_px - (glyph_front + glyph_selected));

				graph.palette(true, selection_fgcolor_.get_color());
				graph.string({ -sel_xpos, 0 }, str, len);
				graph_.bitblt(nana::rectangle(strpos.x + sel_xpos, strpos.y, glyph_selected, line_px_), graph);
			};
		private:
			paint::graphics& graph_;
			const text_editor& editor_;
			keyword_parser & parser_;
			const color_proxy & selection_fgcolor_;
			const color_proxy & selection_bgcolor_;
			unsigned line_px_;
		};

		void text_editor::_m_draw_string(int top, const ::nana::color& clr, const nana::upoint& text_coord, const std::wstring& text, bool if_mask) const
		{
			
			point text_draw_pos{ text_area_.area.x - points_.offset.x, top };
			const int text_right = text_area_.area.right();

			auto text_ptr = &text;

			std::wstring mask_str;
			if (if_mask && mask_char_)
			{
				mask_str.resize(text.size(), mask_char_);
				text_ptr = &mask_str;
			}

			const auto focused = API::is_focus_ready(window_);

			std::vector<unicode_bidi::entity> reordered;
			unicode_bidi{}.linestr(text_ptr->c_str(), text_ptr->size(), reordered);

			//Parse highlight keywords
			keyword_parser parser;
			parser.parse(*text_ptr, impl_->keywords);

			const auto line_h_pixels = line_height();

			helper_pencil pencil(graph_, *this, scheme_->selection_text, scheme_->selection, parser);
			

			graph_.palette(true, clr);
			graph_.palette(false, scheme_->selection.get_color());


			//Get the selection begin and end position of the current text.
			const wchar_t *sbegin = nullptr, *send = nullptr;

			nana::upoint a, b;
			if (get_selected_points(a, b))
			{
				if (a.y < text_coord.y && text_coord.y < b.y)
				{
					sbegin = text_ptr->c_str();
					send = sbegin + text_ptr->size();
				}
				else if ((a.y == b.y) && a.y == text_coord.y)
				{
					auto sbegin_pos = (std::max)(a.x, text_coord.x);
					auto send_pos = (std::min)(text_coord.x + static_cast<unsigned>(text_ptr->size()), b.x);

					if (sbegin_pos < send_pos)
					{
						sbegin = text_ptr->c_str() + (sbegin_pos - text_coord.x);
						send = text_ptr->c_str() + (send_pos - text_coord.x);
					}
				}
				else if (a.y == text_coord.y)
				{
					if (a.x < text_coord.x + text_ptr->size())
					{
						sbegin = text_ptr->c_str();
						if (text_coord.x < a.x)
							sbegin += (a.x - text_coord.x);

						send = text_ptr->c_str() + text_ptr->size();
					}
				}
				else if (b.y == text_coord.y)
				{
					if (text_coord.x < b.x)
					{
						sbegin = text_ptr->c_str();
						send = text_ptr->c_str() + (std::min)(b.x - text_coord.x, static_cast<unsigned>(text_ptr->size()));
					}
				}
			}

			//A text editor feature, it draws an extra block at end of line if the end of line is in range of selection.
			bool extra_space = false;

			const bool text_selected = (sbegin == text_ptr->c_str() && send == text_ptr->c_str() + text_ptr->size());
			//The text is not selected or the whole line text is selected
			if (!focused || (!sbegin || !send) || text_selected || !attributes_.enable_caret)
			{
				for (auto & ent : reordered)
				{
					std::size_t len = ent.end - ent.begin;
					unsigned str_w = graph_.text_extent_size(ent.begin, len).width;

					if ((text_draw_pos.x + static_cast<int>(str_w) > text_area_.area.x) && (text_draw_pos.x < text_right))
					{
						if (text_selected && focused)
							pencil.write_selection(text_draw_pos, str_w, ent.begin, len);
						else
							_m_draw_parse_string(parser, is_right_text(ent), text_draw_pos, clr, ent.begin, len);
					}
					text_draw_pos.x += static_cast<int>(str_w);
				}

				extra_space = text_selected;
			}
			else
			{
				for (auto & ent : reordered)
				{
					const auto len = ent.end - ent.begin;
					auto ent_px = graph_.text_extent_size(ent.begin, len).width;

					extra_space = false;

					//Only draw the text which is in the visual rectangle.
					if ((text_draw_pos.x + static_cast<int>(ent_px) > text_area_.area.x) && (text_draw_pos.x < text_right))
					{
						if (send <= ent.begin || ent.end <= sbegin)
						{
							//this string is not selected
							_m_draw_parse_string(parser, false, text_draw_pos, clr, ent.begin, len);
						}
						else if (sbegin <= ent.begin && ent.end <= send)
						{
							//this string is completed selected
							pencil.write_selection(text_draw_pos, ent_px, ent.begin, len);
							extra_space = true;
						}
						else
						{
							//a part of string is selected

							//get the selected range of this string.
							auto ent_sbegin = (std::max)(sbegin, ent.begin);
							auto ent_send = (std::min)(send, ent.end);

							unsigned select_pos = static_cast<unsigned>(ent_sbegin != ent.begin ? ent_sbegin - ent.begin : 0);
							unsigned select_len = static_cast<unsigned>(ent_send - ent_sbegin);

							std::unique_ptr<unsigned[]> pxbuf{ new unsigned[len] };
							graph_.glyph_pixels(ent.begin, len, pxbuf.get());

							auto head_px = std::accumulate(pxbuf.get(), pxbuf.get() + select_pos, unsigned{});
							auto select_px = std::accumulate(pxbuf.get() + select_pos, pxbuf.get() + select_pos + select_len, unsigned{});

							graph_.palette(true, clr);
							if (is_right_text(ent))
							{	//RTL
								pencil.rtl_string(text_draw_pos, ent.begin, len, ent_px, head_px, select_px);
							}
							else
							{	//LTR
								_m_draw_parse_string(parser, false, text_draw_pos, clr, ent.begin, select_pos);

								auto part_pos = text_draw_pos;
								part_pos.x += static_cast<int>(head_px);

								pencil.write_selection(part_pos, select_px, ent.begin + select_pos, select_len);

								if (ent_send < ent.end)
								{
									part_pos.x += static_cast<int>(select_px);
									_m_draw_parse_string(parser, false, part_pos, clr, ent_send, ent.end - ent_send);
								}
							}

							extra_space = (select_pos + select_len == text_ptr->size());
						}
					}
					text_draw_pos.x += static_cast<int>(ent_px);
				}//end for
			}

			//extra_space is true if the end of line is selected
			if (extra_space)
			{
				//draw the extra space if end of line is not equal to the second selection position.
				auto pos = text_coord.x + text_ptr->size();
				if (b.x != pos || text_coord.y != b.y)
				{
					auto whitespace_w = graph_.text_extent_size(L" ", 1).width;
					graph_.rectangle(::nana::rectangle{ text_draw_pos, { whitespace_w, line_h_pixels } }, true);
				}
			}
		}

		bool text_editor::_m_update_caret_line(std::size_t secondary_before)
		{
			if (false == impl_->capacities.behavior->adjust_caret_into_screen())
			{
				if (impl_->capacities.behavior->caret_to_screen(points_.caret).x < _m_text_area().right())
				{
					impl_->capacities.behavior->update_line(points_.caret.y, secondary_before);
					return false;
				}
			}
			return true;
		}

		void text_editor::_m_offset_y(int y)
		{
			points_.offset.y = y;
		}

		unsigned text_editor::_m_char_by_pixels(const unicode_bidi::entity& ent, unsigned pos)
		{
			auto len = static_cast<std::size_t>(ent.end - ent.begin);

			std::unique_ptr<unsigned[]> pxbuf(new unsigned[len]);
			if (graph_.glyph_pixels(ent.begin, len, pxbuf.get()))
			{
				const auto px_end = pxbuf.get() + len;

				if (is_right_text(ent))
				{
					auto total_px = std::accumulate(pxbuf.get(), px_end, unsigned{});

					for (auto p = pxbuf.get(); p != px_end; ++p)
					{
						auto chpos = total_px - *p;
						if ((chpos <= pos) && (pos < total_px))
						{
							if ((*p < 2) || (pos <= chpos + (*p >> 1)))
								return static_cast<unsigned>(p - pxbuf.get()) + 1;

							return static_cast<unsigned>(p - pxbuf.get());
						}
						total_px = chpos;
					}
				}
				else
				{
					for (auto p = pxbuf.get(); p != px_end; ++p)
					{
						if (pos < *p)
						{
							if ((*p > 1) && (pos >(*p >> 1)))
								return static_cast<unsigned>(p - pxbuf.get()) + 1;
							return static_cast<unsigned>(p - pxbuf.get());
						}
						pos -= *p;
					}
				}
			}

			return 0;
		}

		unsigned text_editor::_m_pixels_by_char(const std::wstring& lnstr, std::size_t pos) const
		{
			if (pos > lnstr.size())
				return 0;

			std::vector<unicode_bidi::entity> reordered;
			unicode_bidi{}.linestr(lnstr.c_str(), lnstr.size(), reordered);

			auto target = lnstr.c_str() + pos;

			unsigned text_w = 0;
			for (auto & ent : reordered)
			{
				std::size_t len = ent.end - ent.begin;
				if (ent.begin <= target && target <= ent.end)
				{
					if (is_right_text(ent))
					{
						//Characters of some bidi languages may transform in a word.
						//RTL
						std::unique_ptr<unsigned[]> pxbuf(new unsigned[len]);
						graph_.glyph_pixels(ent.begin, len, pxbuf.get());
						return std::accumulate(pxbuf.get() + (target - ent.begin), pxbuf.get() + len, text_w);
					}
					//LTR
					return text_w + _m_text_extent_size(ent.begin, target - ent.begin).width;
				}
				else
					text_w += _m_text_extent_size(ent.begin, len).width;
			}
			return text_w;
		}

		//end class text_editor
	}//end namespace skeletons
}//end namespace widgets
}//end namespace nana