| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Текст [D6, D7, WinXP]

Ivolg ©   (2004-12-18 18:20:00) 

Привет всем! как не можно вывести текст, который плавно исчезает и появляется? СПАСИБО!!!!!!!

---

Yanis   (2004-12-18 21:07:00) [1]

Да. Вставь перед while:

Image1.Canvas.Font.Name := 'Comic Sans MS';


---

Ivolg   (2004-12-18 19:36:00) [2]

Yanis! спасибо!!!!
А можно ещё и шрифт любой вывести на канву?

---

Yanis   (2004-12-18 19:16:00) [3]

i - не нужна.

---

Yanis   (2004-12-18 19:15:00) [4]

> текст, который плавно исчезает и появляется?


var
 i:Integer;
 r,g,b: Byte;
 c: TColor;
begin
 Image1.Canvas.Font.Size := 24;
 Image1.Canvas.TextOut(1,1,'Hi all!');

 C := Image1.Canvas.Pen.Color;
 while true do
   begin
     R := GetRValue(C);
     G := GetGValue(C);
     B := GetBValue(C);

     Inc(R);
     Inc(G);
     Inc(B);

     C := RGB(R,G,B);
     Image1.Canvas.Font.Color := C;
     Image1.Canvas.TextOut(1,1,'Hi all!');
     {---}
     Sleep(1);
     Image1.Update;
   end;


---

AlterEgo of WondeRu   (2004-12-18 18:50:00) [5]

Ivolg   (18.12.04 18:28) [4]
а можно с помошью Канвы?
можно! рисовать на ней градциями серого!

---

Ivolg   (2004-12-18 18:28:00) [6]

а можно с помошью Канвы?

---

Ivolg   (2004-12-18 18:25:00) [7]

его медленно не по меняешь! :((

---

GuAV   (2004-12-18 18:25:00) [8]

А если серьёзно то если тескт на одноцветном фоме, то менять цвет в таймере иначе - альфабленд, но это только 2К/ХР

---

GuAV   (2004-12-18 18:22:00) [9]

Меедленно-меедленно меняй свойство Visible :-)

---

Наверх