цвет кисти Опции

[St@senk@]

Здравствуйте, у меня проблема, я создаю через WinApi окно, а вы не подскажите, как мне изменить цвет которым можно нарисовать квадратик или круг, а то там все время черный, а как сделать один круг черный, другой желтый я не знаю.

[volvo]

Перо:

var Pen: HPEN;
...
Pen := CreatePen(PS_SOLID, 1, RGB(255, 0, 0)); // Будет красный цвет
SelectObject(DC, Pen);

Кисть:

var Brush: HBRUSH;
...
Brush := CreateSolidBrush(RGB(255, 0, 0)); // Тоже красный
...

[St@senk@]

Спасибо

Добавлено через 13 мин.
Извините, но еще один вопрос. При вызове функции Rectangle, т область внутри закрашивается белым, а как сделать, чтобы оно закрашивалось другим цветом?

Добавлено через 18 мин.
Спасибо, понял.