Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Слайд шоу со сведением 2х изображений, Трудности с размещением текста... 
:(
    Опции темы
wsr
Дата 29.9.2006, 22:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Fuzzy Logic
*


Профиль
Группа: Участник
Сообщений: 142
Регистрация: 3.7.2005

Репутация: нет
Всего: 2



Привет всем. У меня следующий вопрос по обработке изображений: "Возможно ли сделать аналог слайд шоу (как в ACDSee) используя свои эффекты для перехода одного изображения в другое? И при этом поверх изображения должна находиться надпись из произвольного текста."
Я сам всегда все делаю, но уж если совсем никак не могу, то обращаюсь за помощью.

Есть такой компонент PicShow (прилагается в архиве - добавить в любой уже существующий пакет, после станет доступна вкладка DelphiArea где и лежит этот самый компонент). Он меня вполне устраивает, но вот поверх него нельзя распологать компоненты типа TLabel. Можно использовать TStaticText, но вот у меня проблемка : у этого компонента не могу убрать фон и это очень мешает (скрин прилагаю).
user posted image

У кого есть какие варианты, предлагайте. Может можно все таки сделать фон у TStaticText прозрачным? Может есть уже готовые кмпоненты или варианты решения подобных задач?

P.S. использую Delphi 7. Какая информация от меня еще нужна, сообщу. После решения задачи поделюсь сорцами, если кому нужно!

--------------------
 ICQ : 918-318Сайт : Lock-Team 
PM MAIL WWW ICQ   Вверх
Snowy
Дата 29.9.2006, 22:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484



Цитата(wsr @  29.9.2006,  22:36 Найти цитируемый пост)
Может можно все таки сделать фон у TStaticText прозрачным?
Да, обычный TLabel имеет свойство Transparent, которое просто можно установить в true

Цитата(wsr @  29.9.2006,  22:36 Найти цитируемый пост)
Может есть уже готовые кмпоненты или варианты решения подобных задач?
Конечно есть.
Банальная WinAPI функция DrawText или TextOut - выбирай любую.
TextOut проще, DrawText поддерживает выравнивание.
PM MAIL   Вверх
wsr
Дата 29.9.2006, 23:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Fuzzy Logic
*


Профиль
Группа: Участник
Сообщений: 142
Регистрация: 3.7.2005

Репутация: нет
Всего: 2



Цитата(wsr @  29.9.2006,  22:36 Найти цитируемый пост)
поверх него нельзя распологать компоненты типа TLabel. 

Snowy По этому простой TLabel не пойдет. У TStaticText Тоже есть парамерт transparent, но вот эффектов от его изменения я не наблюдаю.

Если можешь, дай какой нить простенький пример по указанным функциям.
--------------------
 ICQ : 918-318Сайт : Lock-Team 
PM MAIL WWW ICQ   Вверх
Snowy
Дата 29.9.2006, 23:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484



Цитата(wsr @  29.9.2006,  23:03 Найти цитируемый пост)
Если можешь, дай какой нить простенький пример по указанным функциям.

Ну тут далеко ходить не нужно.
Вот глава из книги: http://forum.vingrad.ru/index.php?showtopi...amp;hl=drawtext
Тут всё подробно рассказано.
А также примеры - поиск по форуму.
Поскольку это WinAPI функция, то справка по ней есть в Delphi - Windows SDK Help и MSDN.
Выбирай любой источник smile

Добавлено @ 23:15 
Забыл ещё FAQ упомянуть.
А там масса интересного smile
http://forum.vingrad.ru/index.php?act=modu...amp;section=566
В том числе целый раздел "Манипуляции с текстом"
PM MAIL   Вверх
Alexeis
Дата 29.9.2006, 23:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459



Код

procedure TForm1.btn1Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('H:\Рисунки\фон\Облака.bmp');
  SetBkMode(Image1.Canvas.Handle, TRANSPARENT);
  Image1.Canvas.TextOut(50, 50, 'пример текста');
end;



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
wsr
Дата 29.9.2006, 23:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Fuzzy Logic
*


Профиль
Группа: Участник
Сообщений: 142
Регистрация: 3.7.2005

Репутация: нет
Всего: 2



Всем спасибо. Будем разбираться.
--------------------
 ICQ : 918-318Сайт : Lock-Team 
PM MAIL WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »


 




[ Время генерации скрипта: 0.0509 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.