<?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; Советы</title>
	<atom:link href="http://www.mydelphi.info/code/category/advice/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>Как управлять табуляцией в Memo-компоненте?</title>
		<link>http://www.mydelphi.info/code/69</link>
		<comments>http://www.mydelphi.info/code/69#comments</comments>
		<pubDate>Sun, 08 Jun 2008 11:15:56 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[API]]></category>
		<category><![CDATA[array]]></category>
		<category><![CDATA[FormCreate]]></category>
		<category><![CDATA[SetTabStops]]></category>
		<category><![CDATA[TObject]]></category>
		<category><![CDATA[WantTabs]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=69</guid>
		<description><![CDATA[Как управлять табуляцией в Memo-компоненте?
Для этого необходимо поставить свойство &#8220;WantTabs&#8221; в &#8220;True&#8221;.
Теперь для управления шириной табуляции необходимо вызвать API-функцию SendMessage.
В последнем параметре функция ожидает указатель на массив с элементами типа
Word, в котором указаны позиции в единицах экрана. Для примера вызов функции
с указанием двух позиций табуляции:
procedure TForm1.FormCreate(Sender:TObject);
const
  Tabs: array[0..1] of Word = (4, 8);
begin
  [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/69/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как можно опросить различные параметры системы?</title>
		<link>http://www.mydelphi.info/code/68</link>
		<comments>http://www.mydelphi.info/code/68#comments</comments>
		<pubDate>Sun, 08 Jun 2008 11:14:44 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[GetDeviceCaps]]></category>
		<category><![CDATA[GetFreeSpace]]></category>
		<category><![CDATA[GetSystemInfo]]></category>
		<category><![CDATA[GetSystemMetrics]]></category>
		<category><![CDATA[GetWinFlags]]></category>
		<category><![CDATA[GFSR]]></category>
		<category><![CDATA[Variable]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=68</guid>
		<description><![CDATA[Как можно опросить различные параметры системы, например количество
свободных ресурсов?
Для получения параметров системы существует множество различных API-функций.
Для того, чтобы узнать количество свободных ресурсов, &#8211; достаточно вызова
следующей API-функции:

Variable := GetFreeSystemResources(GFSR_SYSTEMRESOURCES);

Другие функции опроса параметров системы (описаны в системе помощи):
GetWinFlags, SystemParametersInfo, GetDeviceCaps и GetFreeSpace.
Для 32-bit систем необходимо вызывать GetSystemMetrics, GetSystemInfo
и SystemParametersInfo.
]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/68/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Системные сообщения (сокращения)</title>
		<link>http://www.mydelphi.info/code/67</link>
		<comments>http://www.mydelphi.info/code/67#comments</comments>
		<pubDate>Sun, 08 Jun 2008 11:13:44 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[ComboBoxStyle]]></category>
		<category><![CDATA[EditStyle]]></category>
		<category><![CDATA[MessageButton]]></category>
		<category><![CDATA[ScrollBar]]></category>
		<category><![CDATA[SystemMetrics]]></category>
		<category><![CDATA[SystemParametersInfo]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=67</guid>
		<description><![CDATA[Системные сообщения (сокращения)
BM  - ButtonMode
BN  - Button
BS  - ButtonStyle
CB  - ComboBox
CBN - Combo Box Notifications
CBS - ComboBoxStyle
EM  - EditMessage
ES  - EditStyle
FM  - FileManager
LB  - ListBox
LBN - ListBox Notifications
LBS - ListBoxStyle
MB  - MessageButton (Typen)
PS  - PenStyle
SB  - ScrollBar
SBS - ScrollBarStyle
SM  - SystemMetrics
SPI - SystemParametersInfo
WM [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/67/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>
		<item>
		<title>Как создать и вызвать модальную форму?</title>
		<link>http://www.mydelphi.info/code/64</link>
		<comments>http://www.mydelphi.info/code/64#comments</comments>
		<pubDate>Sun, 08 Jun 2008 11:10:41 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[Delphi]]></category>
		<category><![CDATA[Free]]></category>
		<category><![CDATA[ShowModal]]></category>
		<category><![CDATA[TModalForm]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=64</guid>
		<description><![CDATA[Как создать и вызвать модальную форму?
Модальные формы довольно часто выгоднее (с точки зрения использования памяти)
временно создавать, и после того, как форма была вызвана, отработан и закрыт,
- освободить его из памяти. В противном случае Delphi-приложение может быть
настоящим &#8220;пожирателем памяти&#8221;. Примерно так может выглядеть вызов такой
формы:

ModalForm := TModalForm.Create(Self);
try
  ModalForm.ShowModal;
finally 
  ModalForm.Free;
end;
]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/64/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
