Содержание:

Delphi-источники:

• RTF-Редактор
• RTF-Редактор (способен для работы с графическими объектами)
• Memo-Редактор-Unit
• КАОS-Редактор
• Минимальный HTML-браузер
• TEdit, способен для ввода специальных символов
• ListBox с изображениями
• Тестовая программа: Значок в информационной области панели задач
• Программа для Dirctory-Listing
• Программа для поиска по директорий или файлов
• Unit "DirDialog"
• Универсальный объект для поиска директорий или файлов
• "FontDialog" с уменьшенным предложением шрифтов
• Минимальный "FindDialog"
• Unit "MyMessages" 
• Тестовая программа функций Бесселя J₀(x), J₁(x) и Неймана N₀(x), N₁(x)
• Unit для комплексных расчетов под Delphi 7
• Unit для аналитической геометрии под Delphi 7
• Модифицируемая конвертация чисел с плавающей запятой
• Производить цветной проход
• Обмен цветов в Bitmaps, JPG- или PNG-файлах
• Сравнение и тест цветов
• Scroll-Bar-блок для RGB-цветов в Delphi 7
• Компьютерная графика: "Fractale"
• Компьютерная графика: "PC_Art"
• Будильник
  ————————————
• Информация о Download
• Информация "download = договор с автором"

RTF-Редактор  (папка: "RTF-Editor")  

Исходные Delphi-данные простого RTF-редактора. Программа может использоваться как тексто­вый редактор для TXT- и RTF-файлы. Такие программы находятся достаточно в распоряжении (например, Microsoft WordPad). Тем не менее, исходные данные упомянуты для дальнейших проектов, где такой редактор необходим. Редактор имеет все обыкновенные элементы обслу­живанья. Рис.1 показывает интерфейс обслуживания программы, причем здесь, тем не менее, никакие изображения в тексте не возможны.

RTF-Редактор (способен для работы с графическими объектами)  (папка: "RTF-Editor-grafik")  

Исходные Delphi-данные простого RTF-редактора, у того, в противоположность выше названным, могут вставляться также рисунки из файлов типа BMP, RTF или ICO. Файлы RTF с изображениями могут читаться, например, с WordPad. Цель определения исходных данных тот же самый как наверху. BMP могут вставляться в текст либо с помощью Copy → Paste, либо функцией меню "Insert Picture". Данные типа JPG или ICO могут вставляться только этой функцией меню.

Рис.1: интерфейс обслуживания программы

Memo-Редактор-Unit  (папка: "Memo-Editor-Unit")  

Unit предназначен в качестве дополнения для программ Delphi, работающих с текстовыми файлами. Вы по­лучаете полноценный редактор на базе TMemo.
Редактор вызывается через
procedure ShowMemoEditor(F:TForm;const Capt:String);
F - форма вызова, Capt - Caption для Window. Если Capt='', он создается автоматически. Редакторы можно вы­зывать столько раз, как необходимо. Текущий можно идентифицировать через "Kennung" (0...).
Для чистого завершения необходимо, чтобы в основной программе в разделе "FormClose" было указано следующее
DestroyAllMemoEditors;

Интерфейс Memo-Редактора

КАОS-Редактор  (папка: "K_Editor")  

Программа - простой RTF-редактор, который модифицировался для потребностей при редактировании файлов типа "KEI". Но он не годится, чтобы КАОS-источники коренным образом по-новому создавать. Это должно происходить самой системой КАОS, а если редактором, то есть большая вероятность синтаксических ошибок. Программа, конечно, может использоваться также для редактирования обычных RTF- или TXT файлов.
Для редактора имеются три рабочих модуса:

При способах 1 и 2 с помощью комбинаций клавиш могут вставляться в текст специальные КАОS-символы. Соответствующей кнопкой инструмента могут файлы искаться в папках и откры­ваться.

Набор инструментов интерфейса обслуживания при различных рабочих способах, наверху в
модусе 2 или 3, внизу в модусе 1, для этого объяснение кнопок инструментов

{Последнее изменение: версия 1.0.2 (1.11.2016)}

Минимальный HTML-браузер  (папка: "HTML-Browser")  

Минимальная программа просмотра языка HTML, которая может использоваться как самостоятельная программа чтения для специальных HTML-файлов или может устанавливаться как Unit помощи для справочника в языке HTML в Delphi-проектах.

TEdit, способен для ввода специальных символов  (папка: "SonderZeichenEdit")  

Было желание, иметь возможность, вводить специальные символы шрифта "Symbol", смешаны с символом ANSI-кода потомком TEdit (здесь называется "TSZEdit"), их выписывать в TRichedit и оттуда снова принимать.
Так как только ограниченное количество специальных символов интересно, было бы проще создать собственный шрифт. Так как при этом исходили бы от наличествующего шрифта, поступили бы проблемы из-за авторского права.
Если рассмотрим наборы символов европейских языков при Windows, то бросается в глаза, что область кода от 127 до 191 содержит только немного релевантных символов. Можно определять в этой области максимум 68 интересных специальных символов в таблице (ConvList), и конвертировать символы при и выходе с помощью этой таблицей, работают иначе. Однако, при остальном или при прочем протоке программы (например, в Strings) работаем с новым кодом.
Отображение специальных символов в TSZEdit может происходить о Canvas от TEdit. Внесение в и отбор из TRichEdit происходит с помощью форматирования символов в Rich-тексте.

{Последнее изменение: 1.11.2016}

ListBox с изображениями  (папка: "ListBox with Pictures")  

Тестовая программа для ListBox с изображениями. На следующем рисунке показана тестовая программа.

Тестовая программа: Значок в информационной области панели задач  (папка: "Icon im Infobereich")  

Маленькая тестовая программа, которая демонстрирует минимизацию формы и вставку значка в инфор­мационную области панели задач.

Программа для Directory-Listing  (папка: "Dir_List")  

Сервисная программа "Dir_List" служит для представления иерархии каталога или иерархии файлов на дисководе или суб-каталоге на нем. Изображение показывает интерфейс обслуживания программы.

Боксом дисководов и списком каталогов выбирают каталог запуска поиска. С чек-боксом "+Sub-Dir's" можно задавать просмотр также всех суб-каталогов. Если активирован чек-бокс "только Dir's", то только иерархия каталогов перечисляется. В другом случае происходит листинг иерархии файлов. В поле, предусмотренное для типа файлов, можно устанавливать, какие типы файлов должны учитываться (например, "*.*" значит, все типы, а "*.txt" только текстовые файлы). Если упомянутое приостановлено, нажимают кнопку "Dir Ok", это даёт кнопку запуска свободу.
Панелью "стиль списка" можно влиять на вид списка, который показывает результаты пред­стоящего поиска. С чек-боксами "Абв", "АБВ" или "абв" помещают стиль записи имен в списке: в оригинале, все написано с большими или все написано с маленькими буквами.
При активированном чек-боксе "с Dir's именем" листаются полные пути файлов. В другом случае пишутся только имена файлов без пути. При этом активация чек-бокса "Dir-фильтр" причиняет, что иерархия представляется наглядно, как видно на изображении. Отдельные имена каталогов с путями выписываются при первом появлении, затем они пропущены для лучшей наглядности, вместо этого представляются вертикальные лини. Клавишей "Start" запускается поиск, продолжаться некоторое время.
После успешного поиска активируется клавиша "Save". Так можно сохранить результаты как текстовый файл.
При помощи правой кнопки мыши открывают всплывающее меню с командами "About", "Dir_List Help" и "Copy to Clipboard". Доступ к HTML-справочнику только тогда находится в распоряжении, если файл найден в каталоге программы. Последняя точка меню находится в распоряжении, если в списке одна или несколько строк маркировались. Так можно сохранять их с полными указаниями пути в Windows-клипборд.

Программа для поиска файлов в каталогах  (папка: "SearchProgram")  

Программа "Search" используется для поиска директорий или файлов, начиная с начального каталога в иерархии директоров диска. При этом по желанию, также выполняется поиск в Subdirectories.
Программа может выполнять следующие задачи, выбранные с помощью Combobox "Задача":

Результаты отображаются в списке результатов. Пример его, с раскрытым контекстным меню, видно на верхней изображении. Строки списка можно маркировать одновременно. Команда "Copy" собирает их и по­мещает их в клипборд Windows.
Если выбрана только одна строка, контекстное меню, которое открывается щелчком правой кнопки мыши, предоставляет команду "Open selected File". Если объект не является программой, то по умолчанию откры­вается файл с помощью соответствующего приложения. Кроме того, предлагается функция "goto Directory", позволяющая открыть проводник Windows с директорией файла, и функция "Show Properties", позволяющая просматривать свойства файла.

Unit "DirDialog" (папка: "Dirdialog")  

Диалоговое окно для выбора директорий. (При желании можно создать диалог с или без клавиши "Make Dir".)

Универсальный Object для поисков дректорий или файлов (папка: "universelle FindUnit")  

Необходимая при поиске каталога и файла последовательность от FindFirst- и FindNext вызовам собиралась в универсальном объекте, который может использоваться для самых различных задач поиска. Управление происходит с помощью Flags, Properties и Events. Следующие задачи поиска возможны:

Object ищет файлы заданного типа в установленном каталоге и в суб-каталогах. Результаты поиска соби­раются в StringList.
Object предусмотрен для использования в всяких проектах где сервис поиска нуждаются.

"FontDialog" с уменьшенным предложением шрифтов  (папка: "a Short FontDialog")  

Font-диалог, предлагающий из множества Screen-шрифтов только выбранные имена. По желанию Font- параметр "CharSet" может быть установлен.

Минимальный "FindDialog"  (папка: "a Short FindDialog")  

Часто для небольших редакторов или подобных текстовых программ требуется простой диалог поиска без дополнительных опций. Для этого был создан "ShortFindDlg". С его помощью ищется в текстах без учета регистра и без учёта границ слов.
Действие диалога демонстрируется в "Test_ShrtFindDialog.Unit1". Программа одновременно является приме­ром поиска в тексте TMemo.

Unit "MyMessages"  (папка: "My MessageDlgs")  

Unit с универсальным, центрируемым диалогом сообщения ("MyMessageDlg") и центрируемым ShowMessage ("CenterdShowMessage"). На следующем рисунке показана тестовая программа.

Тестовая программа и подпрограммы: Функции Бесселя J₀(x), J₁(x) и функции Неймана N₀(x), N₁(x)  (папка: "Test Bessel-Fkt")  

Маленькая тестовая программа для подпрограмм с разложениями в ряд упомянутых функций

Unit для комплексных расчетов под Delphi (папка: "Math_Units", → "Math_komplex_R.pas")

Сбор множества (57) процедур и функций для комплексных расчётов, среди прочих, для вычислений с комплексными 2x2-матрицами. Комплексные числа представлены в формате Extended как record (x, y) или эквивалентно как array [1.. 2]. Большинство математических операций выполняются с помощью Proceduren, где используется комплексный аккумулятор (kac). Кроме того, в качестве памяти расчетов, используется скалярный аккумулятор (sac). Для менее точных расчетов параллельно предлагается арифметика на основе формата "Double".

Аналитической геометрии под Delphi 7 (папка: "Math_Units", → "analytic_Gometry_R.pas")

Набор многих (33) процедур и функций для расчётов аналитической геометрии плоскости.
Основные принципы:

Модифицируемая конвертация чисел с плавающей запятой  (папка: "Test FloatOut")  

Функция, которая улучшает конвертацию выхода чисел с плавающей запятой на основе Delphi-Function "FloatToStrF". Маленькая тестовая программа, которая демонстрирует вывод функции при различных параметрах.

Производить цветной проход  (папка: "FarbVerlauf")  

Программа для изготовления точечного рисунка с цветным ходом между указываемыми границами (например, для фона в HTML-файле).

Интерфейс обслуживания программы, генерация линейного цветного хода

Интерфейс обслуживания программы, генерация симметричного цветного хода

Обмен цветов в Bitmaps, JPG- или PNG-файлах  (папка: "FarbTausch")  

Этой сервисной программой можно менять пиксельно цвет точек у файла рисунка как источник ((bmp-, jpg-, jpeg- или png-файл). Цвета рассмотрены как разобраны из трёх компонентов R (красный), G (зелений) и B (синий). В соответствии с этим происходят установки цвета. Цветные компоненты показываются десятичным и шестнадцатеричным кодом. Они приостанавливаются линейками покрутки. Если цветная точка исполняет уточнения, то он заменяется приостановленным цветом цели.

Изображение показывает программы. С → файл → Open открывают исходный файл. Появляется окно с изображением источника. В строке статуса показывается имя файла источника и позиция курсора при движении мыши по изображению. Щелчком правой кнопки мыши на точку изображения вызывают, что RGB-код цвета точки показывается в строке статуса и сохраняется как текст во временной памяти. Если нажимают с помощью правой кнопки мыши на поля "цветная область" или "целевой цвет", то этот цвет переносится туда. Щелчок при помощи левой кнопки мыши на эти поля запускает Color-диалог.
Обмен цветов запускается щелчком на клавишу "Change". Если чек-бокс "сравнение цветового тона" не активирован, то меняются все цветные пункты, которых цветные компоненты лежат в пределах устано­вленных границ. Если чек-бокс активирован, учитываются только точки, тон цвета которых находится в пределах.
В контрольном окне проведенные цветные изменения показываются. С → File → "Save" или "Save as" измененное изображение может сохраняться.
Следующие изображения показывают пример до и после обмена цвета фона

Сравнение и тест цветов   (папка: "ColorTest")  

Часто необходимо найти подходящий RGB-цвет, например, для фона в HTLM, или получить впечатление о действии одного цвета на определённом фоне или просто сравнить два цвета. Для этих целей была создана программа "ColorTest". На следующем изображении показан интерфейс программы. С левой группой скроллбаров можно выбирать цвет фона (внешнее поле), а с правой - тестовый цвет (внутреннее поле).
На изображении отображается всплывающее контекстное меню.

Область (фоновый или тестовый цвет), к которой относятся функции, зависит от того, куда щелкнуть правой кнопкой мыши, чтобы открыть контекстное меню.

Scroll-Bar-блок для RGB-цветов в Delphi 7   (папка: "ColorScrollBars")  

Программы, занимающиеся цветом, часто требуют скроллбаров для трех компонентов цвета. Чтобы мини­мизировать издержки при программировании, были созданы две объекта, которые обобщают для этого необходимые компоненты в GroupBox. В Unit "ColorSB_Unit" они определены ("TColorScrollBarsV" как верти­кальная, а "TColorScrollBarsH" как горизонтальная версия). На следующем изображении показан интерфейс программы тестирования для горизонтальной версии. Вертикальную можно изучить на примере программы "ColorTest".

Компьютерная графика: "Fractale"  (папка: "Computergrafik\Fractale")  

35 лет назад я нашёл программу компьютерной графически на основе фракталов. Алгоритм экспериментально изменялся мной. Кроме того, случайные функции устанавливались для параметров запуска и цветов пикселя. Предложенная программа, при обстоятельствах, производит интересные круглые образцы (пример см. изображение). Их можно записывать в память. Тогдашняя программа в Турбо-Паскале переписалась в последнее время в язык Delphi.

Компьютерная графика: "PC_Art"  (папка: "Computergrafik\PC_Art")  

Программа "PC_Art" возникала параллельно с программой "Fractale". Она базируется на Henon-Изображениях. Алгоритм изменялся экспериментально, так что, как правило, производятся интересные картины (см. изображение).

Будильник  (папка: "Wecker")  

Программа будильника, которая отличается от других, что установка времени для побудки проис­ходит вытягиванием указателя при помощи нажатой левой кнопки мыши, но показывается время для побудки цифровом. Слева показывается актуальная и справа время для побудки. Кнопка между тем служит для активации будильника. Он является тогда красным. Если нажимают при активи­рованном будильнике на клавишу минимизации, то исчезает от окна дисплея и появляется как символ в инфор­мационной области Windows

Информация о Download пакета  

Файл "Delphi-Sources.zip" Объём данных: 13.6 МБ,  распакован: 52.3 МБ Формат: заархивированная Windows-папка (ZIP-архив)

все источники