графическое прилодение с окружностями

[Deman1986]

Доброго времени суток. у меня такой вопрос учусь в институте разрабатываю прогу. Задание такое Вопрос 1 С помощью API-функций создать графическое приложение, которое выводит 8-10 окружностей с разными атрибутами (цвет, толщина, стиль), с обязательной перерисовкой изображения при манипуляциях с окном.
вот собственно и сам код программы:

program Project55;
uses
  windows,
  messages;

{$R *.RES}
var
  MyWin: HWND;
  MyDC: HDC;


function WindowFunc(MyWin: HWND; Mess,wParam,lParam: longint):longint; export; stdcall;
var ps : TPaintStruct;
    i : Integer;
    Pen : HPEN;
    brush : HBRUSH;

begin
  WindowFunc:=0;
  case Mess of
   WM_DESTROY: begin
               PostQuitMessage(0);
               Exit;
               end;

   WM_Paint: begin
              BeginPaint(MyWin, ps);
                for i := 0 to 9 do
                begin
                  Pen :=  SelectObject(ps.hdc, CreatePen(Random(8), Random(10)+1,  Random($ffffff + 1)));
                  brush := SelectObject(ps.hdc, CreateSolidBrush(Random($ffffff + 1)));
                    Ellipse(ps.hdc,
                      250 + i * 5,
                      250 + i * 5,
                      500 - i * 5,
                      500 - i * 5);
                  DeleteObject( SelectObject(ps.hdc, brush));
                  DeleteObject( SelectObject(ps.hdc, pen));
                end;
              EndPaint(MyWin, ps);
             end;
  end;
   WindowFunc:=DefWindowProc(MyWin, Mess, wParam, lParam);
  end;

procedure WinMain;
var
  Mess: TMsg;
  MyWClass: TWndClass;
begin

  MyWClass.lpfnWndProc:= @WindowFunc;
  MyWClass.lpszClassName:= 'MyClass';
  MyWClass.lpszMenuName:= nil;
  MyWClass.hCursor:= LoadCursor(0,IDC_ARROW);
  MyWClass.hbrBackground:= Hbrush (COLOR_WINDOW);
  MyWClass.hIcon:= LoadIcon(0, IDI_ASTERISK);
  MyWClass.Style:= cs_VRedraw OR cs_HRedraw OR cs_DblClks;
  MyWClass.cbClsExtra:= 0;
  MyWClass.cbWndExtra:= 0;
  MyWClass.hInstance:= hInstance;

  if RegisterClass(MyWClass)=0 then Exit;
  MyWin:= CreateWindow('MyClass', 'My first window',
                         WS_OVERLAPPEDWINDOW,
                         100, 100, 700, 700, 0, 0,
                         hInstance, nil);

  ShowWindow(MyWin, CmdShow);
  UpdateWindow(MyWin);
  while GetMessage(Mess, 0, 0, 0) do
    begin
     TranslateMessage(Mess);
     DispatchMessage(Mess);
    end;
end;

begin
  WinMain;
end.

Отправил преподу. Но он от меня требует перерисовки изображения при манипуляции с окном подскажите подалуйста в чём моя ошибка спасибо.

[Stilet]

требует перерисовки

Потребуй у него отставки )
Твой обработчик WM_Paint как раз и занимается перерисовкой, когда виндовс считает что окно должно перерисовываться.

[Deman1986]

Может быть он просит перерисовку самих окружностей т.е. изменение самого размера окружностей при манипуляции с окном. Подскажите как это реализовать. спасибо

[s-andriano]

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

Может быть он просит перерисовку самих окружностей т.е. изменение самого размера окружностей при манипуляции с окном.

Это Вы у нас спрашиваете, что именно просит у Вас преподаватель?

Подскажите как это реализовать. спасибо

А что такое манипуляция?
Если эта манипуляция сопровождается какими-либо сообщениями окну, то заведите переменные, характеризующие параметры, которые нужно изменять, и меняйте их при приходе нужных сообщений.

[Stilet]

Может быть он просит перерисовку самих окружностей

Тык ты выясни у него подробнее какая муха его мочей в голову укусила )

[Deman1986]

Уважаемые форумчане нужно кроме цвета менять еще толщину окружностей со стилем при манипуляцйии с окном т.е. когда изменяется размер окна окружности должны менять цвет, толщину линий. Спасибо за ответы

[Deman1986]

Препод вот что написал на заданный мною вопрос: Перерисовка - это повторный вывод изображения БЕЗ его изменения, т.е. изображение меняться НЕ должно. Именно это я написал как замечание

[Deman1986]

Уважаемые подскажите срок здачи подходит.

[Stilet]

С потолка так накидаю, поскольку в ВИНАПИ не особо сведущ:

 Pen: HPEN;
 lPen: LOGPEN;
...
   WM_Paint: begin
              BeginPaint(MyWin, ps);

lPen.lopnWidth:=3; // Это ширина
lPen.lopnStyle:=PS_SOLID; // Это стиль
nPen:=CreatePenIndirect(lPen); // Создаем новое перо

                for i := 0 to 9 do
                begin
                  Pen :=  SelectObject(ps.hdc,nPen);
                    Ellipse(ps.hdc,
                      250 + i * 5,
                      250 + i * 5,
                      500 - i * 5,
                      500 - i * 5);
                  DeleteObject( SelectObject(ps.hdc, pen));
                end;
              EndPaint(MyWin, ps);
             end;
...
end;

т.е. изображение меняться НЕ должно.

Дубина он. Если ты при перерисовке меняешь стиль линий, то это уже совсем другое изображение.