Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.08.30;
Скачать: CL | DM;

Вниз

Canvas   Найти похожие ветки 

 
student_91   (2009-07-01 16:49) [0]

нужно сделать следующее: нарисовать последовательно 5 вертикальных линий. рисование каждой последующей линии происходит через определенный интервал времени. + ко всему для текущей рисующейся линни вывести снизу ее порядковый номер. Вот то что я написал:


procedure TForm1.btn_ExecuteClick(Sender: TObject);
var
 x, I: Integer;
begin
 x := 10;
 for I := 0 to 4 do
 begin
   Canvas.TextOut(x - 3, 35, IntToStr(I + 1));
   Canvas.MoveTo (x, 10);
   Canvas.LineTo (x, 30);

   Inc(x, 10);

   Sleep(750);
 end;
end;


не получается для текущей рисующейся линни вывести снизу ее порядковый номер (предыдущие порядковые номера должны каким-то образом очищаться)


 
MonoLife ©   (2009-07-01 17:12) [1]


> (предыдущие порядковые номера должны каким-то образом очищаться)

очищаться с канвы?
Fillrect(TRect)?


 
Сергей М. ©   (2009-07-01 17:12) [2]

Найди отличия и расскажи нам, для чего они нужны:

procedure TForm1.btn_ExecuteClick(Sender: TObject);
var
x, I: Integer;
TxtColor: TColor;
begin
x := 10;
for I := 0 to 4 do
begin
  Canvas.MoveTo (x, 10);
  Canvas.LineTo (x, 30);
  Canvas.TextOut(x - 3, 35, IntToStr(I + 1));
  Update;
  Sleep(750);
  TxtColor := Canvas.Font.Color;
  Canvas.Font.Color := Color;
  Canvas.TextOut(x - 3, 35, IntToStr(I + 1));
  Canvas.Font.Color := TxtColor;
  Inc(x, 10);
end;
end;


 
MonoLife ©   (2009-07-01 17:13) [3]

И вообще, рисовать лучше в OnPaint() и по таймеру, если ТЗ позволяет..


 
MonoLife ©   (2009-07-01 17:16) [4]


> Сергей М. ©   (01.07.09 17:12) [2]

забавный способ))



Страницы: 1 вся ветка

Текущий архив: 2009.08.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
15-1246370688
Пит
2009-06-30 18:04
2009.08.30
WEB <-> Настройки <-> БД


2-1246624890
Художник
2009-07-03 16:41
2009.08.30
Сброс размера динамического массива


2-1246553624
fics)
2009-07-02 20:53
2009.08.30
Indy IdTelnet


2-1246303725
Dm
2009-06-29 23:28
2009.08.30
Ctrl+Tab, эмуляция в чужом окне.


15-1246470296
@!!ex
2009-07-01 21:44
2009.08.30
Сколько стоит интернет?