Re:Making Text Flash
Depends on the affect you want...that's what's so neat to writing your own
programs.
Here's one way. I put a timer on a form, and a global bool hot, and...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if hot then
begin
Image1.Canvas.Brush.Color:=clBlack;
Image1.Canvas.Font.Color:=clRed;
Image1.Canvas.TextOut(x,y,'Hello World!');
end else
begin
Image1.Canvas.Brush.Color:=clWhite;
Image1.Canvas.Font.Color:=clRed;
Image1.Canvas.TextOut(x,y,'Hello World!');
end;
hot:=not hot;
end;
Quote
"Lee Cook" <l...@leekey.karoo.co.uk> wrote in message
news:3d36a084_2@dnews...
Quote
> Hi
> I have an application and I am using Canvas.Textout to draw on to the
canvas
> of a timage. If I have the word "HELLO" in red on a black background is
> their a way I can make the word flash. I am using delphi v6 pro.
> Thanks in Advance
> Lee
