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

[ArtGrek]

вот попробуи

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Height := Image1.Height + 100;
  Image1.Width := Image1.Width + 100;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.Picture := nil;
  with Image1.Canvas do begin
    Pen.Color := clGray;
    Pen.Mode := pmXor;
    Brush.Style := bsClear;
    Rectangle(Image1.BoundsRect);
  end;
end;

[Don Karleone]

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

Image1.Picture := nil;

да, эта строка ключевая. Хотя почему именно так надо я не понимаю

[ArtGrek]

чесно, сам не знаю, у меня ее не было, ет тебе попытался зделать и добавил
может кто нибудь знающии заидет и пояснит

[Don Karleone]

и что, у тебя без нее работало?

[ArtGrek]

мне ето не нужно было, вот разобрался, во время изменения картинки ее битмап не меняеца, а так тоже работает

  Image1.Height := Image1.Height + 100;
  Image1.Width := Image1.Width + 100;
  Image1.Picture.Bitmap.Height := Image1.Height;
  Image1.Picture.Bitmap.Width := Image1.Width;
  Image1.Canvas.Rectangle(Image1.BoundsRect);

[A-IX-2]

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

без этого работает, но я так понимаю, без этого Вам не подойдет?)

[x128]

procedure ImgFillAndResize(const h,w: integer; const c: TColor);
begin
  with Form1.Image1.Picture.Bitmap do begin
    Height:=h;
    Width:=w;
    Canvas.Brush.Color:=c;
    Canvas.FillRect(Canvas.ClipRect);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ImgFillAndResize(200, 200, clRed);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.AutoSize:=true;
  ImgFillAndResize(100, 100, clWhite);
end;

[GreyScall]

Сообщение от Don Karleone

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

Совершенно верно... Изменение размеров компонента не приводит к изменению размеров изображения...

Image1.Picture.Bitmap.Width:=256;
Image1.Picture.Bitmap.Height:=256; // Задали размеры изображению;
Image1.Width:=300;
Image1.Height:=200; // Задали размеры компоненту (не обязательно такие же как у изображения; а если Image1.AutoSize==True, то они будут автоматически подстраиваться под изображение);
Image1.Canvas.FillRect(Image1.Canvas.ClipRect); // Залили изображение цветом кисти (Image1.Canvas.Brush.Color);

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

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

Видимо у вас в TImage.Picture загружено изображение в формате отличном от bmp...

Var TempBMP: TBitmap;

. . .

If (Image1.Picture.Graphic<>Nil) Then // Если изображение присутствует;
      If (Image1.Picture.Graphic.ClassName<>'TBitmap') Then // И оно не в bmp формате;
            Begin
            TempBMP:=TBitmap.Create; // Создали временный битмап;
            Try
                  TempBMP.Assign(Image1.Picture.Graphic); // Скопировали изображение из Image1.Picture в битмап;
                  Image1.Picture.Bitmap.Assign(TempBMP); // Изменили формат изображения на bmp;
            Finally
                  TempBMP.Free; // Удалили временный битмап;
                  End;
            End;

[Stilet]

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

Почему? Я с коллегой солидарен, и сам стараюсь отрисовку именно в события отвечающие за отрисовку пихать.

[GreyScall]

Только не с TImage... Оно по сути просто хранит изображение и при перерисовке само выводит его на окно...
А вот если динамически изменяющиеся векторные фигуры рисовать в каком-нибудь TPaintBox - тогда да, другое дело...