Не работает FloodFill

[sunny-plum]

Не работает FloodFill,помогите разобраться,пожалуйста.
Код выкладываю файлом,ибо сюда не влезет.

[Stilet]

Делфи под рукой нет, но я что-то не пойму - у тебя на кнопку заливки ничего не прописано?

[sunny-plum]

Вы не про это?

[Streletz]

Почитайте, что по этому поводу написано здесь и здесь. Возможно, это поможет решить проблему.

[Stilet]

Вы не про это?

Ну да. Заливка там должна быть или я ошибаюсь?

А если я ошибаюсь и заливка вот:

procedure TLineButton.Image1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Drawing:=True;
Origin:=Point (X, Y);
MovePt:=Point (X, Y);
OriginPanel.Caption:=Format (' Початок: (%d, %d)', [X, Y]);

Canvas.FloodFill(x, y, Canvas.Pixels[x,y], fsSurface);

end;

То ИМХО тут просто не хватает указания цвета и цвет границы неверен:

Canvas.Brush.Color:=clRed;
Canvas.FloodFill(x, y, <тут цвет границы>, fsSurface);

Цвет границы это тот цвет, которым у тебя рисуется заливаемая фигура.

[sunny-plum]

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

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

Ну да. Заливка там должна быть или я ошибаюсь?

А если я ошибаюсь и заливка вот:

procedure TLineButton.Image1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Drawing:=True;
Origin:=Point (X, Y);
MovePt:=Point (X, Y);
OriginPanel.Caption:=Format (' Початок: (%d, %d)', [X, Y]);

Canvas.FloodFill(x, y, Canvas.Pixels[x,y], fsSurface);

end;

То ИМХО тут просто не хватает указания цвета и цвет границы неверен:

Canvas.Brush.Color:=clRed;
Canvas.FloodFill(x, y, <тут цвет границы>, fsSurface);

Цвет границы это тот цвет, которым у тебя рисуется заливаемая фигура.

[Stilet]

Попробовала вот так

Когда ты ставишь fsSurface то указывать нужно цвет заливаемого фона. У тебя стоит clBlack - вангую, это цвет не фона.
Значит либо меняй цвет либо ставь fsBorder