|
Тема |
paintbox.canvas.textout |
|
Автор | zomb (Нерегистриран) | |
Публикувано | 18.08.03 13:31 |
|
|
Za po efektno prevyrtane na tekst izpolzvam slednija metod:
procedure TSplash.FormActivate(Sender: TObject);
var i,LineH:integer;
begin
with PaintBox1.Canvas do
begin
Font.Name:='Arial';
Font.Size:=20;
LineH:=TextHeight('0');
for i:=1 to LineH * 10 do
begin
Font.Name:= 'Arial';
Font.Color:=clBlue;
TextOut(40,200 - i,'neshto');
Font.Color:=clNavy;
TextOut(40,200 + lineh - i,'neshto');
Font.Name:='Monotype Corsiva';
Font.Color:=clRed;
TextOut(40,200 + lineh * 2 - i,'neshto');
TextOut(40,200 + lineh * 3 -i ,' ');
Delay (0,9);
end;
//MessageBeep(0);
end;
end;
procedure TSplash.Delay(Seconds, MilliSec: Word);
var TimeOut:TDateTime;
begin
TimeOut:= Now + EncodeTime(0, Seconds div 60,
Seconds mod 60, MilliSec);
while Now < TimeOut do
Application.ProcessMessages;
end;
Problemat tuk e che pri prevyrtaneto teksta premigva.
Kak bi mogyl da se reshi tozi problem?
|
| |
|
|
|