<?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; TextOut</title>
	<atom:link href="http://www.mydelphi.info/code/tag/textout/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>Вместо печати графики я хочу использовать резидентный шрифт принтера. Как?</title>
		<link>http://www.mydelphi.info/code/150</link>
		<comments>http://www.mydelphi.info/code/150#comments</comments>
		<pubDate>Mon, 09 Jun 2008 15:57:42 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Canvas]]></category>
		<category><![CDATA[Click]]></category>
		<category><![CDATA[EndDoc]]></category>
		<category><![CDATA[GetStockObject]]></category>
		<category><![CDATA[Printers]]></category>
		<category><![CDATA[Sender]]></category>
		<category><![CDATA[TextOut]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TTextMetric]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=150</guid>
		<description><![CDATA[Вопрос:
Вместо печати графики я хочу использовать резидентный шрифт принтера. Как?

Ответ:
Используте функцию Windows
API &#8211; GetStockObject() чтобы получить дескриптор (handle) шрифта по умолчанию
устройства (DEVICE_DEFAULT_FONT) и передайте его Printer.Font.Handle.
Пример:
uses Printers;

procedure TForm1.Button1Click(Sender: TObject);
var
	tm : TTextMetric;
	i : integer;
begin
	if PrintDialog1.Execute then
	begin
		Printer.BeginDoc;
		Printer.Canvas.Font.Handle := GetStockObject(DEVICE_DEFAULT_FONT);
		GetTextMetrics(Printer.Canvas.Handle, tm);
		for i := 1 to 10 do
		begin
			Printer.Canvas.TextOut(100,i * tm.tmHeight +
				tm.tmExternalLeading,'Test');
		end;
		Printer.EndDoc;
	end;
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/150/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Почему при изменении цвета букв StatusBar&#8217;а ничего не происходит?</title>
		<link>http://www.mydelphi.info/code/81</link>
		<comments>http://www.mydelphi.info/code/81#comments</comments>
		<pubDate>Sun, 08 Jun 2008 16:48:26 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[clGreen]]></category>
		<category><![CDATA[CONTROL]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[TextOut]]></category>
		<category><![CDATA[TStatusBar]]></category>
		<category><![CDATA[TStatusPanel]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=81</guid>
		<description><![CDATA[Вопрос:
Почему при изменении цвета букв StatusBar'а ничего не происходит?

Ответ:
Status bar &#8211; стандартный
элемент управления Windows, и соответственно цвет его букв &#8211; значение clBtnText
которое изменяется с помощью настроек в Control Panel. Этот цвет черный по умолчанию
и может изменяться в зависимости от выбранной цветовой схемы. Другие стандартные
элемент управления Windows, например кнопки, также имеют цвет букв, настраиваемый
из ControlPanel. StatusBar [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/81/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Можно ли изменить вид текстового курсора (каретки) edit&#8217;а или другого элемента</title>
		<link>http://www.mydelphi.info/code/79</link>
		<comments>http://www.mydelphi.info/code/79#comments</comments>
		<pubDate>Sun, 08 Jun 2008 16:46:36 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Brush]]></category>
		<category><![CDATA[Canvas]]></category>
		<category><![CDATA[ENDIF]]></category>
		<category><![CDATA[public]]></category>
		<category><![CDATA[StdCtrls]]></category>
		<category><![CDATA[TEdit]]></category>
		<category><![CDATA[TextOut]]></category>
		<category><![CDATA[TextWidth]]></category>
		<category><![CDATA[TForm]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=79</guid>
		<description><![CDATA[Вопрос:

Можно ли изменить вид текстового курсора (каретки) edit'а или другого элемента
управления Windows?

Ответ:
Можно! В примере показано
как создать два цветных &#8220;bitmap&#8217;а&#8221;: &#8220;улыбчивый&#8221; и &#8220;хмурый&#8221; и присвоить их курсору
edit&#8217;а. Для этого нужно перехватить оконную процедуру edit&#8217;а. Чтобы сделать
это заменим адрес оконной процедуры Edit&#8217;а нашим собственным, а старую оконную
процедуру будем вызывать по необходимости. Пример показывает &#8220;улыбчивый&#8221; курсор
при наборе текста [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/79/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>При использовании BitBtn Caption(текст) и картинка(bitmap) из файла не видны</title>
		<link>http://www.mydelphi.info/code/78</link>
		<comments>http://www.mydelphi.info/code/78#comments</comments>
		<pubDate>Sun, 08 Jun 2008 16:45:41 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Assign]]></category>
		<category><![CDATA[bitmap]]></category>
		<category><![CDATA[Canvas]]></category>
		<category><![CDATA[Handle]]></category>
		<category><![CDATA[SetBkMode]]></category>
		<category><![CDATA[TBitmap]]></category>
		<category><![CDATA[TextOut]]></category>
		<category><![CDATA[Transparent]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=78</guid>
		<description><![CDATA[Вопрос:

При использовании BitBtn Caption(текст) и картинка(bitmap) из файла не видны
одновременно. Почему?

Ответ:
Это может происходить
если картинка слишком велика. Класс TBitBtn сначала рисует картинку, а затем
выводит текст над, под, слева или справа от картинки (в завивимости от свойства
Layout). Если размер картинки такой же как у всей кнопки для вывода текста просто
не остается места. Если Вам нужно получить кнопку [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/78/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>При обработке события DrawCell компонента DrawGrid</title>
		<link>http://www.mydelphi.info/code/77</link>
		<comments>http://www.mydelphi.info/code/77#comments</comments>
		<pubDate>Sun, 08 Jun 2008 16:44:39 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Color]]></category>
		<category><![CDATA[DrawCell]]></category>
		<category><![CDATA[DrawGrid]]></category>
		<category><![CDATA[IntToStr]]></category>
		<category><![CDATA[TextOut]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=77</guid>
		<description><![CDATA[Вопрос:
При обработке события DrawCell компонента DrawGrid я пишу Font.Color := clRed; и получаю бесконечный
цикл мерцаний. Почему?
Ответ:
Правильно укажите границы используемого канваса.
Пример:

If (Row = 0) then
	begin
		DrawGrid1.Canvas.Font.Color := clRed;
		DrawGrid1.Canvas.TextOut(Rect.Left,Rect.Top, IntToStr(Col));
	end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/77/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>
