<?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; LongInt</title>
	<atom:link href="http://www.mydelphi.info/code/tag/longint/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>Как узнать размеры TComboBox с показанным выпадающим списком до показа списка?</title>
		<link>http://www.mydelphi.info/code/156</link>
		<comments>http://www.mydelphi.info/code/156#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:11:44 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Bottom]]></category>
		<category><![CDATA[ComboBox]]></category>
		<category><![CDATA[GETDROPPEDCONTROLRECT]]></category>
		<category><![CDATA[LongInt]]></category>
		<category><![CDATA[Rectangle]]></category>
		<category><![CDATA[SHOWDROPDOWN]]></category>
		<category><![CDATA[TComboBox]]></category>
		<category><![CDATA[TPOINT]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=156</guid>
		<description><![CDATA[Вопрос:
Как узнать размеры TComboBox с показанным выпадающим списком до показа списка?

Ответ:
На событии FormShow пошлите
сообщение CB_SHOWDROPDOWN в ComboBox дважды &#8211; один раз чтобы заставить список
выпасть, второй &#8211; чтобы убрать его. Затем пошлите сообщение CB_GETDROPPEDCONTROLRECT,
передав в качестве параметра адрес TRect. TRect будет содержать экранные кординаты
прямоугольника описывающего ComboBox вместе с выпавшим списком. Затем Вы можете
вызвать ScreenToClient чтобы преобразовать [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/156/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>Поля в Memo-компоненте</title>
		<link>http://www.mydelphi.info/code/62</link>
		<comments>http://www.mydelphi.info/code/62#comments</comments>
		<pubDate>Sun, 08 Jun 2008 11:08:26 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[GETRECT]]></category>
		<category><![CDATA[LongInt]]></category>
		<category><![CDATA[SendMessage]]></category>
		<category><![CDATA[SETRECT]]></category>
		<category><![CDATA[var]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=62</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/62/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как копировать и вставлять Bitmap через буфер обмена?</title>
		<link>http://www.mydelphi.info/code/41</link>
		<comments>http://www.mydelphi.info/code/41#comments</comments>
		<pubDate>Sun, 08 Jun 2008 10:26:48 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[CopyClipToBuf]]></category>
		<category><![CDATA[CreateCompatibleBitmap]]></category>
		<category><![CDATA[CreateCompatibleDC]]></category>
		<category><![CDATA[DeleteObjects]]></category>
		<category><![CDATA[Integer]]></category>
		<category><![CDATA[LongInt]]></category>
		<category><![CDATA[var]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=41</guid>
		<description><![CDATA[Как копировать и вставлять Bitmap через буфер обмена?
Некоторые функции для копирования и вставки Bitmap-объектов через буфер
обмена.

function CopyClipToBuf(DC: HDC; Left, Top,
           Width, Height: Integer;  Rop: LongInt;
           var CopyDC: HDC;
       [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/41/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как установить количество цветов в системной палитре?</title>
		<link>http://www.mydelphi.info/code/39</link>
		<comments>http://www.mydelphi.info/code/39#comments</comments>
		<pubDate>Sun, 08 Jun 2008 10:25:01 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[CreateDC]]></category>
		<category><![CDATA[DeleteDC]]></category>
		<category><![CDATA[GetDeviceCaps]]></category>
		<category><![CDATA[GetNumColors]]></category>
		<category><![CDATA[Integer]]></category>
		<category><![CDATA[LongInt]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=39</guid>
		<description><![CDATA[Как установить количество цветов в системной палитре?
Функция GetNumColors возвращает количество цветов для актуально выбранного
разрешения экрана.
function GetNumColors: LongInt;
var
   BPP: Integer;
   DC: HDC;
begin
   DC := CreateDC('DISPLAY', nil, nil, nil);
   if DC &#60;&#62; 0 then begin
      try
	 BPP := GetDeviceCaps(DC, BITPIXEL) * GetDeviceCaps(DC, PLANES);
  [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/39/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
