Не получается залить цветом канву Image

@NF · Регистрация: 21.11.2013

Author24 — интернет-сервис помощи студентам

Делаю paint.
Есть два объекта Image1,Image2.
На канве Image1 происходит много всякой всячины.
Создаю Image2, размещаю его на панельке рядом с кнопками.
Создаю его для того, чтобы отобразить в нем выбранный мною цвет.
Для этого просто закрашиваю весь Image2.

Delphi

1
2
3

  Image2.Canvas.Pen.Color:=ColorDialog1.Color;
  Image2.Canvas.Brush.Style:=bsSolid;
  Image2.Canvas.Rectangle(Image2.Left,Image2.Top,Image2.width,Image2.Height);

Ни в какую не хочет закрашиваться. В чем может быть проблема? Код уже куда только не вставлял, точно должен выполняться (ну, по моим соображениям).

Либо подскажите, пожалуйста, какой элемент можно вот так вот просто закрасить))

Добавлено через 50 минут
понял ошибку, image 2 имеет уже свои координаты

Delphi

1
2
3

Image2.Canvas.Pen.Color:=ColorDialog1.Color;
  Image2.Canvas.Brush.Style:=bsSolid;
  Image2.Canvas.Rectangle(0,0,Image2.Width,image2.Height);

Теперь почему то не заливает полностью, а только рисует рамку.

@Puporev · 14.10.2014, 07:35

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var c:TColor;
begin
if ColorDialog1.Execute then c:=ColorDialog1.Color;
Image2.Canvas.Pen.Color:=c;
Image2.Canvas.Brush.Color:=c;
Image2.Canvas.Rectangle(0,0,Image2.Width,image2.Height);
end;

	14.10.2014, 07:35

Опции темы