[Antidelphik]

Доброй ночи или кто когда читает гостям темы =) нароооод, помогите пожалуйста, я вот не знаю, как нарисовать следующую штуку:
надо нарисовать российский флаг и чтобы он двигался по периметру экрана,нарисовать флаг я могу,НО, я его рисую полосками, но так, чтобы они выкладывались в российский флаг, следовательно если чё-то двигать, то там двигаться будет только одна полоска, остальные ж на месте стоять будут, вот я не знаю что делать, помогите а?

[Antidelphik]

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

[SawA]

Сообщение от Antidelphik

я его рисую полосками,

так нарисуй одну полоску но шоб там 3 цвета сразу были вчем проблема?

[Antidelphik]

так,а как так нарисовать? смотри, тут одна тонкость

Код:

 with Image1.Canvas do
  begin
   brush.Color:=clWhite;
   rectangle(0,Image1.Height div 2,Image1.Width div 2,0);
   brush.Color:=clBlue;
   rectangle(0,Image1.Height div 3,Image1.Width div 2,Height div 6);
   brush.Color:=clRed;
   rectangle(0,Image1.Height div 2,Image1.Width div 2,Height div 3);
  end;

видишь? я сначала задаю большой прямоугольник, потом на нем как бы рисую ещё 2 прямоугольничка, так если двигать, то двигаться то всё равно будет только 1 из них

[SawA]

Кстати если тебе просто нужно создать эфект перемещения к примеру по форме то перемещай объект image можно через тотже таймер или к примеру по кнопкам

[Bargest]

Если рисовать на компоненте TImage то можно вообще просто его двигать:

Код:

image1.left:=x;
image1.top:=y;

А если надо именно на экране, то можно двигать саму форму. Только надо её границы убрать чтоб не мешались.

[Antidelphik]

ааааа, афигеть, я ничего этого не знаю =( в делфи чайник, но пытаюсь что-то сделать, а как через таймер кстати делать я не знаю =(((

[Bargest]

Анимация всегда делается одинаково:
1) стираем все
2) рисуем в новом месте

Соответственно тут то же самое:
1) рисуем серый прямоугольник на форме чтоб все стереть
2) рисуем флаг в новых координатах.

и не пойму, что мешает рисовать по координатам X и Y и по таймеру их менять.

Не проще так?

Код:

   brush.Color:=clWhite;
   rectangle(X,Y,X+100,Y+200);
   brush.Color:=clBlue;
   rectangle(X+100,Y,X+200,Y+200);
   brush.Color:=clRed;
   rectangle(X+200,Y,X+300,Y+200);

или что-нибудь в этом духе?