Палитра

[Rin]

Вот работа со сканлайном:

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y: Integer;
  P: PRGBTriple;
  aBitMap:TBitMap;
begin
// создаем BitMap и настраиваем его свойства
  aBitMap:=TBitmap.Create;
  aBitMap.Height:=Form1.Height;
  aBitMap.Width:=Form1.Width;
  aBitMap.PixelFormat:=pf24bit;
// А тут заполняем цветом наш aBitMap
  for y:=0 to aBitMap.Height -1 do
    begin
    p:=aBitMap.ScanLine[y];
    for x:=0 to aBitMap.width -1 do
    begin
      Inc(P,1);
      P^.rgbtBlue:= (x*y and $FF0000) shr 16;
      P^.rgbtGreen:= (x*y and $00FF00) shr 8;
      P^.rgbtRed:= x*y and $0000FF;
    end;
    end;
// Копируем с aBitMap на форму  bitblt(Form1.canvas.Handle,0,0,Form1.Width,Form1.Height,
        aBitMap.Canvas.Handle,0,0,SRCCOPY);
// удаляем aBitMap
  aBitMap.Free;
end;

[Екатерина20]

Спасибо) Попозже попробую сделать

[Екатерина20]

Я так и не разобралась, ничего в этой графики не понимаю. Может есть у кого-то похожий исходник. срочно нужен

[Rin]

Попробуйте сначала пробежаться по картинке и сделать её строго черно-белой. A потом использовать команду floodfill(x,y,color) в обработчике MouseDown.

[Екатерина20]

Даже без оттенков серого?

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

[Rin]

Вот отчего вам нужно отталкиваться.
Для того, чтобы красить в разный цвет, а не только в красный, можете использовать TColorDialog или TcolorList. Canvas.brush.color присваивайте выбранный цвет из TColorDialog .
Инструменты лучше оформить в виде маленькой формы, как у PhotoShop или Paint, а не в виде RadioGroup.
Это просто зарисовка, минут за 10. Больше ничем помочь не могу. Горы работы(.
P.S. Чтобы закраска была по секторам, нужно сделать сектор, который будете закрашивать, замкнутым с помощью "черного карандаша".

[BDA]

В дополнение к примеру Rin.
Добавить глобальные переменные x0, y0 и заменить 2 процедуры на те, что ниже:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  x0 := x;
  y0 := y;
  case R1.ItemIndex of
    0: bl := true;
    1: wh := true;
    2: floodfill(canvas.Handle, x, y, clBlack);
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  canvas.MoveTo(x0, y0);
  if bl then
  begin
    canvas.Pen.Color := clBlack;
    canvas.lineto(x, y);
  end;
  if wh then
  begin
    canvas.Pen.Color := clWhite;
    canvas.lineto(x, y);
  end;
  x0 := x;
  y0 := y;
end;