Board index » delphi » Blinking Text

Blinking Text


2005-05-11 08:47:03 AM
delphi18
Is there a simple way to make text blink after it has been painted in a
paintbox with the TextOut method?
 
 

Re:Blinking Text

George Kuascha writes:
Quote
Is there a simple way to make text blink after it has been painted in a
paintbox with the TextOut method?
No.
If it is on a plain colour background, just repaint it with a different
colour every time a timer fires. Something like this untested example:
var red:boolean;
procedure timer1ontimer(sender:tobject);
begin
red:=not red;
if red then
mycanvas.font.color:=clred else
mycanvas.font.color:=clwhite;
mycanvas.textout(5,5,'Hello!');
end;
Cheers,
Nicholas Sherlock