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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> цвет фона текста, как сделать так чтобы фон не менялся 
V
    Опции темы
lynx13
Дата 25.2.2008, 13:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
У меня такой вопрос..
PM MAIL   Вверх
Rodman
Дата 25.2.2008, 13:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 1
Всего: 122
а че ему меняться? 

в каком компоненте?


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
lynx13
Дата 25.2.2008, 13:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Я на форме отображаю картинку и хочу на этой же форме сделать гаснущие титры, как сделать так чтобы у текста не было черного фона??

Добавлено через 5 минут и 5 секунд
или это un real????
PM MAIL   Вверх
Rodman
Дата 25.2.2008, 14:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 1
Всего: 122
Цитата(lynx13 @  25.2.2008,  12:50 Найти цитируемый пост)
форме отображаю картинку
форма черная штоли? и каким способом текст выводишь?



--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
lynx13
Дата 25.2.2008, 14:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

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

for i:=0 to 255 do
 begin
 Form4.Canvas.Font.Color:=RGB(i,i,i);
 Form4.canvas.Font.Height:=20;
Form4.canvas.TextOut(70,150,'    ÁÅËÎÐÓÑÑÊÈÉ ÍÀÖÈÎÍÀËÜÍÛÉ ÒÅÕÍÈ×ÅÑÊÈÉ ÓÍÈÂÅÐÑÈÒÅÒ');
Form4.canvas.TextOut(70,200,'ÔÀÊÓËÜÒÅÒ  ÈÍÔÎÐÌÀÖÈÎÍÍÛÕ ÒÅÕÍÎËÎÃÈÉ È ÐÎÁÎÒÎÒÅÕÍÈÊÈ');
Form4.canvas.TextOut(70,250,'ÊÀÔÅÄÐÀ: "ÑÈÑÒÅÌÛ ÀÂÒÎÌÀÒÈÇÈÐÎÂÀÍÍÎÃÎ ÏÐÎÅÊÒÈÐÎÂÀÍÈß"');
 Sleep(10);
 end;
for i:=255 downto 0 do
 begin
 Form4.canvas.Font.Color:=RGB(i,i,i);
 Form4.canvas.Font.Height:=20;
Form4.canvas.TextOut(70,150,'    ÁÅËÎÐÓÑÑÊÈÉ ÍÀÖÈÎÍÀËÜÍÛÉ ÒÅÕÍÈ×ÅÑÊÈÉ ÓÍÈÂÅÐÑÈÒÅÒ');
Form4.canvas.TextOut(70,200,'ÔÀÊÓËÜÒÅÒ  ÈÍÔÎÐÌÀÖÈÎÍÍÛÕ ÒÅÕÍÎËÎÃÈÉ È ÐÎÁÎÒÎÒÅÕÍÈÊÈ');
Form4.canvas.TextOut(70,250,'ÊÀÔÅÄÐÀ: "ÑÈÑÒÅÌÛ ÀÂÒÎÌÀÒÈÇÈÐÎÂÀÍÍÎÃÎ ÏÐÎÅÊÒÈÐÎÂÀÍÈß"');
 Sleep(10);
 end; 


Добавлено через 44 секунды
просто я не знаю как на цветной форме подобно сделать)
PM MAIL   Вверх
Poseidon
Дата 25.2.2008, 14:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Я не знаю откуда у тебя там фон, если ты прямо на конве рисуешь. У меня твой код проходит без фона на форме любого цвета. Единственное что могу посоветовать, это установить Form4.DoubleBuffered:= True; что бы не было мерцания и все сделать в потоке или хотя бы натыкать Application.ProcessMessages перед Sleep, а то программа "замирает".


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
lynx13
Дата 25.2.2008, 15:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
У меня сама форма черного цвета..

Добавлено через 2 минуты и 26 секунд
Потом я  картинку загружаю в image и отображаю эту картинку на форму
Код

form4.Canvas.CopyRect(form4.Canvas.ClipRect,image1.Canvas,image1.Canvas.ClipRect);


но когда появляется текст, он получается на черном фоне..

Добавлено через 3 минуты и 41 секунду
а мне надо чтобы текст сам не затирал картинку,можно так сделать или нет?
PM MAIL   Вверх
Poseidon
Дата 25.2.2008, 16:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Цитата(lynx13 @  25.2.2008,  15:08 Найти цитируемый пост)
Потом я  картинку загружаю в image и отображаю эту картинку на форму
Гм. А почему бы не копировать картинку из Image, а просто отображать Image на всю форму? А такст выводить в Label у которого Transparent:= True;



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
lynx13
Дата 25.2.2008, 16:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
 Я просто хочу сделать текст титрами: сначала его нет, потом яркость текста увеличивается до максимума, а потом он постепенно исчезает, и появлеяется другой текст...на чисто черном это можно сделать, а  на другом нет
PM MAIL   Вверх
Poseidon
Дата 25.2.2008, 16:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Ну так делай это на Label. Зачем тебе рисовать на конве?


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
lynx13
Дата 25.2.2008, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
ну так все равно Label не видно из-за картинки...
PM MAIL   Вверх
Poseidon
Дата 25.2.2008, 22:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133
Цитата(lynx13 @  25.2.2008,  17:18 Найти цитируемый пост)
ну так все равно Label не видно из-за картинки... 
  smile 
Так ты "вынеси" Label поверх картинки. Если не знаешь как, то просто кинь сначало Image, а уже потом Label. И цвет шрифта у Label сделай что бы отличался отобщего фона картинки. Делов-то smile



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
ivan219
  Дата 25.2.2008, 23:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 5
Всего: 12
Цитата(Poseidon @  25.2.2008,  22:22 Найти цитируемый пост)
Так ты "вынеси" Label поверх картинки.

А как это сделать???

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
 Canvas.Brush.Style := bsClear;
 Canvas.TextOut(10, 10, 'asdf');
end;


Это сообщение отредактировал(а) ivan219 - 26.2.2008, 00:05


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
Shaggy
Дата 26.2.2008, 03:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 37
Регистрация: 2.5.2007
Где: г.Ижевск

Репутация: 2
Всего: 5
Цитата(lynx13 @  25.2.2008,  15:50 Найти цитируемый пост)
как сделать так чтобы у текста не было черного фона??

Код

SetBkMode(Canvas.Handle,TRANSPARENT);

?
PM MAIL ICQ   Вверх
lynx13
Дата 28.2.2008, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Shaggy   Вяликi Дзякуй!!! smile 
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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