<?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; Result</title>
	<atom:link href="http://www.mydelphi.info/code/tag/result/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>Как отправить сообщение сразу всем элементам управления формы?</title>
		<link>http://www.mydelphi.info/code/159</link>
		<comments>http://www.mydelphi.info/code/159#comments</comments>
		<pubDate>Mon, 09 Jun 2008 16:14:05 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[BroadCast]]></category>
		<category><![CDATA[Forms]]></category>
		<category><![CDATA[msg]]></category>
		<category><![CDATA[Result]]></category>
		<category><![CDATA[Screen]]></category>
		<category><![CDATA[TWinControls]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=159</guid>
		<description><![CDATA[Вопрос:
Как отправить сообщение сразу всем элементам управления формы?

Ответ:
Можно использовать Screen.Forms[i].BroadCast(msg);
где [i] &#8211; индекс той формы, которой Вы хотите переслать сообщение. BroadCast
работает со всеми компонентами, потомками TWinControls и отправляет сообщение
всем дочерним компонентам из массива Controls. Если один из дочерних компонентов
обрабатывает это сообщение и устанавливает Msg.Result в ненулевое значение -
дальнейшая рассылка сообщения останавливается.
]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/159/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Можно ли рисовать на рамке формы?</title>
		<link>http://www.mydelphi.info/code/128</link>
		<comments>http://www.mydelphi.info/code/128#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:28:54 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Canvas]]></category>
		<category><![CDATA[DFM]]></category>
		<category><![CDATA[Handle]]></category>
		<category><![CDATA[hPen]]></category>
		<category><![CDATA[implementation]]></category>
		<category><![CDATA[Null]]></category>
		<category><![CDATA[Rectangle]]></category>
		<category><![CDATA[Result]]></category>
		<category><![CDATA[SelectObject]]></category>
		<category><![CDATA[SOLID]]></category>
		<category><![CDATA[TWMNCPaint]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=128</guid>
		<description><![CDATA[Вопрос:
Можно ли рисовать на рамке формы?
Ответ:
Обрабатывайте событие WM_NCPAINT. В примере рамка обводится красной линией
толщиной в 1 пиксел.

Пример:

type
	TForm1 = class(TForm)
	private
	{Private declarations}
		procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;
	public
	{Public declarations}
end;

var
	Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
	dc : hDc;
	Pen : hPen;
	OldPen : hPen;
	OldBrush : hBrush;
begin
	inherited;
	dc := GetWindowDC(Handle);
	msg.Result := 1;
	Pen := CreatePen(PS_SOLID, 1, RGB(255, 0, 0));
	OldPen := SelectObject(dc, Pen);
	OldBrush := SelectObject(dc, [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/128/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как в Delphi реализовать функцию &#8211; эквивалент TwipsPerPixel из VisualBasic?</title>
		<link>http://www.mydelphi.info/code/109</link>
		<comments>http://www.mydelphi.info/code/109#comments</comments>
		<pubDate>Sun, 08 Jun 2008 17:12:38 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Delphi FAQ]]></category>
		<category><![CDATA[Delphi]]></category>
		<category><![CDATA[GetDeviceCaps]]></category>
		<category><![CDATA[LOGPIXELSX]]></category>
		<category><![CDATA[LOGPIXELSY]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[Result]]></category>
		<category><![CDATA[TObject]]></category>
		<category><![CDATA[TwipsPerPixel]]></category>
		<category><![CDATA[TwipsPerPixelX]]></category>
		<category><![CDATA[TwipsPerPixelY]]></category>

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

Как в Delphi реализовать функцию - эквивалент TwipsPerPixel из VisualBasic?

Ответ:
Функции  TwipsPerPixelX и TwipsPerPixelY, приведенные в примере реализуют ту же
функциональность в  Delphi.

Пример:

function TwipsPerPixelX(Canvas : TCanvas) : Extended;
begin
	result := 1440 / GetDeviceCaps(Canvas.Handle, LOGPIXELSX);
end;

function TwipsPerPixelY(Canvas : TCanvas) : Extended;
begin
	result := 1440 / GetDeviceCaps(Canvas.Handle, LOGPIXELSY);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
	ShowMessage(FloatToStr(TwipsPerPixelX(Form1.Canvas)));
	ShowMessage(FloatToStr(TwipsPerPixelY(Form1.Canvas)));
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/109/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как &#8220;заставить&#8221; форму не разворачиваться из иконки?</title>
		<link>http://www.mydelphi.info/code/58</link>
		<comments>http://www.mydelphi.info/code/58#comments</comments>
		<pubDate>Sun, 08 Jun 2008 10:42:31 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[begin]]></category>
		<category><![CDATA[message]]></category>
		<category><![CDATA[private]]></category>
		<category><![CDATA[procedure]]></category>
		<category><![CDATA[Result]]></category>
		<category><![CDATA[TMainForm]]></category>
		<category><![CDATA[TWMQueryOpen]]></category>
		<category><![CDATA[var]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=58</guid>
		<description><![CDATA[Как &#8220;заставить&#8221; форму не разворачиваться из иконки?
Для этого необходимо перехватить сообщение &#8220;WM_QUERYOPEN&#8221;. Для этого необходимо
объявить соответствующую процедуру в private-области.

{ объявление процедуры в классе TMainForm }
procedure WMQueryOpen(var Msg: TWMQueryOpen); message WM_QUERYOPEN;
 

{ ... и ее реализация }
procedure TMainForm.WMQueryOpen(var Msg: TWMQueryOpen);
begin
  Msg.Result := 0;
end;

]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/58/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как проверять корректность доступа к базе данных?</title>
		<link>http://www.mydelphi.info/code/46</link>
		<comments>http://www.mydelphi.info/code/46#comments</comments>
		<pubDate>Sun, 08 Jun 2008 10:31:33 +0000</pubDate>
		<dc:creator>admin</dc:creator>
				<category><![CDATA[Советы]]></category>
		<category><![CDATA[CheckDatabase]]></category>
		<category><![CDATA[Cursor]]></category>
		<category><![CDATA[DataSource]]></category>
		<category><![CDATA[Result]]></category>
		<category><![CDATA[TBDEDirect]]></category>
		<category><![CDATA[TDBDataSet]]></category>

		<guid isPermaLink="false">http://www.mydelphi.info/?p=46</guid>
		<description><![CDATA[Как проверять корректность доступа к базе данных?
Следующая функция проверяет доступ к базе данных и выдает возможные причины,
если доступ не удается осуществить. Функция возвращает значение True в случае
успешной операции и False в противном случае.


function TBDEDirect.CheckDatabase: Boolean;

var

  DS: TDataSource;

begin
  Result := False;
  DS := GetDataSource;
  if DS = nil then
    [...]]]></description>
		<wfw:commentRss>http://www.mydelphi.info/code/46/feed</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

