<?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; TRect</title>
	<atom:link href="http://www.mydelphi.info/code/tag/trect/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>Как сделать прямоугольник для выделения части картинки для редактирования?</title>
		<link>http://www.mydelphi.info/code/171</link>
		<comments>http://www.mydelphi.info/code/171#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:24:19 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Capturing]]></category>
		<category><![CDATA[DrawFocusRect]]></category>
		<category><![CDATA[FormMouseUp]]></category>
		<category><![CDATA[implementation]]></category>
		<category><![CDATA[Integer]]></category>
		<category><![CDATA[MakeRect]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[Sender]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TRect]]></category>
		<category><![CDATA[TShiftState]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=171</guid>
		<description><![CDATA[Вопрос:
Как сделать прямоугольник для выделения части картинки для редактирования?

Ответ:
Самый простой способ -
воспользоваться функцией Windows API DrawFocusRect. Функция DrawFocusRect использует
операцию XOR при рисовании &#8211; таким образом вывод прямоугольника дважды с одними
и теми же координатами стирает прямоугольник, и прямоугольник всегда будет виден,
на фоне какого бы цвета он не выводился.
Пример:
type
	TForm1 = class(TForm)
		procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
				Shift: TShiftState; X, [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/171/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как показывать нестандартный встроенный редактор (inplace editor)</title>
		<link>http://www.mydelphi.info/code/121</link>
		<comments>http://www.mydelphi.info/code/121#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:22:58 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[CellRect]]></category>
		<category><![CDATA[ComboBox]]></category>
		<category><![CDATA[DefaultRowHeight]]></category>
		<category><![CDATA[FormCreate]]></category>
		<category><![CDATA[R.Bottom]]></category>
		<category><![CDATA[SelectCell]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TRect]]></category>
		<category><![CDATA[Width]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=121</guid>
		<description><![CDATA[Вопрос:
Как показывать нестандартный встроенный редактор (inplace editor) в ячейке stringgrid (например combobox).
Ответ:
См. пример
Пример:

procedure TForm1.FormCreate(Sender: TObject);
begin
	{Высоту combobox'а не изменишь, так что вместо combobox'а
				будем изменять высоту строки grid'а !}
	StringGrid1.DefaultRowHeight := ComboBox1.Height;
	{Спрятать combobox}
	ComboBox1.Visible := False;
	ComboBox1.Items.Add('Delphi Kingdom');
	ComboBox1.Items.Add('Королевство Дельфи');
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
	{Перебросим выбранное в значение из ComboBox в grid}
	StringGrid1.Cells[StringGrid1.Col,
	StringGrid1.Row] :=ComboBox1.Items[ComboBox1.ItemIndex];
	ComboBox1.Visible := False;
	StringGrid1.SetFocus;
end;

procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
	{Перебросим выбранное в значение из ComboBox в grid}
	StringGrid1.Cells[StringGrid1.Col,
	StringGrid1.Row] [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/121/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Почему при изменении цвета шрифта в StatusBar&#8217;s он (шрифт) не меняется?</title>
		<link>http://www.mydelphi.info/code/115</link>
		<comments>http://www.mydelphi.info/code/115#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:17:50 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[DrawPanel]]></category>
		<category><![CDATA[OwnerDraw]]></category>
		<category><![CDATA[status]]></category>
		<category><![CDATA[StatusBar]]></category>
		<category><![CDATA[TRect]]></category>
		<category><![CDATA[TStatusBar]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=115</guid>
		<description><![CDATA[Вопрос:
Почему при изменении цвета шрифта в StatusBar's он (шрифт) не меняется?

Ответ:
Status bar (строка состояния)
- стандартный элемент управления Windows и цвет его шрифта задается через Control
Panel (константа clBtnText). Этот цвет по умолчанию черный и может меняться
при выборе пользователем той или иной цветовой схемы. У компонента ТStatusBar
и его панелей есть возможность &#8220;owner-draw&#8221; &#8211; программной перерисовки, которая
позволяет выводить [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/115/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>
