Графика

[Alexsandr]

Всем доброго времени суток! помогите плиз,есть рисунок две окружности одна в одной и каждая из окружностей разбита на сектора,как сделать чтобы делая клик по одному из секторов он выделялся определённым цветом?

[NetSpace]

перебрать все пиксели в данной области и перекрасить их. два цикла надо. т.к. у тебя область круглая, то лучше использовать полярные координаты: x =r *cos(alpha) и y=r*sin(alpha).
например, так:

for r= 2 to 4 do//2 - это внутренний радиус кольца, 4 - это внешний радиус кольца
begin
for alpha=0 to 180 do//угол альфа в градусах, но придётся переделать в радианы
begin
     x=r*cos(alpha*3.14/180);
     y=r*sin(alpha*3.14/180);//
     //и вот тут закрашиваешь свой пиксель с координатами (x,y)
end;
end;

угол alpha выбираешь сам, исходя из сектора.
вся окружность - от 0 до 360
верхняя половина - от 0 до 180
нижняя половина - от 180 до 360
левая половина - от 90 до 270
правая половина - от 270 до 360 и от 360 до 90.
и будет ещё одна проверка - на какой области твоя мышка. её координаты узнаешь так:

xmous=Mouse.CursorPos.X;
ymous=Mouse.CursorPos.Y;

а дальше только ставь условия и сравнивай: в нужном она у тебя месте или не там, где надо...

[WhiteSpirit]

Проще использовать Canvas.FloodFill (или API-шную функцию ExtFloodFill)

[Alexsandr]

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

Проще использовать Canvas.FloodFill (или API-шную функцию ExtFloodFill)

а поподробней о функции ExtFloodFill как применить,если можно на моём примере.

[WhiteSpirit]

procedure TCanvas.FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle);
Эта функция закрашивает произвольную замкнутую область. Аргументы X и Y задают координаты точки внутри области. FillStyle определяет, как её заливать: если FillStyle = fsSurface, то точки принадлежат заливаемой области, если они имеют цвет Color; если FillStyle = fsBorder, то точки, имеющие цвет Color, считаются принадлежащими границе области.
Пример:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (Canvas.Pixels[X, Y] and $00FFFFFF) = clWhite then begin
    Canvas.Brush.Color:=clRed;
    Canvas.FloodFill(X, Y, clWhite, fsSurface);
    end;
end;