<?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; Boolean</title>
	<atom:link href="http://www.mydelphi.info/code/tag/boolean/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>Как определить нажаты ли клавиши Shift, Alt, or Ctrl в какой-либо момент времени?</title>
		<link>http://www.mydelphi.info/code/135</link>
		<comments>http://www.mydelphi.info/code/135#comments</comments>
		<pubDate>Mon, 09 Jun 2008 15:34:46 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Boolean]]></category>
		<category><![CDATA[Caption]]></category>
		<category><![CDATA[Form]]></category>
		<category><![CDATA[function]]></category>
		<category><![CDATA[GetKeyboardState]]></category>
		<category><![CDATA[MenuItem]]></category>
		<category><![CDATA[TKeyboardState]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=135</guid>
		<description><![CDATA[Вопрос:
Как определить нажаты ли клавиши Shift, Alt, or Ctrl в какой-либо момент времени?

Ответ:
В приведенном примере
показано как определить нажата ли клавиша Shift при выборе строчки меню. Пример
также содержит функции проверки состояния клавиш Alt, Ctrl.
Пример:
function CtrlDown : Boolean;
var
	State : TKeyboardState;
begin
	GetKeyboardState(State);
	Result := ((State[vk_Control] And 128) &#60;&#62; 0);
end;

function ShiftDown : Boolean;
var
	State : TKeyboardState;
begin
	GetKeyboardState(State);
	Result := ((State[vk_Shift] and 128) &#60;&#62; 0);
end;

function [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/135/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как выполнить какой-то процесс тогда, когда пользователь не работает с моим приложением?</title>
		<link>http://www.mydelphi.info/code/129</link>
		<comments>http://www.mydelphi.info/code/129#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:29:42 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Application]]></category>
		<category><![CDATA[Boolean]]></category>
		<category><![CDATA[False]]></category>
		<category><![CDATA[IdleEventHandler]]></category>
		<category><![CDATA[OnCreate]]></category>
		<category><![CDATA[OnIdle]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=129</guid>
		<description><![CDATA[Вопрос:
Как выполнить какой-то процесс тогда, когда пользователь не работает с моим приложением?

Ответ:
Создайте процедуру, которая будет вызываться при событии Application.OnIdle.

Обьявим процедуру:
{Private declarations}
procedure IdleEventHandler(Sender: TObject; var Done: Boolean);

В разделе implementation опишем поцедуру:

procedure TForm1.IdleEventHandler(Sender: TObject; var Done: Boolean);
begin
	{Do a small bit of work here}
	Done := false;
end;

В методе Form'ы OnCreate - укажем что наша процедура вызывается на событии
Application.OnIdle.

Application.OnIdle := [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/129/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как экспортировать таблицу базы данных в ASCII-файл?</title>
		<link>http://www.mydelphi.info/code/34</link>
		<comments>http://www.mydelphi.info/code/34#comments</comments>
		<pubDate>Sun, 08 Jun 2008 10:19:29 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[ASCII-Fiels]]></category>
		<category><![CDATA[Boolean]]></category>
		<category><![CDATA[FieldName]]></category>
		<category><![CDATA[Integer]]></category>
		<category><![CDATA[TextFile]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=34</guid>
		<description><![CDATA[Как экспортировать таблицу базы данных в ASCII-файл?

procedure TMyTable.ExportToASCII;

var

  I: Integer;

  Dlg: TSaveDialog;

  ASCIIFile: TextFile;

  Res: Boolean;

begin
  if Active then
    if (FieldCount &#62; 0) and (RecordCount &#62; 0) then
      begin
        Dlg := TSaveDialog.Create(Application);
    [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/34/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Урок 26: Новые концепции ООП в Object Pascal</title>
		<link>http://www.mydelphi.info/code/28</link>
		<comments>http://www.mydelphi.info/code/28#comments</comments>
		<pubDate>Sun, 08 Jun 2008 10:04:44 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Уроки Delphi]]></category>
		<category><![CDATA[AClass]]></category>
		<category><![CDATA[asm]]></category>
		<category><![CDATA[Boolean]]></category>
		<category><![CDATA[Borland]]></category>
		<category><![CDATA[Pascal]]></category>
		<category><![CDATA[RunTime]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=28</guid>
		<description><![CDATA[Урок 26: Новые концепции ООП в Object Pascal

В языке Object Pascal, используемом
в Delphi, произошел ряд давно ожидаемых программистами изменений, по сравнению
с последней версией Borland Pascal. Перечислим, основные из них, позволившие
назвать объектную модель Object Pascal новой объектной моделью:

 изменения в синтаксисе объявления
и использования объектов
 введение функций классов
 введение методов классов
 изменения в организации определений
и вызовов методов
 [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/28/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
