<?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; Integer</title>
	<atom:link href="http://www.mydelphi.info/code/tag/integer/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.9.2</generator>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<item>
		<title>Как запретить изменение размера моего компонента в design-time?</title>
		<link>http://www.mydelphi.info/code/185</link>
		<comments>http://www.mydelphi.info/code/185#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:36:24 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[ALeft]]></category>
		<category><![CDATA[ATop]]></category>
		<category><![CDATA[AWidth]]></category>
		<category><![CDATA[componentstate]]></category>
		<category><![CDATA[Integer]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[SetBounds]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=185</guid>
		<description><![CDATA[Вопрос:
Как запретить изменение размера моего компонента в design-time?
Ответ:
Поместите в конструктор компонента код, устанавливающий размеры по умолчанию.
Переопределите метод SetBounds и проверяйте в нем "componentstate". Если компонет
находится режиме "design-time" (csDesigning in ComponentState) просто передавайте
значения ширины и высоты (width и heights) компонента по умолчанию (в нашем
примере 50) методу класса-предка

Пример:

procedure TVu.SetBounds(ALeft : integer; ATop : integer; AWidth : integer;
			AHeight [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/185/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>На некоторых laptop компьютерах может не быть флоппи дисковода</title>
		<link>http://www.mydelphi.info/code/179</link>
		<comments>http://www.mydelphi.info/code/179#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:31:17 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[DriveComboBox]]></category>
		<category><![CDATA[FormCreate]]></category>
		<category><![CDATA[GetDir]]></category>
		<category><![CDATA[Integer]]></category>
		<category><![CDATA[OldDirectory]]></category>
		<category><![CDATA[OldErrorMode]]></category>
		<category><![CDATA[SetErrorMode]]></category>
		<category><![CDATA[String]]></category>
		<category><![CDATA[TDriveComboBox]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=179</guid>
		<description><![CDATA[Вопрос:
На некоторых laptop компьютерах может не быть флоппи дисковода. Можно ли удалять
из списка TDriveComboBox диски которые отключены?
Ответ:
В примере TDriveComboBox не показывает дисководы, которые не готовы. (not ready).
Учтите что на многих компьютерах будет ощутимая задержка при поверке plug&#38;play
флоппи дисковода.

Пример:

procedure TForm1.FormCreate(Sender: TObject);
var
	i : integer;
	OldErrorMode : Word;
	OldDirectory : string;
begin
	OldErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
	GetDir(0, OldDirectory);
	i := 0;
	while i &#60;= DriveComboBox1.Items.Count - [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/179/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<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>Как перемещать компонент мышкой во время работы программы &#8220;runtime&#8221;?</title>
		<link>http://www.mydelphi.info/code/163</link>
		<comments>http://www.mydelphi.info/code/163#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:17:41 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Capturing]]></category>
		<category><![CDATA[implementation]]></category>
		<category><![CDATA[Integer]]></category>
		<category><![CDATA[MouseDownSpot]]></category>
		<category><![CDATA[OnMouseDown]]></category>
		<category><![CDATA[OnMouseMove]]></category>
		<category><![CDATA[OnMouseUp]]></category>
		<category><![CDATA[SetCapture]]></category>
		<category><![CDATA[TMouseButton]]></category>
		<category><![CDATA[TShiftState]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=163</guid>
		<description><![CDATA[Вопрос:
  Как перемещать компонент мышкой во время работы программы "runtime"?

Ответ:
Перехватить событие OnMouseDown,
запомнить x и y координты курсора мыши. Отслеживать движение мыши по событию
OnMouseMove и перемещать компонент вслед за курсором мыши до тех пор пока не
произойдет событие OnMouseUp. В примере показано перемещение компонента TButton.
Перемещение начинается, когда пользователь &#8220;берет&#8221; TButton мышью, удерживая
нажатой клавишу &#8220;Сontrol&#8221;.
Пример:
type
	TForm1 = class(TForm)
		Button1: [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/163/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Создание PolyPolygon используя массив точек?</title>
		<link>http://www.mydelphi.info/code/119</link>
		<comments>http://www.mydelphi.info/code/119#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:21:24 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Canvas]]></category>
		<category><![CDATA[Integer]]></category>
		<category><![CDATA[Point]]></category>
		<category><![CDATA[ptArray]]></category>
		<category><![CDATA[PtCounts]]></category>
		<category><![CDATA[Sender]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TObject]]></category>
		<category><![CDATA[TPOINT]]></category>
		<category><![CDATA[Windows]]></category>

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

Ответ:
Polygon &#8211; метод компонента
TCanvas получает в качестве параметра динамический массив точек. Функция PolyPolygon()
из Windows GDI получает указатель на массив точек.
Пример:
procedure TForm1.Button1Click(Sender: TObject);
var
	ptArray : array[0..9] of TPOINT;
	PtCounts : array[0..1] of integer;
begin
	PtArray[0] := Point(0, 0);
	PtArray[1] := Point(0, 100);
	PtArray[2] := Point(100, 100);
	PtArray[3] := Point(100, 0);
	PtArray[4] := Point(0, 0);
	PtCounts[0] := 5;
	PtArray[5] := Point(25, 25);
	PtArray[6] := [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/119/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

