графическое приложение (с API-функций)

[diliana]

Stilet
Alter
спасибо.
теперь буду знать,
правда нас препод учит пока только на дельфи

[0nni]

var
  ps : TPaintStruct;
   Brush, LastBrush : hBrush; //В этих переменных хранятся кисти, новая, и старая
begin
  BeginPaint(MyWin, ps);//обработка WM_PAINT всегда начинается с этой процедуры - 
  она заносит в ps всю необходимую информацию для прорисовки
  Brush := CreateSolidBrush(Random($ffffff + 1));//Создается кисть со случайным цветом
  OldBrush := SelectObject(ps.hdc, Brush);//делаем для контекста текущей нашу кисть, старую кисть сохраняем в переменную
  Ellipse(ps.hdc, 0, 0, 100, 100);//Собственно рисование эллипса на контексте в указаных координатах
  SelectObject(ps.hdc, OldBrush); //Возвращаем старую кисть при этом функция вернет текущую, те Brush; Brush:= SelectObject(ps.hdc, OldBrush); тоже не будет ошибкой.
  DeleteObject(Brush);//После чего удаляем кисть
  EndPaint(MyWin, ps);//а этим нужно закончить
end;

Поскольку SelectObject() возвращает старую кисть, можно обойтись без переменной OldBrush;

Brush := SelectObject(ps.hdc, CreateSolidBrush(Random($ffffff + 1)));
...
DeleteObject( SelectObject(ps.hdc, Brush));

PS, что то я долго отвечал.