Текущий архив: 2005.01.02;
Скачать: CL | DM;

Вниз

Текст   Найти похожие ветки 

← →
Ivolg   (2004-12-18 18:20) [0]

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

---

← →
GuAV ©   (2004-12-18 18:22) [1]

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

---

← →
Ivolg   (2004-12-18 18:25) [2]

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

---

← →
GuAV ©   (2004-12-18 18:25) [3]

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

---

← →
Ivolg   (2004-12-18 18:28) [4]

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

---

← →
AlterEgo of WondeRu ©   (2004-12-18 18:50) [5]

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

---

← →
Yanis ©   (2004-12-18 19:15) [6]

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


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;


---

← →
Yanis ©   (2004-12-18 19:16) [7]

i - не нужна.

---

← →
Ivolg   (2004-12-18 19:36) [8]

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

---

← →
Yanis ©   (2004-12-18 21:07) [9]

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

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


---

Страницы: 1 вся ветка

Текущий архив: 2005.01.02;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.046 c