<?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; FillChar</title>
	<atom:link href="http://www.mydelphi.info/code/tag/fillchar/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>Функция keybd_event() принимает значения до 244</title>
		<link>http://www.mydelphi.info/code/187</link>
		<comments>http://www.mydelphi.info/code/187#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:38:01 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Application]]></category>
		<category><![CDATA[Button]]></category>
		<category><![CDATA[FillChar]]></category>
		<category><![CDATA[focus]]></category>
		<category><![CDATA[KEYUP]]></category>
		<category><![CDATA[ProcessMessages]]></category>
		<category><![CDATA[RIGHT]]></category>
		<category><![CDATA[ScanCode]]></category>
		<category><![CDATA[SendMessage]]></category>
		<category><![CDATA[Windows]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=187</guid>
		<description><![CDATA[Вопрос:
Функция keybd_event() принимает значения до 244 - как мне отправить нажатие
клавиши с кодом #255 в элемент управления Windows?
Ответ:
Это может понадобится для иностранных языков или для специальных символов. (например,
в русских шрифтах символ с кодом #255 - я прописное). Приведенный в примере метод,
не стоит использовать в случае если символ может быть передан обычным способом
(функцией keybd_event()).

procedure TForm1.Button1Click(Sender: TObject);
var
	KeyData [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/187/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>При выполнении диалога FontDialog со свойством Device равным fdBoth or fdPrinter</title>
		<link>http://www.mydelphi.info/code/140</link>
		<comments>http://www.mydelphi.info/code/140#comments</comments>
		<pubDate>Mon, 09 Jun 2008 15:38:48 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[CommDlg]]></category>
		<category><![CDATA[CreateFontIndirect]]></category>
		<category><![CDATA[FillChar]]></category>
		<category><![CDATA[FontDialog]]></category>
		<category><![CDATA[INITTOLOGFONTSTRUCT]]></category>
		<category><![CDATA[iPointSize]]></category>
		<category><![CDATA[Printers]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[SCALABLEONLY]]></category>
		<category><![CDATA[TFont]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=140</guid>
		<description><![CDATA[Вопрос:
При выполнении диалога FontDialog со свойством Device равным fdBoth or fdPrinter, появляется ошибка
&#8220;There are no fonts installed&#8221;.
Ответ:
Эти установки должны показать
шрифты совместимые либо с принтером либо с экраном. В примере диалог Windows
ChooseFont вызывается напрямую чтобы показать список шрифтов, совместимых одновременно
и с экраном и с принтером.
Пример:
uses Printers, CommDlg;

procedure TForm1.Button1Click(Sender: TObject);
var
	cf : TChooseFont;
	lf : TLogFont;
	tf : TFont;
begin
	if PrintDialog1.Execute [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/140/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как узнать содержание активной записи в БД?</title>
		<link>http://www.mydelphi.info/code/43</link>
		<comments>http://www.mydelphi.info/code/43#comments</comments>
		<pubDate>Sun, 08 Jun 2008 10:28:42 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[DataSource]]></category>
		<category><![CDATA[DBILockType]]></category>
		<category><![CDATA[DBIResult]]></category>
		<category><![CDATA[FillChar]]></category>
		<category><![CDATA[FreeBookmark]]></category>
		<category><![CDATA[PChar]]></category>
		<category><![CDATA[Result]]></category>
		<category><![CDATA[TBookmark]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=43</guid>
		<description><![CDATA[Как узнать содержание активной записи в БД?
Следующая функция возвращает в виде указателя на строку содержание активной
записи в БД.

function TBDEDirect.GetCurRecord(Lock: DBILockType): PChar;
 

var

  Res: DBIResult;

  RecSize: Word;

  RecBuf: PChar;

  Bookmark: TBookmark;

begin
  Result := StrNew('');
  if CheckDatabase then
    begin
      RecSize := GetPhysicalRecSize;
   [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/43/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

