Форум: "Основная";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];
ВнизТекст Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.491 c