<?xml version='1.0' encoding="utf-8"?>
      <rss version='2.0'>
      <channel>
      <title>Форум на Исходниках.RU</title>
      <link>https://forum.sources.ru</link>
      <description>Форум на Исходниках.RU</description>
      <generator>Форум на Исходниках.RU</generator>
  	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1251382</guid>
        <pubDate>Tue, 05 Sep 2006 17:35:57 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1251382</link>
        <description><![CDATA[Vit: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=1242068'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Romtek &#064; <time class="tag-quote__quoted-time" datetime="2006-08-29T19:34:10+04:00">29.08.06, 15:34</time></span><div class='quote '>Vit, а как ты добавляешь статьи, вообще? При добавлении ты разве не смотришь на совпадение, хотя бы по заголовку или строчке из кода? </div></div><br>
<br>
Для интереса возьми попробуй добавить две-три сотни статей и ты всё поймёшь... На совпадение можно смотреть если только есть специфические слова, по строке кода искать бесполезно - они могут либо быть в других статьях, либо не находится из-за лишнего пробела... По разделам иногда смотрю, но не факт что статья попадёт именно в тот раздел, а не окажется в каком-то другом...]]></description>
        <author>Vit</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1242068</guid>
        <pubDate>Tue, 29 Aug 2006 15:34:10 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1242068</link>
        <description><![CDATA[Romtek: <strong class='tag-b'>Vit</strong>, а как ты добавляешь статьи, вообще? При добавлении ты разве не смотришь на совпадение, хотя бы по заголовку или строчке из кода?]]></description>
        <author>Romtek</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1242059</guid>
        <pubDate>Tue, 29 Aug 2006 15:29:15 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1242059</link>
        <description><![CDATA[Vit: Даже полностью совпадающие по хэшам не сравнишь, где-то пробел всунется, где-то абзац, где-то перевод каретки... С точностью до байта совпадающих наверняка нет...]]></description>
        <author>Vit</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1237805</guid>
        <pubDate>Sun, 27 Aug 2006 00:28:59 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1237805</link>
        <description><![CDATA[--= Eagle =--: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Romtek, 27.08.2006, 0:39:29, 1237688</span><div class='quote '>Дубли это полностью или частично совпадающие статьи?</div></div><br>
Чаще всего частично...]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1237688</guid>
        <pubDate>Sat, 26 Aug 2006 21:39:29 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1237688</link>
        <description><![CDATA[Romtek: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=1237122'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>&#045;&#045;= Eagle =&#045;&#045; &#064; <time class="tag-quote__quoted-time" datetime="2006-08-26T09:44:33+00:00">26.08.06, 09:44</time></span><div class='quote '>Пролистывая ответы иногда (редко) наталкиваюсь на дубли...</div></div>Дубли это полностью или частично совпадающие статьи?<br>
Если полностью, то можно сгенерировать типа хэша определенной статьи и сравнивать их программно. Да и частичным дублям можно найти решение проблемы (при желании).<br>
<br>
За алгоритмами знаете куда обращаться...]]></description>
        <author>Romtek</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1237122</guid>
        <pubDate>Sat, 26 Aug 2006 09:44:33 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1237122</link>
        <description><![CDATA[--= Eagle =--: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Romtek, 26.08.2006, 11:51:48, 1237084</span><div class='quote '>Кстати, а как выявляются дубликаты?</div></div><br>
Просто ищу чего-то в базе и нахожу рахные ответы. Пролистывая ответы иногда (редко) наталкиваюсь на дубли...<br>
<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Romtek, 26.08.2006, 11:51:48, 1237084</span><div class='quote '>Может, проблема решается программно? </div></div><br>
А это идея :) Только, думаю, это будет не совсем легко: нужно выбрать часто встречающиеся слова и игнорить их, а редко встречающиеся сравнивапть и если в 2-х текстах есть много совпадений по таким редким словам, то предложить их человеку для сверки :) Только, боюсь, ложных вызовов будет многовато.]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1237084</guid>
        <pubDate>Sat, 26 Aug 2006 08:51:48 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1237084</link>
        <description><![CDATA[Romtek: Кстати, а как выявляются дубликаты? Может, проблема решается программно?]]></description>
        <author>Romtek</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1235616</guid>
        <pubDate>Fri, 25 Aug 2006 09:45:45 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1235616</link>
        <description><![CDATA[--= Eagle =--: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=1215331'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Vit &#064; <time class="tag-quote__quoted-time" datetime="2006-08-11T12:10:04+00:00">11.08.06, 12:10</time></span><div class='quote '>Тогда я - пасс. Следующую версию считаю невозможным выпустить, у меня в памяти не вмещается столько тем, а поиск дубликатов при внесении каждой новой статьи это несопоставимая с получаемой выгодой трата моего личного времени.</div></div><br>
если всё-таки решишь выпустить новую версию и будешь не против моей помощи в поиске дублей для исправления - помогу чем смогу, :yes: <br>
З.Ы. Не бросай проект, он так многим помогает&#33; :wub:]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1228418</guid>
        <pubDate>Mon, 21 Aug 2006 08:23:29 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1228418</link>
        <description><![CDATA[--= Eagle =--: <strong class='tag-b'>Vit</strong>, споки :) Я не укоряю тебя дубляжём, просто помогаю по возможности избавиться от лишних дублей. Это НЕ порок базы, просто это то, что можно и даже нужно изъять ввиду отсутствия в нем необходимости... Лично мне база нравится и с дублями, просто хочется больше обновлений :)<br>
З.Ы. Если тебя расстраивают мои темы с дублями, больше не буду их постить... По мне так лучше с дублями, но чтоб было, чем вообще никак ;)]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1216178</guid>
        <pubDate>Fri, 11 Aug 2006 17:13:46 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1216178</link>
        <description><![CDATA[Алексей: <strong class='tag-b'>Vit</strong> да конечно не заморачивайся на дубляжах&#33;]]></description>
        <author>Алексей</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1215343</guid>
        <pubDate>Fri, 11 Aug 2006 12:18:38 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1215343</link>
        <description><![CDATA[Testudo: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=1215331'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Vit &#064; <time class="tag-quote__quoted-time" datetime="2006-08-11T12:10:04+00:00">11.08.06, 12:10</time></span><div class='quote '>Тогда я - пасс. Следующую версию считаю невозможным выпустить, у меня в памяти не вмещается столько тем, а поиск дубликатов при внесении каждой новой статьи это несопоставимая с получаемой выгодой трата моего личного времени.</div></div>Да в баню эти дубляжи&#33; Не заморачивайся. Если кому не нравится, пусть возьмет да поможет, а нет - так пусть молчит &gt;:( <br>
<br>
Лично мне DRKB во многом очень помогла. И было бы замечательно, если бы она расширялась и дальше.]]></description>
        <author>Testudo</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1215331</guid>
        <pubDate>Fri, 11 Aug 2006 12:10:04 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1215331</link>
        <description><![CDATA[Vit: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=1214140'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Алексей &#064; <time class="tag-quote__quoted-time" datetime="2006-08-10T18:32:20+00:00">10.08.06, 18:32</time></span><div class='quote '>нет дубляжей - типа порядок) </div></div><br>
<br>
<br>
Тогда я - пасс. Следующую версию считаю невозможным выпустить, у меня в памяти не вмещается столько тем, а поиск дубликатов при внесении каждой новой статьи это несопоставимая с получаемой выгодой трата моего личного времени.]]></description>
        <author>Vit</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1214140</guid>
        <pubDate>Thu, 10 Aug 2006 18:32:20 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1214140</link>
        <description><![CDATA[Алексей: нет дубляжей - типа порядок) программеры все аккуратные выходит :rolleyes:]]></description>
        <author>Алексей</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1214133</guid>
        <pubDate>Thu, 10 Aug 2006 18:28:10 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1214133</link>
        <description><![CDATA[Vit: Меня всегда интересовало... а почему народ так сильно недоволен дубляжом и почему больше половины всех замечаний по дублированным темам. Вопрос для меня лично не праздный по 2м причинам:<br><br>1. Очень трудно дубли предотвратить и их предотвращение ОЧЕНЬ сильно замедляет выпуск новых версий. Если бы не шквал сообщений о дублях, то не обращая внимания на 1-2% возможных дублирующих тем я смог бы обновлять DRKB на порядок чаще и подобрать гораздо больше материала. Если честно, то соотношение затрат времени примерно такое: за время потраченное на вставку одного топика с тщательной проверкой его на дублирование можно вставить от 20-50 топиков без проверки на дублирование (отсеивая дубляжи только по памяти)<br><br>2. Чем мешают дублирующие темы? Занимаемым объёмом? Дык их всего-то не более нескольких процентов, и мегабайт в общей сложности не набежит. Или просто так мешают, от нечего делать? Как по мне так они даже полезны - поиск облегчают, натыкаешься на нужные вопросы и в одном разделе и в другом...<br><br><br>Если честно, то именно дублирующие темы и неприятные воспоминания о том что с выходом новой версии на меня опять обрушится шквал замечаний о дублежах то там то там психологически меня удерживают от выпуска новой версии. Я не знаю как избавится от дублирующих тем приемлимыми затратами времени, а к тому же совершенно не вижу смысла в том чтоб тратить своё время на их выискивание...]]></description>
        <author>Vit</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1214096</guid>
        <pubDate>Thu, 10 Aug 2006 17:55:58 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1214096</link>
        <description><![CDATA[--= Eagle =--: Дубли: &quot;<span class="tag-color tag-color-named" data-value="blue" style="color: blue">Как ограничить перемещение курсора?</span>&quot; и &quot;<span class="tag-color tag-color-named" data-value="blue" style="color: blue">Как ограничить движения мышки определённой областью?</span>&quot;<br>
<br>
Пример из &quot;<span class="tag-color tag-color-named" data-value="blue" style="color: blue">Using the Shell API function SHBrowseForFolder</span>&quot; содержится &quot;<span class="tag-color tag-color-named" data-value="blue" style="color: blue">Как использовать Shell API SHBrowseForFolder?</span>&quot;, а пример &quot;<span class="tag-color tag-color-named" data-value="blue" style="color: blue">Как вывести диалог Обзор папок</span>&quot; является упрощённым, но РАБОЧИМ вариантом второго примера предыдущей статьи. Кроме того, ИМХО, стоит упомянуть, что в статье &quot;<span class="tag-color tag-color-named" data-value="blue" style="color: blue">Пример простейшего HTTP сервера</span>&quot; также есть пример использования SHBrowseForFolder. Кстати, можно добавить, что если к флагам добавить  &quot;or BIF_USENEWUI&quot;,<br>
то по-умолчанию (если нет флага BIF_NOCREATEDIRS = &#036;200) можно будет ещё и создавать новые папки.]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1190594</guid>
        <pubDate>Tue, 25 Jul 2006 07:25:47 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1190594</link>
        <description><![CDATA[--= Eagle =--: Пока нашёл ещё один недочёт:<br>
<br>
Статья <span class="tag-color tag-color-named" data-value="blue" style="color: blue">&quot;Как назначить горячие клавиши?&quot;</span> полностью содержится в <span class="tag-color tag-color-named" data-value="blue" style="color: blue">&quot;Использование ловушек, блокировка мышки, клавиатуры и т.д.&quot;</span>, а <span class="tag-color tag-color-named" data-value="blue" style="color: blue">&quot;Регистрируем горячие клавиши&quot;</span> - просто чуть более урезанная их веррсия.<br>
<br>
<span class="tag-color tag-color-named" data-value="blue" style="color: blue">&quot;Выставляем горячие клавиши для Delphi приложения&quot;</span> повторяют предыдущий код, но не учитывают того, что один ID для горячей клавиши должен использоваться только один раз на поток, и его рекомендуется получать через через GlobalAddAtom() <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2006-07-25T07:43:46+00:00">25.07.06, 07:43</time></span></span><br>
Вот ещё пара решений, которые заинтересовали именно меня:<br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=149279' target='_blank'>Hotlkeys</a><br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=148037' target='_blank'>Обернуть JOURNALRECORD-хук в класс</a>]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1189943</guid>
        <pubDate>Mon, 24 Jul 2006 14:41:53 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1189943</link>
        <description><![CDATA[Алексей: а когда будет новая версия?  :rolleyes:]]></description>
        <author>Алексей</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1174910</guid>
        <pubDate>Wed, 12 Jul 2006 17:19:57 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1174910</link>
        <description><![CDATA[Smike: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=1174795'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Digar &#064; <time class="tag-quote__quoted-time" datetime="2006-07-12T15:32:04+00:00">12.07.06, 15:32</time></span><div class='quote '>Пишу это замечание, потому что на форуме мне так никто и не смог подсказать в чём была проблеммаю</div></div><br>
Этот вопрос просто так часто повторяется, что уже влом каждому рассказывать, в чем проблема. Так что искать нужно, прежде чем вопрос задавать.<br>
<br>
А вообще уже есть однозначный ответ на этот вопрос - использование BDS 2006 (не имеет проблем с региональными настройками) + TNT Unicode Library (позволяет избавиться от неправильного отображения текста в юникодной среде, такой как Win2000/XP/2003 и выше при любых настройках).]]></description>
        <author>Smike</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1174795</guid>
        <pubDate>Wed, 12 Jul 2006 15:32:04 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1174795</link>
        <description><![CDATA[Digar: Для тех кто занимается графикой, предлагаю полезую функцию, позволяющую определять взаимное расположение точки и прятой (можно использовать для определения нахождения точки внутри сложного контура):<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">{Расчет нормали от точки до линии и расстояния от начала и до конца линии}</div><div class="code_line">function Dfptl(key:byte;x,y,xn,yn,xk,yk:real):real;//Distance From Point To Line</div><div class="code_line">Const r0=2*pi;r1=pi;r2=pi/2;r3=3*pi/4;r4=1e-4;</div><div class="code_line">var</div><div class="code_line">a,dx,dy:double;</div><div class="code_line">begin</div><div class="code_line">dx:=xk-xn;dy:=yk-yn;</div><div class="code_line">if abs(dx)&#60;r4 then begin if dy&#62;0 then a:=r2 else a:=-r2;end else a:=arctan2(dy,dx);</div><div class="code_line">&nbsp;Case key of</div><div class="code_line">&nbsp;0://расстояние от точки до прямой; &#60;0 - точка слева; &#62;0 - точка справа</div><div class="code_line">&nbsp;&nbsp; Result:=(xn-x)*Sin(a)-(yn-y)*Cos(a);</div><div class="code_line">&nbsp;1://расстояние от точки до начала линии</div><div class="code_line">&nbsp;&nbsp; Result:=(x-xn)*Cos(a)+(y-yn)*Sin(a);</div><div class="code_line">&nbsp;2://проекция точки на направление прямой попадает на нее если Result=0</div><div class="code_line">&nbsp;&nbsp; Result:=(sqrt(sqr(dx)+sqr(dy))-Abs((xn-x)*Cos(a)+(yn-y)*Sin(a))-Abs((xk-x)*Cos(a)+(yk-y)*Sin(a)));</div><div class="code_line">&nbsp;3://расстояние от точки до конца линии</div><div class="code_line">&nbsp;&nbsp; Result:=(x-xk)*Cos(a)+(y-yk)*Sin(a);</div><div class="code_line">&nbsp;else result:=1e30;</div><div class="code_line">&nbsp;end;</div><div class="code_line">if isZero(Result,r4) then Result:=0;</div><div class="code_line">end;</div></ol></div></div></div></div><script>preloadCodeButtons('1');</script> <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2006-07-12T15:40:39+00:00">12.07.06, 15:40</time></span></span><br>
Столкнулся однажду с такой проблемой: взял исходник на Delphi 7 с другого компа, на котором всё работало нормально, перенёс на свой комп..<br>
УЖАС&#33; Все пункты меню выдавались в виде ряда вопросительных знаков. И Ведь Что интересно, при использовании этих исходников в Delphi 6 этого не происходило. Долго мучался, но нашёл. В компе с которого я брал исходники на вкладке &quot;ЯЗЫК И РЕГИОНАЛЬНЫЕ СТАНДАРТЫ&quot; был установлен английский язык. Пишу это замечание, потому что на форуме мне так никто и не смог подсказать в чём была проблеммаю]]></description>
        <author>Digar</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1160215</guid>
        <pubDate>Fri, 30 Jun 2006 14:29:48 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1160215</link>
        <description><![CDATA[Vit: Как будет свободное время и &quot;вдохновение&quot; - займусь новым релизом]]></description>
        <author>Vit</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1157266</guid>
        <pubDate>Wed, 28 Jun 2006 13:26:13 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1157266</link>
        <description><![CDATA[--= Eagle =--: <strong class='tag-b'>Vit</strong>, так что?]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1147908</guid>
        <pubDate>Wed, 21 Jun 2006 17:30:08 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1147908</link>
        <description><![CDATA[--= Eagle =--: yry :)]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1146855</guid>
        <pubDate>Wed, 21 Jun 2006 08:15:43 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1146855</link>
        <description><![CDATA[Smike: У нас в FAQ много новых и интересных решений, которые было бы полезно включить в DRKB.]]></description>
        <author>Smike</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1146771</guid>
        <pubDate>Wed, 21 Jun 2006 07:30:36 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1146771</link>
        <description><![CDATA[--= Eagle =--: Интересные (на мой взгляд) решения, которые было бы неплохо включить в финальную DRKB:<br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=128188' target='_blank'>Установка драйвера</a><br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=135090' target='_blank'>DirectMusic</a><br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=100131' target='_blank'>Кнопка-компонент из 3 картинок?</a><br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=96112' target='_blank'>Panel</a><br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=84355' target='_blank'>recv</a><br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=83002' target='_blank'>http://forum.sources.ru/index.php?showtopic=83002</a><br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=82358' target='_blank'>Отследить обращения к реестру Windows</a><br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=82128' target='_blank'>Заголовок окна</a><br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=81546' target='_blank'>А можно ли найти окно по имени процесса</a><br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=75342' target='_blank'>бестелесное окно</a><br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=15220' target='_blank'>Насчёт милли(микро)-секундных таймеров</a><br>
<br>
Misc:<br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=137300' target='_blank'>Проблемы с Delphi</a><br>
<br>
Пока больше нет...]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1107829</guid>
        <pubDate>Sun, 21 May 2006 17:34:35 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1107829</link>
        <description><![CDATA[LebVlad007: Спасибо вам всем за то, что вы есть &#33;&#33;&#33;&#33;]]></description>
        <author>LebVlad007</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1066093</guid>
        <pubDate>Tue, 04 Apr 2006 18:36:39 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1066093</link>
        <description><![CDATA[Vit: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=1052550'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>&#045;&#045;= Eagle =&#045;&#045; &#064; <time class="tag-quote__quoted-time" datetime="2006-03-22T16:59:02+00:00">22.03.06, 16:59</time></span><div class='quote '>Vit, а если я дам ссылочки с готовыми решениями на этом форуме, что было бы неплохо включить в DRKB - добавишь?</div></div><br>
<br>
Да]]></description>
        <author>Vit</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1052550</guid>
        <pubDate>Wed, 22 Mar 2006 16:59:02 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1052550</link>
        <description><![CDATA[--= Eagle =--: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Vit, 22.03.2006, 6:49:43, 1051688</span><div class='quote '>Как показал опыт работы над предыдущими версиями реальной помощи от коголибо ждать не приходится</div></div><br>
Ну, смотри сам - проект - твой, всю помощь, которую мы можем оказать - найти какие-нить неточности и указать на них, при возможности - с указанием того, как должно быть правильно. Вроде, так и делаем...<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Vit, 22.03.2006, 6:49:43, 1051688</span><div class='quote '>С другой стороны я и сам DRKB в работе пользуюсь и по большому счёту там особенно нечего и добавлять - в принципе охвачены почти все основные аспекты и есть ответы на подавляющее большинство вопросов... </div></div><br>
<strong class='tag-b'>Vit</strong>, а если я дам ссылочки с готовыми решениями на этом форуме, что было бы неплохо включить в DRKB - добавишь?<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Vit, 22.03.2006, 6:49:43, 1051688</span><div class='quote '>Естествеено можно найти новое, исправить баги, но... в целом - а надо ли? </div></div><br>
Ну, ИИХО, справить баги - это обязательно. Добавить новое - это уж как тебе позволяет время.<br>
Полагаю, за это время было найдено много ляпов в версии 2.3, которые следует исправить, выпустить final release и, если у тебя не хватает времени на проект (жаль конечно, но тут мы тебе не можем помочь) - поставить на нём жирную точку. Может на год, может на три, а может и навсегда...]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1051768</guid>
        <pubDate>Wed, 22 Mar 2006 07:10:27 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1051768</link>
        <description><![CDATA[Булат Шакиров: <strong class='tag-b'>Vit</strong><br>
Если только добавлять из серии практическое программирование - численные методы, например.]]></description>
        <author>Булат Шакиров</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1051688</guid>
        <pubDate>Wed, 22 Mar 2006 04:49:43 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1051688</link>
        <description><![CDATA[Vit: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=1042948'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>&#045;&#045;= Eagle =&#045;&#045; &#064; <time class="tag-quote__quoted-time" datetime="2006-03-13T21:14:44+00:00">13.03.06, 21:14</time></span><div class='quote '>а новую версию?</div></div><br>
<br>
<br>
Как показал опыт работы над предыдущими версиями реальной помощи от коголибо ждать не приходится, а у меня по жизни сейчас туго со временем и предположительно будет туго ещё как минимум пол года. С другой стороны я и сам DRKB в работе пользуюсь и по большому счёту там особенно нечего и добавлять - в принципе охвачены почти все основные аспекты и есть ответы на подавляющее большинство вопросов... Естествеено можно найти новое, исправить баги, но... в целом - а надо ли?]]></description>
        <author>Vit</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1046514</guid>
        <pubDate>Thu, 16 Mar 2006 22:20:39 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1046514</link>
        <description><![CDATA[Domino: Пустые статьи &quot;Sending a file via DCOM&quot; и &quot;Deploying Midas&quot; (v.2.3)]]></description>
        <author>Domino</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1042948</guid>
        <pubDate>Mon, 13 Mar 2006 21:14:44 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1042948</link>
        <description><![CDATA[--= Eagle =--: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Vit, 13.03.2006, 15:45:13, 1042526</span><div class='quote '>Сайт исправил</div></div><br>
а новую версию? ;)]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1042526</guid>
        <pubDate>Mon, 13 Mar 2006 13:45:13 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1042526</link>
        <description><![CDATA[Vit: Сайт исправил  :)]]></description>
        <author>Vit</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1040079</guid>
        <pubDate>Fri, 10 Mar 2006 18:37:32 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1040079</link>
        <description><![CDATA[--= Eagle =--: <strong class='tag-b'>aelita</strong>, читай предыдущие сообшения&#33;&#33;]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1039704</guid>
        <pubDate>Fri, 10 Mar 2006 13:52:41 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1039704</link>
        <description><![CDATA[aelita: Не удается скачать drkb  с его родного сайта.<br><br>Вылетает ошибка<br><br>Notice: Use of undefined constant QUERY_STRING - assumed &#39;QUERY_STRING&#39; in /home/httpd/vhosts/drkb.ru/httpdocs/clicks_counter.php on line 24<br><br>Warning: Cannot modify header information - headers already sent by (output started at /home/httpd/vhosts/drkb.ru/httpdocs/clicks_counter.php:24) in /home/httpd/vhosts/drkb.ru/httpdocs/clicks_counter.php on line 52]]></description>
        <author>aelita</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1018407</guid>
        <pubDate>Thu, 16 Feb 2006 12:59:38 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1018407</link>
        <description><![CDATA[Булат Шакиров: <strong class='tag-b'>_Vetal_</strong><br>
http://www.delphist.com/drkb23.chm]]></description>
        <author>Булат Шакиров</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1018351</guid>
        <pubDate>Thu, 16 Feb 2006 12:08:59 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1018351</link>
        <description><![CDATA[_Vetal_: Народ, отсюда <a class='tag-url' href='http://www.drkb.ru/' target='_blank'>http://www.drkb.ru/</a> вобще хоть кто-то что-то может скачать?<br>
Второй день пытаюсь и на все попытки закачки пишет<br>
Notice: Use of undefined constant QUERY_STRING - assumed &#39;QUERY_STRING&#39; in /home/httpd/vhosts/drkb.ru/httpdocs/clicks_counter.php on line 24<br>
<br>
Warning: Cannot modify header information - headers already sent by (output started at /home/httpd/vhosts/drkb.ru/httpdocs/clicks_counter.php:24) in /home/httpd/vhosts/drkb.ru/httpdocs/clicks_counter.php on line 52]]></description>
        <author>_Vetal_</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1018349</guid>
        <pubDate>Thu, 16 Feb 2006 12:06:48 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=1018349</link>
        <description><![CDATA[--= Eagle =--: <strong class='tag-b'>Vit</strong>, как там по поводу новой версии? А то уже больше года - и ни одного обновления... :unsure:]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=988208</guid>
        <pubDate>Wed, 18 Jan 2006 18:21:11 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=988208</link>
        <description><![CDATA[Vit: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=987451'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Romtek &#064; <time class="tag-quote__quoted-time" datetime="2006-01-18T11:43:56+00:00">18.01.06, 11:43</time></span><div class='quote '>А не завести (или переименовать) ли тему в &quot;Delphi Russian Knowledge Base BugTrack&quot; ?<br>
Или же просто уточнить в описании темы &quot;BugTrack&quot; </div></div><br>
<br>
<br>
Против, мне легче если всё будет в одном месте сконцентрировано]]></description>
        <author>Vit</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=987451</guid>
        <pubDate>Wed, 18 Jan 2006 11:43:56 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=987451</link>
        <description><![CDATA[Romtek: А не завести (или переименовать) ли тему в <em class='tag-i'>&quot;Delphi Russian Knowledge Base <strong class='tag-b'>BugTrack</strong>&quot; ?</em><br>
Или же просто уточнить в описании темы &quot;BugTrack&quot;]]></description>
        <author>Romtek</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=983781</guid>
        <pubDate>Mon, 16 Jan 2006 07:01:32 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=983781</link>
        <description><![CDATA[MamontDel: TRichEdit -&gt; Установка каретки в RichEdit <br>
---------------<br>
Узнать положение курсора в RichEdit не составляет труда (richedit.getcaret). А вот как установить каретку в нужное место ?. <br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">[CODE=pas]Procedure setline(WhichEdit:TRichedit;Linepos,charpos:integer); </div><div class="code_line">Begin </div><div class="code_line">&nbsp;with WhichEdit do &nbsp;</div><div class="code_line">&nbsp;&nbsp; begin &nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp; selstart:=perform(EM_LineIndex,Linenum,0)+charpos; &nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp; perform(EM_ScrollCaret,0,0); &nbsp;</div><div class="code_line">&nbsp;&nbsp; end; &nbsp;</div><div class="code_line">end;</div></ol></div></div></div></div><br>
<br>
Комментарии: <br>
Если Вам не нужно, чтобы происходил скроллинг к позиции каретки, то EM_ScrollCaret можно убрать. RichEdit должен иметь фокус, иначе em_ScrollCaret не сработает.<br>
<br>
---------------<br>
<br>
У меня не работает :( (извените если не в тему, просто проблема может возникнуть не только у меня. Может ещё есть какие-либо условия? Если есть, то надо дополнить)<br>
<br>
<a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=128723&st=0&#entry981053' target='_blank'>Перевод курсора на определённую строку</a>]]></description>
        <author>MamontDel</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=978099</guid>
        <pubDate>Wed, 11 Jan 2006 11:39:28 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=978099</link>
        <description><![CDATA[CiD: посмотрел, тока мне это не помогло:<br>переименовал файл в  c:&#092;folder&#092;file.chm - ошибка та же<br>при открытии &quot;с помощью...&quot; IE выдает сообщение &quot;Открыть файл предупреждение безопасности. издатель неизвестен&quot;, на диалоге 2 кнопки открыть и отмена, нажимаю открыть - ошибка та же, по отмене соответственно отваливается, но если внизу снять галочку &quot;всегда спрашивать при открытии файлов этого типа&quot; и нажать открыть - все нормально открывается.<br><br>ЗЫ если после переименовать файл  - проблема возвращается.]]></description>
        <author>CiD</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=976624</guid>
        <pubDate>Tue, 10 Jan 2006 12:10:02 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=976624</link>
        <description><![CDATA[--= Eagle =--: Посмотри здесь: <a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=128361' target='_blank'>Глюк с CHM</a>]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=976593</guid>
        <pubDate>Tue, 10 Jan 2006 11:52:47 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=976593</link>
        <description><![CDATA[Smike: <strong class='tag-b'>CiD</strong>, такое бывает, когда например в браузере (Internet Explorer) стоит кодировка OEM, например.]]></description>
        <author>Smike</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=976384</guid>
        <pubDate>Tue, 10 Jan 2006 09:01:24 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=976384</link>
        <description><![CDATA[CiD: хелп плиз, тока не бейте зонтиком я чиго-то ненашел аналогичных топов<br><br>у меня при открытии chm файла всплывает окно &quot;Delphi Russian Knowledge Base from Vit&quot;<br>слева отображается содержание, а справа в окне <br><br>&quot;Действие отменено <br>Internet Explorer не удается подключиться к запрошенной веб-странице. Возможно, страница временно недоступна.&quot;<br><br>при попытке открыть любой из разделов:<br><br>&quot;Невозможно отобразить страницу <br>Эта страница сейчас недоступна. Возможно, это вызвано техническими проблемами на веб-узле, или требуется изменение параметров обозревателя.&quot;<br><br><br>никто не сталкивался с такой проблемой ?]]></description>
        <author>CiD</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=945803</guid>
        <pubDate>Mon, 12 Dec 2005 08:33:38 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=945803</link>
        <description><![CDATA[Gugle: Предлогаю немного дополнить статью &quot;Как показывать встроенный редактор ComboBox в ячейке StringGrid&quot;. <br>
<br>
1. Дело в том, что в оригинальной статье при выделении какой-либо ячейки в StrinGrid-е, в ComboBox ничего не передается. Это немного не верный способ, т.к. сам ComboBox не переходит на позицию (ItemIndex) того текста который находится в StgingGrid-е, а встает в позицию ноль и если ничего не изменить в ComboBox, а просто выйти из ячейки, то значение в StringGrid-е изменится на значение текста присвоенному нулевой позиции (ItemIndex) ComboBox-а. С этим многие наверное сталкивались и исправить это довольно легко. Поэтому предлогаю просто внести в статью еще одну функцию, которая не просто передает значение из StringGrid-а в ComboBox, а ставит ComboBox в необходимю позицию.<br>
<br>
2. Поработав с такими вставками я пришел  к выводу, что &quot;помещать выбранный элемент из ComboBox-а в Grid&quot; стоит не в событии ComboBox1Change, а в событии ComboBox1CloseUp. Это более верно, т.к. Windows не будет путать где происходит прокрутка и где сейчас стоит фокус&#33;<br>
<br>
3. Есть еще одна проблема со вставками компонентов в StringGrid, который проявляется не на всех компьютерах. Если конкретно то это пропадание объетов вставки при пользовании скрула в StringGrid-е. Что бы не повторятся вот ссылка на вопрос  --&#62;   <a class='tag-url' href='http://forum.sources.ru/index.php?showtopic=125091' target='_blank'>Исчезает ComboBox из StringGrid-а</a> . Видимо мало народу с ней сталкивалось. И все же проблему эту решить оказалось проще некуда... Оказывается, если прокрутить роликом над StringGrid-ом, то он принимает StayOnTop, а все компоненты, соответственно, оказываются под ним. Следовательно, надо сделать StringGrid-у SendToBack.<br>
<br>
Оригинальная статья:<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">procedure TForm1.FormCreate(Sender: TObject); </div><div class="code_line">begin </div><div class="code_line">&nbsp;{Высоту у combobox не получится установить, поэтому мы будем} </div><div class="code_line">&nbsp;{подгонять размер у грида под размер combobox!} </div><div class="code_line">&nbsp;&nbsp;StringGrid1.DefaultRowHeight := ComboBox1.Height; </div><div class="code_line">&nbsp;{Скрываем combobox} </div><div class="code_line">&nbsp;&nbsp;ComboBox1.Visible := False; </div><div class="code_line">end; </div><div class="code_line">&nbsp;</div><div class="code_line">procedure TForm1.ComboBox1Change(Sender: TObject); </div><div class="code_line">begin </div><div class="code_line">&nbsp;{Получаем выбранный элемент из ComboBox и помещаем его в грид} </div><div class="code_line">&nbsp;&nbsp;StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := ComboBox1.Items[ComboBox1.ItemIndex]; </div><div class="code_line">&nbsp;&nbsp;ComboBox1.Visible := False; </div><div class="code_line">&nbsp;&nbsp;StringGrid1.SetFocus; </div><div class="code_line">end; </div><div class="code_line">&nbsp;</div><div class="code_line">procedure TForm1.ComboBox1Exit(Sender: TObject); </div><div class="code_line">begin </div><div class="code_line">&nbsp;{Получаем выбранный элемент из ComboBox и помещаем его в грид} </div><div class="code_line">&nbsp;&nbsp;StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := ComboBox1.Items[ComboBox1.ItemIndex]; </div><div class="code_line">&nbsp;&nbsp;ComboBox1.Visible := False; </div><div class="code_line">&nbsp;&nbsp;StringGrid1.SetFocus; </div><div class="code_line">end; </div><div class="code_line">&nbsp;</div><div class="code_line">procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, </div><div class="code_line">&nbsp;Row: Integer; &nbsp;var CanSelect: Boolean); </div><div class="code_line">var </div><div class="code_line">&nbsp;&nbsp;R: TRect; </div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;if ((Col = 3) AND </div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;(Row &#60;&#62; 0)) then begin </div><div class="code_line">&nbsp;&nbsp; {Размер и расположение combobox подгоняем под ячейку} </div><div class="code_line">&nbsp;&nbsp; &nbsp;R := StringGrid1.CellRect(Col, Row); </div><div class="code_line">&nbsp;&nbsp; &nbsp;R.Left := R.Left + StringGrid1.Left; </div><div class="code_line">&nbsp;&nbsp; &nbsp;R.Right := R.Right + StringGrid1.Left; </div><div class="code_line">&nbsp;&nbsp; &nbsp;R.Top := R.Top + StringGrid1.Top; </div><div class="code_line">&nbsp;&nbsp; &nbsp;R.Bottom := R.Bottom + StringGrid1.Top; </div><div class="code_line">&nbsp;&nbsp; &nbsp;ComboBox1.Left := R.Left + 1; </div><div class="code_line">&nbsp;&nbsp; &nbsp;ComboBox1.Top := R.Top + 1; </div><div class="code_line">&nbsp;&nbsp; &nbsp;ComboBox1.Width := (R.Right + 1) - R.Left; </div><div class="code_line">&nbsp;&nbsp; &nbsp;ComboBox1.Height := (R.Bottom + 1) - R.Top; </div><div class="code_line">&nbsp;&nbsp; {Показываем combobox} </div><div class="code_line">&nbsp;&nbsp; &nbsp;ComboBox1.Visible := True; </div><div class="code_line">&nbsp;&nbsp; &nbsp;ComboBox1.SetFocus; </div><div class="code_line">&nbsp;&nbsp;end; </div><div class="code_line">&nbsp;&nbsp;CanSelect := True; </div><div class="code_line">end;</div></ol></div></div></div></div><br>
<br>
Дополненая статья:<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">procedure TForm1.FormCreate(Sender: TObject); </div><div class="code_line">begin </div><div class="code_line">&nbsp;{Высоту у combobox не получится установить, поэтому мы будем} </div><div class="code_line">&nbsp;{подгонять размер у грида под размер combobox!} </div><div class="code_line">&nbsp;&nbsp;StringGrid1.DefaultRowHeight := ComboBox1.Height; </div><div class="code_line">&nbsp;{Скрываем combobox} </div><div class="code_line">&nbsp;&nbsp;ComboBox1.Visible := False; </div><div class="code_line">end; </div><div class="code_line">&nbsp;</div><div class="code_line">procedure TForm1.ComboBox1CloseUp(Sender: TObject); </div><div class="code_line">begin </div><div class="code_line">&nbsp;{Получаем выбранный элемент из ComboBox и помещаем его в грид} </div><div class="code_line">&nbsp;&nbsp;StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := ComboBox1.Items[ComboBox1.ItemIndex]; </div><div class="code_line">&nbsp;&nbsp;ComboBox1.Visible := False; </div><div class="code_line">&nbsp;&nbsp;StringGrid1.SetFocus; </div><div class="code_line">end; </div><div class="code_line">&nbsp;</div><div class="code_line">procedure TForm1.ComboBox1Exit(Sender: TObject); </div><div class="code_line">begin </div><div class="code_line">&nbsp;{Получаем выбранный элемент из ComboBox и помещаем его в грид} </div><div class="code_line">&nbsp;&nbsp;StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := ComboBox1.Items[ComboBox1.ItemIndex]; </div><div class="code_line">&nbsp;&nbsp;ComboBox1.Visible := False; </div><div class="code_line">&nbsp;&nbsp;StringGrid1.SetFocus; </div><div class="code_line">end; </div><div class="code_line">&nbsp;</div><div class="code_line">procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, </div><div class="code_line">&nbsp;Row: Integer; &nbsp;var CanSelect: Boolean); </div><div class="code_line">var </div><div class="code_line">&nbsp;&nbsp;R: TRect; </div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp;SGWriteRead.SendToBack; &nbsp;</div><div class="code_line">&nbsp;&nbsp;if ((Col = 3) AND </div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;(Row &#60;&#62; 0)) then begin </div><div class="code_line">&nbsp;&nbsp; {Размер и расположение combobox подгоняем под ячейку} </div><div class="code_line">&nbsp;&nbsp; &nbsp;R := StringGrid1.CellRect(Col, Row); </div><div class="code_line">&nbsp;&nbsp; &nbsp;R.Left := R.Left + StringGrid1.Left; </div><div class="code_line">&nbsp;&nbsp; &nbsp;R.Right := R.Right + StringGrid1.Left; </div><div class="code_line">&nbsp;&nbsp; &nbsp;R.Top := R.Top + StringGrid1.Top; </div><div class="code_line">&nbsp;&nbsp; &nbsp;R.Bottom := R.Bottom + StringGrid1.Top; </div><div class="code_line">&nbsp;&nbsp; &nbsp;ComboBox1.Left := R.Left + 1; </div><div class="code_line">&nbsp;&nbsp; &nbsp;ComboBox1.Top := R.Top + 1; </div><div class="code_line">&nbsp;&nbsp; &nbsp;ComboBox1.Width := (R.Right + 1) - R.Left; </div><div class="code_line">&nbsp;&nbsp; &nbsp;ComboBox1.Height := (R.Bottom + 1) - R.Top; </div><div class="code_line">&nbsp;&nbsp; &nbsp;//Определяем индекс</div><div class="code_line">&nbsp;&nbsp; &nbsp;ComboBox1.ItemIndex := ComboBoxNumIndex(StringGrid1.Cells[3, ARow], ComboBox1.Items.Text); </div><div class="code_line">&nbsp;&nbsp; &nbsp;//Показываем СomboBox</div><div class="code_line">&nbsp;&nbsp; &nbsp;ComboBox1.Visible := True; </div><div class="code_line">&nbsp;&nbsp; &nbsp;ComboBox1.SetFocus; </div><div class="code_line">&nbsp;&nbsp;end; </div><div class="code_line">&nbsp;&nbsp;CanSelect := True; </div><div class="code_line">end;</div><div class="code_line">&nbsp;</div><div class="code_line">// Ставим ComboBox в позицию текста который отбражен в StringGrid-е</div><div class="code_line">Function ComboBoxNumIndex(TextGrid, TextCombo : String): Integer;</div><div class="code_line">var</div><div class="code_line">&nbsp;NumIndex: Integer;</div><div class="code_line">begin</div><div class="code_line">&nbsp;&nbsp; NumIndex := 0;</div><div class="code_line">&nbsp;&nbsp; while Pos(#13#10, TextCombo) &#60;&#62; 0 do</div><div class="code_line">&nbsp;&nbsp; begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;if Copy(TextCombo, 0, Pos(#13#10, TextCombo)-1) = TextGrid then break</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;else</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;begin</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; NumIndex := NumIndex + 1;</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; TextCombo := Copy(TextCombo, Pos(#13#10, TextCombo)+2, Length(TextCombo));</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;end;</div><div class="code_line">&nbsp;&nbsp; end;</div><div class="code_line">&nbsp;&nbsp; ComboBoxNumIndex := NumIndex;</div><div class="code_line">end;</div></ol></div></div></div></div>]]></description>
        <author>Gugle</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=916295</guid>
        <pubDate>Tue, 15 Nov 2005 00:56:41 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=916295</link>
        <description><![CDATA[--= Eagle =--: Вот ещё дублирующиеся темы: &quot;<span class="tag-color tag-color-named" data-value="blue" style="color: blue">Как преобразовать указатель на метод в указатель на функцию?</span>&quot; и &quot;<span class="tag-color tag-color-named" data-value="blue" style="color: blue">Method pointers --&#62; function pointers</span>&quot;<br>
<br>
З.Ы. Я там подправил один из своих предыдущих постов - нашёл ещё одну дублирующуюся тему (по поводу приоритета приложения)...]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=912813</guid>
        <pubDate>Fri, 11 Nov 2005 08:00:14 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=912813</link>
        <description><![CDATA[s-mike: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=911434'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Ozzя &#064; <time class="tag-quote__quoted-time" datetime="2005-11-10T06:31:31+00:00">10.11.05, 06:31</time></span><div class='quote '>Виталий, компонент MiTeC System Information Component <br>
теперь по адресу<br>
<br>
http://www.mitec.cz/Downloads/MSIC.zip</div></div><br>
Тогда его вообще нужно убрать, потому что он тут без исходников, а в ДРКБ написано Source: Included. А ссылки в FAQ на коммерческие компоненты можно расценивать только как рекламу.]]></description>
        <author>s-mike</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=911434</guid>
        <pubDate>Thu, 10 Nov 2005 06:31:31 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=911434</link>
        <description><![CDATA[Булат Шакиров: Виталий, компонент MiTeC System Information Component <br>теперь по адресу<br><br>http://www.mitec.cz/Downloads/MSIC.zip]]></description>
        <author>Булат Шакиров</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=896994</guid>
        <pubDate>Wed, 26 Oct 2005 11:43:48 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=896994</link>
        <description><![CDATA[Vit: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=892111'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Ozzя &#064; <time class="tag-quote__quoted-time" datetime="2005-10-21T06:48:33+00:00">21.10.05, 06:48</time></span><div class='quote '>Виталий, если не трудно, поменяйте, пожалуйста, везде буффер на буфер.</div></div><br>
<br>
<br>
Обязательно&#33; Хех... сказывается мой английский...]]></description>
        <author>Vit</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=892111</guid>
        <pubDate>Fri, 21 Oct 2005 06:48:33 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=892111</link>
        <description><![CDATA[Булат Шакиров: Виталий, если не трудно, поменяйте, пожалуйста, везде <strong class='tag-b'>буффер</strong> на буфер.]]></description>
        <author>Булат Шакиров</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=850743</guid>
        <pubDate>Thu, 08 Sep 2005 11:57:40 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=850743</link>
        <description><![CDATA[--= Eagle =--: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Vit, 08.09.2005, 14:10:55, 850676</span><div class='quote '>Спросить можно, но пока не знаю когда дойдут руки - работаю сейчас на двух работах, иногда и поспать не удаётся </div></div><br>
Сочувствую.... :(]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=850676</guid>
        <pubDate>Thu, 08 Sep 2005 11:10:55 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=850676</link>
        <description><![CDATA[Vit: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=849732'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Ozzя &#064; <time class="tag-quote__quoted-time" datetime="2005-09-07T13:41:44+00:00">07.09.05, 13:41</time></span><div class='quote '>закрыт временно<br>
Надолго? </div></div><br>
<br>
Хех... были проблемы с сервером и хостингом, вроде как вчера решились, как дойдут руки - открою сайт <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2005-09-08T11:13:36+00:00">08.09.05, 11:13</time></span></span><br>
<div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=850672'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>&#045;&#045;= Eagle =&#045;&#045; &#064; <time class="tag-quote__quoted-time" datetime="2005-09-08T11:09:06+00:00">08.09.05, 11:09</time></span><div class='quote '>Это хорошо  А когда, можно спросить, будет новая версия, &quot;исправленная и дополненная&quot;?  Ждём-с </div></div><br>
<br>
Спросить можно, но пока не знаю когда дойдут руки - работаю сейчас на двух работах, иногда и поспать не удаётся]]></description>
        <author>Vit</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=850672</guid>
        <pubDate>Thu, 08 Sep 2005 11:09:06 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=850672</link>
        <description><![CDATA[--= Eagle =--: Две темы из [<span class="tag-color tag-color-named" data-value="blue" style="color: blue">Системные функции и WinAPI - Работа с железом - Конфигурация железа</span>] &amp; [<span class="tag-color tag-color-named" data-value="blue" style="color: blue">Разработка приложений - Вопросы защиты и взлома програм</span>] дублируются один к одному: <strong class='tag-b'>Узнать не запущено ли приложение под Virtual PC?</strong> и <strong class='tag-b'>Как определить, работает ли программа в виртуальной машине Connectrix?</strong> , а также <strong class='tag-b'>Как определить, работает ли программа в виртуальной машине VMware?</strong> и <strong class='tag-b'>Узнать не запущено ли приложение под VMware?</strong><br>
<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Vit, 07.09.2005, 15:37:23, 849646</span><div class='quote '>Я никому проект не передавал </div></div><br>
Это хорошо :) А когда, можно спросить, будет новая версия, &quot;исправленная и дополненная&quot;? ;) Ждём-с :yes:]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=849732</guid>
        <pubDate>Wed, 07 Sep 2005 13:41:44 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=849732</link>
        <description><![CDATA[Булат Шакиров: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=849646'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Vit &#064; <time class="tag-quote__quoted-time" datetime="2005-09-07T12:37:23+00:00">07.09.05, 12:37</time></span><div class='quote '>Я никому проект не передавал</div></div><br>
drkb.ru<br>
закрыт временно<br>
Надолго?]]></description>
        <author>Булат Шакиров</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=849721</guid>
        <pubDate>Wed, 07 Sep 2005 13:35:16 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=849721</link>
        <description><![CDATA[Bas: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=849646'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Vit &#064; <time class="tag-quote__quoted-time" datetime="2005-09-07T12:37:23+00:00">07.09.05, 12:37</time></span><div class='quote '>Я никому проект не передавал </div></div><br>
Рад  что Ты есть.]]></description>
        <author>Bas</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=849646</guid>
        <pubDate>Wed, 07 Sep 2005 12:37:23 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=849646</link>
        <description><![CDATA[Vit: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=848743'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>&#045;&#045;= Eagle =&#045;&#045; &#064; <time class="tag-quote__quoted-time" datetime="2005-09-06T20:49:43+00:00">06.09.05, 20:49</time></span><div class='quote '>З.Ы. Кто-то сейчас поддерживает проект? </div></div><br>
<br>
Я никому проект не передавал]]></description>
        <author>Vit</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=848908</guid>
        <pubDate>Wed, 07 Sep 2005 05:57:13 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=848908</link>
        <description><![CDATA[Bas: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=848743'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>&#045;&#045;= Eagle =&#045;&#045; &#064; <time class="tag-quote__quoted-time" datetime="2005-09-06T20:49:43+00:00">06.09.05, 20:49</time></span><div class='quote '> Кто-то сейчас поддерживает проект? </div></div><br>
<strong class='tag-b'>Vit</strong>]]></description>
        <author>Bas</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=848743</guid>
        <pubDate>Tue, 06 Sep 2005 20:49:43 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=848743</link>
        <description><![CDATA[--= Eagle =--: Темы &quot;<span class="tag-color tag-color-named" data-value="blue" style="color: blue">Как увеличить процессорное время, выделяемого программе?</span>&quot;, &quot;<span class="tag-color tag-color-named" data-value="blue" style="color: blue">Как получить / установить приоритет процесса?</span>&quot; и &quot;<span class="tag-color tag-color-named" data-value="blue" style="color: blue">Как поменять приоритет моего приложения</span>&quot;имеют лишь небольшие отличия, имеет смысл их объединить, обрезав всё лишнее. :)<br>
<br>
<br>
Из трёх аналогичных примеров отлова WM_HOTKEY, примеры <span class="tag-color tag-color-named" data-value="blue" style="color: blue">Как назначить горячие клавиши?</span> и <span class="tag-color tag-color-named" data-value="blue" style="color: blue">Регистрируем горячие клавиши </span>не работают, а <span class="tag-color tag-color-named" data-value="blue" style="color: blue">Выставляем горячие клавиши для Delphi приложения </span>- работает нормально.]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=828441</guid>
        <pubDate>Tue, 16 Aug 2005 06:43:02 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=828441</link>
        <description><![CDATA[Dufa: <strong class='tag-b'>Domino</strong>, Как у меня будет время - думаю заняться исправлением, ну что смогу конечно :D]]></description>
        <author>Dufa</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=828149</guid>
        <pubDate>Mon, 15 Aug 2005 18:04:15 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=828149</link>
        <description><![CDATA[Domino: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>s&#045;mike, 15.08.2005, 10:24:57, 827444</span><div class='quote '>Если хочешь заняться проверкой орфографии - думаю Vit не будет против  ;)  </div></div><br>
Фиг с ней, с орфографией, это не так важно, как приведение всего представленного кода в рабочее состояние и написание комментариев. А там, глядишь, руки и до грамматики дойдут.]]></description>
        <author>Domino</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=827444</guid>
        <pubDate>Mon, 15 Aug 2005 07:24:57 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=827444</link>
        <description><![CDATA[s-mike: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=827399'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Lord &#064; <time class="tag-quote__quoted-time" datetime="2005-08-15T06:47:27+00:00">15.08.05, 06:47</time></span><div class='quote '>даже просто - Орфографических валом</div></div><br>
Если хочешь заняться проверкой орфографии - думаю Vit не будет против ;)]]></description>
        <author>s-mike</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=827399</guid>
        <pubDate>Mon, 15 Aug 2005 06:47:27 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=827399</link>
        <description><![CDATA[Lord: даже просто - Орфографических валом]]></description>
        <author>Lord</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=827221</guid>
        <pubDate>Sun, 14 Aug 2005 19:16:46 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=827221</link>
        <description><![CDATA[Domino: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Dufa, 13.08.2005, 19:12:09, 826647</span><div class='quote '>Ошибки? укажи пальцом - исправим  8-) </div></div><br>
Пожалуйста - код проверки простого числа (<strong class='tag-b'>asm</strong>) нерабочий.  8-)]]></description>
        <author>Domino</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=826647</guid>
        <pubDate>Sat, 13 Aug 2005 16:12:09 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=826647</link>
        <description><![CDATA[Dufa: <strong class='tag-b'>Lord</strong>, Какой такой сочности?<br>
Ошибки? укажи пальцом - исправим 8-)]]></description>
        <author>Dufa</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=822659</guid>
        <pubDate>Wed, 10 Aug 2005 07:00:46 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=822659</link>
        <description><![CDATA[Lord: Против ничего не имею - классный FAQ (сочности нехватает)<br>но очень часто встречаются ошибки <br>(недавно наткнулся на интересный FAQ ?....? ) - и непойму кто у кого копировал   8-) (ошибки идеентичные)]]></description>
        <author>Lord</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=755998</guid>
        <pubDate>Wed, 22 Jun 2005 11:10:42 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=755998</link>
        <description><![CDATA[Михаил К: Спасибо за базу знаний, в частности был доработан под конкретные нужды и использован модифицированный алгоритм шифрования TEA. <br>
(Математика, алгоритмы --&#62; Контрольные суммы и шифрование ... --&#62; Алгоритм шифрования TEA)<br>
При этом обнаружилась в алгоритме досадная ошибочка, в редких случаях приводящая к неправильной расшифровке сообщения.<br>
В процедуре EnCript:<br>
<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">&nbsp;&nbsp;// Определяем позицию размещения ключа в блоке данных </div><div class="code_line">&nbsp;&nbsp;Randomize; </div><div class="code_line">&nbsp;&nbsp;if Len &#60; 255 then </div><div class="code_line">&nbsp;&nbsp; &nbsp;I := Len </div><div class="code_line">&nbsp;&nbsp;else </div><div class="code_line">&nbsp;&nbsp; &nbsp;I := 255; </div><div class="code_line">&nbsp;&nbsp;repeat </div><div class="code_line">&nbsp;&nbsp; &nbsp;I := Random(I); </div><div class="code_line">&nbsp;&nbsp; &nbsp;if I &#60; 4 then I := 4; </div><div class="code_line">&nbsp;&nbsp;//until I &#60;= Len - 16; </div><div class="code_line">&nbsp;&nbsp;// При I := Len - 16 теряется последний байт ключа, при длинне сообщения &#60; (255 - 21)</div><div class="code_line">&nbsp;&nbsp;// Поэтому, наверное лучше написать так (проверено, работает):</div><div class="code_line">&nbsp;&nbsp;until I &#60; Len - 16;</div></ol></div></div></div></div><br>
<br>
А байтик теряется при выполнении вот этого кусочка кода (чуть ниже в той же функции):<br>
<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">&nbsp;&nbsp;// Сдвигаем данные с 14 позиции на одну вправо для метки </div><div class="code_line">&nbsp;&nbsp;// (буфер начинается с нуля) </div><div class="code_line">&nbsp;&nbsp;for A := Len - 1 downto 14 do </div><div class="code_line">&nbsp;&nbsp; &nbsp;ResultBuf[A] := ResultBuf[A - 1];</div></ol></div></div></div></div><br>
<br>
С уважением. Михаил.]]></description>
        <author>Михаил К</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=741019</guid>
        <pubDate>Tue, 07 Jun 2005 05:38:37 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=741019</link>
        <description><![CDATA[Maysa: Ну может просто и не могу :rolleyes:  Просто ищу только тогда, когда не могу сама уже сделать и времени в обрез   :whistle:   Хотя это дело я просмотрела все очень внимательно. Для меня там пока сильно уж все заумно. Ну для ламеров это :D]]></description>
        <author>Maysa</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=739436</guid>
        <pubDate>Sun, 05 Jun 2005 17:15:30 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=739436</link>
        <description><![CDATA[--= Eagle =--: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Maysa, 05.06.2005, 17:10:46, 739313</span><div class='quote '>Почти ничего нет из того что мне нужно  Наверно это не для таких ламеров как я</div></div><br>
Может ты просто не можешь найти то, что тебе нужно? ;) Я, к примеру, когда пишу какой-то проект (программирование пока ещё не моя специальность, поэтому пишу для себя) - почти всегда заглядываю посмотреть, как кто-то другой справился с какой-то конкретной задачей (аглоритмом). :)]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=739336</guid>
        <pubDate>Sun, 05 Jun 2005 14:50:39 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=739336</link>
        <description><![CDATA[Krid: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=81488&view=findpost&p=739313'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Maysa &#064; <time class="tag-quote__quoted-time" datetime="2005-06-05T14:10:46+00:00">05.06.05, 14:10</time></span><div class='quote '>Почти ничего нет из того что мне нужно :( Наверно это не для таких ламеров как я :D</div></div><br>
<strong class='tag-b'>Maysa</strong>, не факт, что никогда не понадобится (все мы когда-то ламерами были :D ).]]></description>
        <author>Krid</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=739313</guid>
        <pubDate>Sun, 05 Jun 2005 14:10:46 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=739313</link>
        <description><![CDATA[Maysa: Скачала сегодня... Почти ничего нет из того что мне нужно  :(  Наверно это не для таких ламеров как я  :D <br><br>У меня такое маленькое пожелание для след версии: было б неплохо если б код выделялся чемнить по типу как на форуме. И Побольше про майнменю&#33;&#33;  8-)]]></description>
        <author>Maysa</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=735412</guid>
        <pubDate>Wed, 01 Jun 2005 14:48:25 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=735412</link>
        <description><![CDATA[--= Eagle =--: &quot;Как создавать потоки без класса TThread?&quot; - топик дублируется]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=680630</guid>
        <pubDate>Tue, 12 Apr 2005 23:01:00 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=680630</link>
        <description><![CDATA[--= Eagle =--: <span class="tag-color tag-color-named" data-value="red" style="color: red">ANSI ---&#62; ASCII </span><br>
<br>
В строке<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">if &nbsp;kod &nbsp;13 then Result[i]:=&#39; &#39;;</div></ol></div></div></div></div><br>
пропущен знак равенства (как я понял), правильно так:<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">if &nbsp;kod=13 then Result[i]:=&#39; &#39;;</div></ol></div></div></div></div>]]></description>
        <author>--= Eagle =--</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=676055</guid>
        <pubDate>Sat, 09 Apr 2005 04:17:28 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=676055</link>
        <description><![CDATA[mikv: Топик:<br>Системные функции и WinAPI-&gt;Реестр и INI файлы-&gt;Как получить событие о смене реестра<br><br>А в топике про то, как отловить изменения содержимого буфера обмена.]]></description>
        <author>mikv</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=672434</guid>
        <pubDate>Wed, 06 Apr 2005 07:11:49 +0000</pubDate>
        <title>Delphi Russian Knowledge Base 2.3</title>
        <link>https://forum.sources.ru/index.php?showtopic=81488&amp;view=findpost&amp;p=672434</link>
        <description><![CDATA[Domino: <div class="tag-mod"><div class="tag-mod__prefix">M</div><div class="tag-mod__body">Deleted by Vit. Все нарекания к форуму сайту и т.п. - в соответствующий раздел&#33; Пока устное предупреждение</div></div>]]></description>
        <author>Domino</author>
        <category>Delphi: Общие вопросы</category>
      </item>
	
      </channel>
      </rss>
	