<?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; TBitmap</title>
	<atom:link href="http://www.mydelphi.info/code/tag/tbitmap/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>При попытке использовать метод TCanvas.StretchDraw</title>
		<link>http://www.mydelphi.info/code/166</link>
		<comments>http://www.mydelphi.info/code/166#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:20:08 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Application]]></category>
		<category><![CDATA[bitmap]]></category>
		<category><![CDATA[Button]]></category>
		<category><![CDATA[Canvas]]></category>
		<category><![CDATA[icon]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[StretchDraw]]></category>
		<category><![CDATA[TBitmap]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[Width]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=166</guid>
		<description><![CDATA[Вопрос:
При попытке использовать метод TCanvas.StretchDraw чтобы нарисовать иконку
увеличенной ее размер не изменяется. Что делать?
Ответ:
Иконки всегда рисуются размером принятым в системе по умолчанию. Чтобы показать
увеличенный вид иконки скоприуйте ее на bitmap, а зате используйте метод
TCanvas.StretchDraw.

Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
	TheBitmap : TBitmap;
begin
	TheBitmap := TBitmap.Create;
	TheBitmap.Width := Application.Icon.Width;
	TheBitmap.Height := Application.Icon.Height;
	TheBitmap.Canvas.Draw(0, 0, Application.Icon);
	Form1.Canvas.StretchDraw(Rect(0,0,TheBitmap.Width * 3,TheBitmap.Height * 3),
		   TheBitmap);
	TheBitmap.Free;
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/166/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как ограничить длинну текста, вводимого в TEdit</title>
		<link>http://www.mydelphi.info/code/161</link>
		<comments>http://www.mydelphi.info/code/161#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:15:48 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Canvas]]></category>
		<category><![CDATA[GetClientRect]]></category>
		<category><![CDATA[KeyPress]]></category>
		<category><![CDATA[MaxLength]]></category>
		<category><![CDATA[MessageBeep]]></category>
		<category><![CDATA[Return]]></category>
		<category><![CDATA[TBitmap]]></category>
		<category><![CDATA[TEdit]]></category>
		<category><![CDATA[TextWidth]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=161</guid>
		<description><![CDATA[Вопрос:
Как ограничить длинну текста, вводимого в TEdit, так чтобы ширина текста не превышала
ширину TEdit'а?

Ответ:
В примере приведено два
способа ограничить длинну текста в TEdit так чтобы она не превышала ширину клиентской
области окна TEdit&#8217;а и не появлялась прокрутка текста. Первый способ устанавливает
свойство TEdit&#8217;а MaxLength равным числу букв &#8220;W&#8221;, которые поместятся в TEdit.
&#8220;W&#8221; выбрана потому, что является, наверное, самой [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/161/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Мне нужен временный canvas</title>
		<link>http://www.mydelphi.info/code/117</link>
		<comments>http://www.mydelphi.info/code/117#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:19:46 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[FillRect]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[StretchDraw]]></category>
		<category><![CDATA[TBitmap]]></category>
		<category><![CDATA[TCanvas]]></category>
		<category><![CDATA[TForm]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=117</guid>
		<description><![CDATA[Вопрос:
Мне нужен временный canvas, но когда я пытаюсь его создать получаю сообщения об ошибках. Как создать TCanvas?
Ответ:
Создайте Bitmap и используйте
свойство canvas класса TBitmap. Пример создает Bitmap, рисует на его canvas&#8217;е,
выводит этот canvas на форму и освобождает bitmap.
Пример:
procedure TForm1.Button1Click(Sender: TObject);
var
	bm : TBitmap;
begin
	bm := TBitmap.Create;
	bm.Width := 100;
	bm.Height := 100;
	bm.Canvas.Brush.Color := clRed;
	bm.Canvas.FillRect(Rect(0, 0, 100, 100));
	bm.Canvas.MoveTo(0, 0);
	bm.Canvas.LineTo(100, 100);
	Form1.Canvas.StretchDraw(Form1.ClientRect,Bm);
	bm.Free;
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/117/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как создать bitmap из пиктогрммы (icon)?</title>
		<link>http://www.mydelphi.info/code/106</link>
		<comments>http://www.mydelphi.info/code/106#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:10:09 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Button]]></category>
		<category><![CDATA[Canvas]]></category>
		<category><![CDATA[Form]]></category>
		<category><![CDATA[ICO]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[TBitmap]]></category>
		<category><![CDATA[TheBitmap]]></category>
		<category><![CDATA[TObject]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=106</guid>
		<description><![CDATA[Вопрос:
Как создать bitmap из пиктогрммы (icon)?
Ответ:
Используя Bitmap.Canvas.Draw нарисуйте пиктограмму на Bitmap'е.

Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
	TheIcon : TIcon;
	TheBitmap : TBitmap;
begin
		TheIcon := TIcon.Create;
		TheIcon.LoadFromFile('C:\Program Files\Borland\IcoCur32\EARTH.ICO');
		TheBitmap := TBitmap.Create;
		TheBitmap.Height := TheIcon.Height;
		TheBitmap.Width := TheIcon.Width;
		TheBitmap.Canvas.Draw(0, 0, TheIcon);
		Form1.Canvas.Draw(10, 10, TheBitmap);
		TheBitmap.Free;
		TheIcon.Free;
	end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/106/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как поместить bitmap в Metafile?</title>
		<link>http://www.mydelphi.info/code/103</link>
		<comments>http://www.mydelphi.info/code/103#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:07:22 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Click]]></category>
		<category><![CDATA[LOADFROMFILE]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[SaveToFile]]></category>
		<category><![CDATA[SomeBitmap]]></category>
		<category><![CDATA[TBitmap]]></category>
		<category><![CDATA[Test]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=103</guid>
		<description><![CDATA[Вопрос:
Как поместить bitmap в Metafile?
Ответ: см. пример

Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
	m : TmetaFile;
	mc : TmetaFileCanvas;
	b : tbitmap;
begin
	m := TMetaFile.Create;
	b := TBitmap.create;
	b.LoadFromFile('C:\SomePath\SomeBitmap.BMP');
	m.Height := b.Height;
	m.Width := b.Width;
	mc := TMetafileCanvas.Create(m, 0);
	mc.Draw(0, 0, b);
	mc.Free;
	b.Free;
	m.SaveToFile('C:\SomePath\Test.emf');
	m.Free;
	Image1.Picture.LoadFromFile('C:\SomePath\Test.emf');
end;

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