Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > цвет фона текста

Автор: lynx13 25.2.2008, 13:47

У меня такой вопрос..

Автор: Rodman 25.2.2008, 13:50

а че ему меняться?

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

Автор: lynx13 25.2.2008, 13:50

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

Добавлено через 5 минут и 5 секунд
или это un real????

Автор: Rodman 25.2.2008, 14:00

Цитата(lynx13 @ 25.2.2008, 12:50

)

форме отображаю картинку

форма черная штоли? и каким способом текст выводишь?

Автор: lynx13 25.2.2008, 14:03

Код


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 секунды
просто я не знаю как на цветной форме подобно сделать)

Автор: Poseidon 25.2.2008, 14:48

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

Автор: lynx13 25.2.2008, 15:08

У меня сама форма черного цвета..

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

Код


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

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

Добавлено через 3 минуты и 41 секунду
а мне надо чтобы текст сам не затирал картинку,можно так сделать или нет?

Автор: Poseidon 25.2.2008, 16:45

Цитата(lynx13 @ 25.2.2008, 15:08

)

Потом я картинку загружаю в image и отображаю эту картинку на форму

Гм. А почему бы не копировать картинку из Image, а просто отображать Image на всю форму? А такст выводить в Label у которого Transparent:= True;

Автор: lynx13 25.2.2008, 16:52

Я просто хочу сделать текст титрами: сначала его нет, потом яркость текста увеличивается до максимума, а потом он постепенно исчезает, и появлеяется другой текст...на чисто черном это можно сделать, а на другом нет

Автор: Poseidon 25.2.2008, 16:59

Ну так делай это на Label. Зачем тебе рисовать на конве?

Автор: lynx13 25.2.2008, 17:18

ну так все равно Label не видно из-за картинки...

Автор: Poseidon 25.2.2008, 22:22

Цитата(lynx13 @ 25.2.2008, 17:18

)

ну так все равно Label не видно из-за картинки...

Так ты "вынеси" Label поверх картинки. Если не знаешь как, то просто кинь сначало Image, а уже потом Label. И цвет шрифта у Label сделай что бы отличался отобщего фона картинки. Делов-то smile

Автор: ivan219 25.2.2008, 23:59

Цитата(Poseidon @ 25.2.2008, 22:22

)

Так ты "вынеси" Label поверх картинки.

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

Код


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

Автор: Shaggy 26.2.2008, 03:24

Цитата(lynx13 @ 25.2.2008, 15:50

)

как сделать так чтобы у текста не было черного фона??

Код


SetBkMode(Canvas.Handle,TRANSPARENT);

Автор: lynx13 28.2.2008, 15:10

Shaggy Вяликi Дзякуй!!! smile

Автор: aalexstorm 10.3.2008, 15:37

Добавь одну строчку:

Код


Form1.canvas.DrawingStyle=clTransparent;

Автор: VICTAR 10.3.2008, 16:45

aalexstorm, это из какой вообще оперы?