<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Мой DELPHI - Программирование &#187; Memo</title>
	<atom:link href="http://www.mydelphi.info/code/tag/memo/feed" rel="self" type="application/rss+xml" />
	<link>http://www.mydelphi.info</link>
	<description>Всё для программера</description>
	<lastBuildDate>Mon, 09 Jun 2008 16:55:52 +0000</lastBuildDate>
	<generator>http://wordpress.org/?v=2.8</generator>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<item>
		<title>Как преобразовать цвета в строку &#8211; название цвета  VCL?</title>
		<link>http://www.mydelphi.info/code/143</link>
		<comments>http://www.mydelphi.info/code/143#comments</comments>
		<pubDate>Mon, 09 Jun 2008 15:40:57 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Button]]></category>
		<category><![CDATA[IntToStr]]></category>
		<category><![CDATA[Memo]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[Sender]]></category>
		<category><![CDATA[StringToColor]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=143</guid>
		<description><![CDATA[Вопрос:
Как преобразовать цвета в строку - название цвета  VCL?

Ответ:
Модуль graphics.pas содержит
функцию ColorToString() которое преобразует допустимое значение TColor в его
строковое представление используя либо константу-название цвета (по возможности)
либо шестнадцатиричную строку. Обратная функция &#8211; StringToColor()
Пример:
procedure TForm1.Button1Click(Sender: TObject);
begin
	Memo1.Lines.Add(ColorToString(clRed));
	Memo1.Lines.Add(IntToStr(StringToColor('clRed')));
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/143/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как запрограммировать undo?</title>
		<link>http://www.mydelphi.info/code/113</link>
		<comments>http://www.mydelphi.info/code/113#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:15:56 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[CANUNDO]]></category>
		<category><![CDATA[Memo]]></category>
		<category><![CDATA[Perform]]></category>
		<category><![CDATA[Redo]]></category>
		<category><![CDATA[status]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=113</guid>
		<description><![CDATA[Вопрос:
Как запрограммировать undo?

Ответ:См. пример

Memo1.Perform(EM_UNDO, 0, 0);

Если Вы хотите узнать, возможно ли выполнить операцию "Undo", проверьте "Undo status":

If Memo1.Perform(EM_CANUNDO, 0, 0) &#60;&#62; 0 then
begin
	{Undo is possible}
end;

Для выполнения "Redo" выполните "Undo" еще раз.

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/113/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как в компоненте TMemo перехватить нажатие Ctrl-V</title>
		<link>http://www.mydelphi.info/code/111</link>
		<comments>http://www.mydelphi.info/code/111#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:14:15 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[ClipBrd]]></category>
		<category><![CDATA[KeyDown]]></category>
		<category><![CDATA[Memo]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[SelText]]></category>
		<category><![CDATA[ssCtrl]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TObject]]></category>
		<category><![CDATA[TShiftState]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=111</guid>
		<description><![CDATA[Вопрос:
Как в компоненте TMemo перехватить нажатие Ctrl-V и вставить специальный текст не из буфера обмена
(clipboard)?
Ответ:
См. пример.
Пример:

uses ClipBrd;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
	if ((Key = ord('V')) and (ssCtrl in Shift)) then
		begin
			if Clipboard.HasFormat(CF_TEXT) then
				ClipBoard.Clear;
			Memo1.SelText := 'Delphi is RAD!';
			key := 0;
		end;
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/111/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как извлечь Red, Green, и Blue компонент из определенного цвета?</title>
		<link>http://www.mydelphi.info/code/95</link>
		<comments>http://www.mydelphi.info/code/95#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:00:35 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Button]]></category>
		<category><![CDATA[Canvas]]></category>
		<category><![CDATA[GetBValue]]></category>
		<category><![CDATA[GetRValue]]></category>
		<category><![CDATA[IntToStr]]></category>
		<category><![CDATA[Memo]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=95</guid>
		<description><![CDATA[Вопрос:
Как извлечь Red, Green, и Blue компонент из определенного цвета?

Ответ:

Используйте функции Window API Get RValue(), GetGValue(), и GetBValue().

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
	Form1.Canvas.Pen.Color := clRed;
	Memo1.Lines.Add('Red := ' + IntToStr(GetRValue(Form1.Canvas.Pen.Color)));
	Memo1.Lines.Add('Red := ' + IntToStr(GetGValue(Form1.Canvas.Pen.Color)));
	Memo1.Lines.Add('Blue:= ' + IntToStr(GetBValue(Form1.Canvas.Pen.Color)));
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/95/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как сделать отступ в Memo?</title>
		<link>http://www.mydelphi.info/code/66</link>
		<comments>http://www.mydelphi.info/code/66#comments</comments>
		<pubDate>Sun, 08 Jun 2008 11:12:47 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[GETRECT]]></category>
		<category><![CDATA[LongInt]]></category>
		<category><![CDATA[Memo]]></category>
		<category><![CDATA[SendMessage]]></category>
		<category><![CDATA[SETRECT]]></category>
		<category><![CDATA[TRect]]></category>
		<category><![CDATA[var]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=66</guid>
		<description><![CDATA[Как сделать отступ в Memo?
С помощью API-функции SendMessage можно задать поля в Memo-компоненте. Если
необходимо, например, сделать отступ в 20 пикселей слева то можно это сделать
следующим образом:

var Rect: TRect;
begin
  SendMessage( Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect));
  Rect.Left:= 20;
  SendMessage(Memo1.Handle, EM_SETRECT, 0, LongInt(@Rect));
  Memo1.Refresh;
end;
]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/66/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
