Графики в Делфи!

[Anton5]

Помогите, пожалуйста!!!
Нужно Изобразить на экране решетчатую модель шара и реализовать ее перемещение по командам с клавиатуры в пределах экрана.
Не получается ничего. (

Заранее, спасибо!

[Stilet]

Как эллипсы рисовать на канве ты знаешь?

[romlo]

Нарисуй в paint решётчатый шар, помести его в компонент image, поставь
у формы key preview := true и обрабатывай on_key_press.

[Anton5]

Эллипс рисовать умею, а как нарисовать решётчатый шар - понятия не имею.... Помогите .. (

[romlo]

Знаком с PaintNet?

[romlo]

А вообще, вот тебе готовый шар.

[Anton5]

С PaintNet не знаком, так как нарисовать этот шар?

[DeKot]

В обычном Paint рисуете круг, делаете несколько копий круга (4-5). Каждую копию выделяете и сжимаете по одной стороне до разных эллипсов. Накладываете полученые эллипсы на первоначальный круг.Получите пол-сетки по одной координате. Опять делаем копию, поворачиваем на 90 градусов и накладываем на исходный рисунок. Получите "сетчатый" шар.

[MaxNik2009]

А нельзя применить компонент Shape? там очень запросто настроишь что бы он был и шаром, и решетчатым, и обрабатывать перемещение проще.

[Stilet]

Э-э-э... Братья по... Всему остальному... Вы че пугаете автора?
Все же просто:

var i:integer;
begin
 i:=100;
 Canvas.Brush.Style:=bsClear;
 while i>1 do begin
  Canvas.Ellipse(Width div 2-i,Height div 2-100,Width div 2+i,Height div 2+100);
  Canvas.Ellipse(Width div 2-100,Height div 2-i,Width div 2+100,Height div 2+i);
  dec(i,10);
 end;
end;

Это в OnPaint формы втюхать и наслаждаться