![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Подскажите пожалуйста как с делать так чтобы на 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, 22.10.2009 в 10:36. |
#2
|
||||
|
||||
![]() Можно к примеру по таймеру перерисовывать эти же линии, но с разными цветами...
Код:
//Установить красный цает линий 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, 22.10.2009 в 10:36. |
#3
|
||||
|
||||
![]() Тогда уж лучше не двумя цветами пользоваться:
Код:
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); Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#4
|
|||
|
|||
![]() всем огромное спасибо очень помогли ))))
SOS еще один вопрос как седлать так чтобы при нажатий на Button3 не только останавливались таймеры но и procedure TForm1.Button1Click(Sender: TObject); перерисовывался подскажите что вписать Button3 ???? Код HTML:
Последний раз редактировалось mazay, 23.10.2009 в 02:48. |