Web-Site Dr. Grigo
Исходные Delphi-данные

Содержание:

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


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-Editor.gif
Интерфейс Memo-Редактора

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

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

Модус 1Редактирование КАОS-источников
Модус становится при открытии файла типа KEI или при создании нового файла с кнопкой "New File". В распоряжении находятся ряд сервисных услуг, которые имеют смысл только для КАОS-истоков.
Модус 2Редактирование RTF-файлов
Модус установлен после запуска программы, после открытия файла типа RTF или после отменом диа­лога для создания нового файла кнопкой "New File".
Модус 3Редактирование текст- и прочих файлов
Модус становится при открытии текстового файла, который не типа KEI или RTF. Внешне он не отли­чается от второго, только при выдаче RTF-формат подавляется. Если обычный текстовый файл был за­гружен, форматирование текста (и вместе с тем переход на модус 2) может происходить без проблем и новый текст может сохраняться как RTF-файл.

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

Tool-Leisten

Набор инструментов интерфейса обслуживания при различных рабочих способах, наверху в
модусе 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-тексте.

TSZEdit

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


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

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

Picture_ListBox

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

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


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

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

Интерфейс обслуживания 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")  

File Suchen

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

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

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


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

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

DirDialog

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

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

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

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


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

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

MyFontDialog

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

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

ShrtFindDlg

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

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

MyMessageDlg

Тестовая программа и подпрограммы: Функции Бесселя J0(x), J1(x) и функции Неймана N0(x), N1(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) процедур и функций для расчётов аналитической геометрии плоскости.
Основные принципы:

Векторы представлены в формате Extended как record (x, y) или эквивалентно этому, как array [1.. 2], и во многих операциях обнаруживается комплексный аккумулятор (kac). Кроме того, в качестве памяти расчетов используется скалярный аккумулятор (sac). Для значений направления используется вектор направления (длина = 1), в следующем изображении показаны четыре функции в качестве примера.
analytische Geometrie

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

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


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

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

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

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

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

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

интерфейс обслуживания FarbTausch
интерфейс обслуживания программы "Farbtausch"

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

.
Пример перед цветным обменом

Пример после цветного обмена

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

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

- Используйте функцию "Save Sample to Clipboard", чтобы получить 50x50-Pixel-Bitmap с цветом в клип-
борде.
- Используйте функцию "Color-Code to Clipboard", чтобы взять RGB-код цвета как текст в клипборд.
- Используйте функцию "Save Sample to File" для открытия диалогового диалога выхода для выбора имени
файла с 50x50-Pixel-Bitmap с цветом.
- Используйте функцию "Get Color from Dialog" для открытия диалоа для выбора цвета.
- Функция "Get Sample from Clipboard" предполагает размещение изображения битмеп-формата или текстой
строки с цветовым кодом RGB в клипборде. Если изображение, то она открывается внутренне и прини-
мается цвет центральной точки.
- Используйте функцию "Get Sample from File", чтобы внутренне открыть BMP-файл и применить цвет
центральной точки.

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

ColorTest

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

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

ColorScrollBars

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

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

Beispiel fьr Fractale

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

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

Beispiel fьr PC_Art

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

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

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

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

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

download
Замечание:
Папку Delphi_Sources из ZIP-архива копировать в любую обыкновенную папку.


E-Mail to: grigo-shf@yandex.ru