[mazay]

Подскажите пожалуйста как с делать так чтобы на Canvas , LineTo стал мерцать после нажатия клавиши на форме . (походу через таймер нужно, но как его прописать что не веду )
Какие есть вообще способы мерцания на Canvas ??

кому не трудно на пищите код для прямой

Код:

var 
x0,y0: Integer; 
Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormActivate(Sender: TObject); 
begin 
x0:=10; 
y0:=10; 
Form1.Image1.Canvas.MoveTo(x0,y0); 
Form1.Image1.Canvas.LineTo(x0+200,y0); 
end;

Admin: Пользуемся тегами!

Очень нужно применить меганите , а сам еще чайник =((

[NIch]

Можно к примеру по таймеру перерисовывать эти же линии, но с разными цветами...

Код:

//Установить красный цает линий
Form1.Image1.Canvas.Pen.Color := clRed;
Form1.Image1.Canvas.MoveTo(x0,y0); 
Form1.Image1.Canvas.LineTo(x0+200,y0);
//Установить синий цвет линий
Form1.Image1.Canvas.Pen.Color := clBlue;
Form1.Image1.Canvas.MoveTo(x0,y0); 
Form1.Image1.Canvas.LineTo(x0+200,y0);

Admin: Пользуемся тегами!

[Страдалецъ]

Тогда уж лучше не двумя цветами пользоваться:

Код:

Inc(R,DR);
if R>255 then DR := -1;
if R<127 then DR := 1;
Form1.Image1.Canvas.Pen.Color := RGB(R,0,0);
Form1.Image1.Canvas.MoveTo(x0,y0); 
Form1.Image1.Canvas.LineTo(x0+200,y0);

[mazay]

всем огромное спасибо очень помогли ))))
SOS
еще один вопрос
как седлать так чтобы при нажатий на Button3 не только останавливались таймеры но и procedure TForm1.Button1Click(Sender: TObject);
перерисовывался
подскажите что вписать Button3 ????

var
x0,y0: Integer;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Image1.Canvas.Pen.Color := clWhite;
Form1.Image1.Canvas.MoveTo(x0,y0);
Form1.Image1.Canvas.LineTo(x0+200,y0);
 begin
      timer1.Enabled:=false;
      timer2.Enabled:=true;
    end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Form1.Image1.Canvas.Pen.Color :=clBlack;
Form1.Image1.Canvas.MoveTo(x0,y0);
Form1.Image1.Canvas.LineTo(x0+200,y0);
  begin
      timer1.Enabled:=true;
      timer2.Enabled:=false;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
x0:=10;
y0:=10;

Form1.Image1.Canvas.MoveTo(x0,y0);
Form1.Image1.Canvas.LineTo(x0+200,y0);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
timer1.Enabled:=false;
timer1.Enabled:=false;
end;

end.