Изменение размеров компонента Image

[Don Karleone]

Вот, возник такой вопрос: на форме есть image размером 100 на 100. На всей его поверхности отображается прямоугольник белого цвета. Еще есть кнопка button. При клике по button меняю размер image (увеличиваю в два раза до 200 на 200) и прорисовываю новый прямоугольник на весь компонент. Однако никакого изменения размеров
image не наблюдаю. Вот код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Canvas.Rectangle(0,0,Image1.ClientWidth,Image1.ClientHeight);
end;

//увеличиваю размер image'а
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Width:=200;
  Image1.Height:=200;
  Image1.Canvas.Rectangle(0,0,Image1.ClientWidth,Image1.ClientHeight);
end;

[ArtGrek]

Image1.Width:= Image1.Width + 200;

думаю ет лучше поместить в OnPaint

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Canvas.Rectangle(0,0,Image1.ClientWidth,Image1.ClientHeight);
end;

[Don Karleone]

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

Image1.Width:= Image1.Width + 200;

думаю ет лучше поместить в OnPaint

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Canvas.Rectangle(0,0,Image1.ClientWidth,Image1.ClientHeight);
end;

не стоит это помещать в OnPaint

[Alex2391]

А можете объяснить, что делает эта функция?

  Image1.Canvas.Rectangle(0,0,Image1.ClientWidth,Image1.ClientHeight);

Просто я у себя написал эти две строчки

  Image1.Width:=200;
  Image1.Height:=200;

и у меня все работает.

[Don Karleone]

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

А можете объяснить, что делает эта функция?

  Image1.Canvas.Rectangle(0,0,Image1.ClientWidth,Image1.ClientHeight);

Это метод, рисующий прямоугольник на канве image текущим цветом пера и кисти с координатами (0, 0) - верхний левый угол прямоугольника, (Image1.ClietnWidth, Image1.ClientHeight) - нижний правый угол.

[ArtGrek]

то что я написал не подошло? если нет, напиши что не получаеца увеличить размер или прорисовку зделать

[Alex2391]

Прописал у себя этот код

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Width:=200;
  Image1.Height:=200;
  Image1.Canvas.Rectangle(0,0,Image1.ClientWidth,Image1.ClientHeight);
end;

и у меня проект вызывает исключение с сообщением "Can only modify an image if it contains a bitmap". В чем может быть дело?

[Don Karleone]

да в общем то размер наверное увеличивается, но визуально я этого не вижу. На
форме попрежнему остается белый квадрат размером 100 на 100. А должен стать 200 на 200.

[Alex2391]

А у меня-то в чем проблема? Почему возникает ошибка?

[Don Karleone]

Люди, откликнитесь, плз.