Понедельник, 20.05.2024
Королевство Delphi
Главное меню
Статьи
Наш опрос
Нашли свой исходник?
Всего ответов: 94
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Файлы » Исходники » Компоненты Delphi

Text3D
07.11.2010, 22:55
Скачать Delphi 7
Компонент вывода на экран трехмерного текста средствами OpenGL.
Совместимость - Delphi 5 и выше.

Установка компоненнта.
Выбрать в меню
Component - Install Component и указать путь к папке, где лежит содержимое архива
Затем необходимо нажать Compile в появившемся окне.

Если все сделано правильно, то в палитре компонентов во вкладке Standard появится иконка комопнента.

Работа компонента.
Если, поместив компонента на форму, выбрать в окне инспектора свойство Active и поставить его значение true, то можно будет увидеть предварительный результат :-)

Назначение свойств.
Active - вкл/выкл
AngleX, AngleY - углы поворота
AnimationSet - набор флагов, характеризующих вид анимации

  // возможные виды анимации
  TAnimationType = (atFixedRotation,  // обычное вращение всего текста
                    atWave,           // волна
                    atHorWave,        // волна в плоскости горизонта
                    atSingleWave,     // единичная волна
                    atHorSingleWave,  // единичная волна в плоскости горизонта
                    atZoomWave,       // единичная волна с увеличением
                    atRotation);      // буковки вращаются

BackColor и FontColor - цвет текста и фона
ChangeStyle - вид анимированной смены строк при задании многострочного текста
DefaultRotation - скорость вращения текста при установленном флаге atFixedRotation (в AnimationSet) в случае, когда св-во NewRowDElay = 0
FontName, FontSize, FontStyle, FontCharset - св-ва шрифта
Items - задаваемый текст
LeftOffset - смещение текста влево
LightIntensity - яркость (0..255)
LinesCount - количество одновременно показываемых строк при многострочном тексте
LiteraDepth - толщина букв вдоль оси Z (вглубину)
LiterasGap - расстояние между буквами
NewRowDelay - пауза в мс. между сменами строк. Если NewRowDelay = 0, то переключение производится вручную вызовом метода ChangeLines
RefreshDelay - пауза между кадрами в мс.
RowsGap - расстояние между строками
Scale - общий масштаб
TopOffset - смещение вверх
VisionAngle - угол обзора в градусах
WaveAmplitude - амплитуда в анимации

RowIndex (только в RunTime) - текущий индекс первой из показываемых строк

События
OnLinesChanging - возникает при смене строк
OnAnimateCycleDone - когда завершился цикл анимированных действий (применим только для последних 4х флагов в TAnimationType)

Версия 1.2
  Добавлено свойство Quality (для слабых машин)
  Убран баг переполнения индекса при изменении текста
  Убран баг сброса таймера при изменении типа анимации
  Добавлены в published все основные свойства родителя - TCustomPanel

Версия 1.1
  Проверка на работоспособность...

Обратная связь.
Oe-5ye@yandex.ru
Дегтярев Константин
Пишите. Мне очень важно знать Ваше мнение.
[ Скачать с сервера (24.5 Kb) ]
Категория: Компоненты Delphi | Добавил: Барон | Теги: Text, 3D
Просмотров: 1273 | Загрузок: 125 | Рейтинг: 0.0/0
[ Пожертвования для сайта ] [ Пожаловаться на материал ]

Если вам помог материал сайта кликните по оплаченной рекламе размещенной в центре

Поиск
Категории раздела
Базы данных [71]
Видео [9]
Графика [240]
Защита [58]
Звук [47]
Игры [134]
Компиляторы [7]
Математика [74]
Сеть-интернет [133]
Сжатие данных [14]
Система [237]
Текст [66]
Робота с временем [27]
Разное [109]
Исходники пользователей [1]
Компоненты Delphi [81]
Королевство Delphi © 2010-2024
Яндекс цитирования