Нет прорисовки Canvas при изменении (увеличении) размеров Image1!

← →
Dr. Andrew (2003-06-10 13:18) [0]

Мастера подскажите, как можно синхронизировать и увеличение размеров компонента TImage и прорисовку всей изменившейся части холста, а не только ее исходной части.
Желательно без Bitmap, чтобы не увеличивать затраты памяти при больших увеличениях.
Ниже пример, показывающий данную проблематику (к сожалению, он не работает):

procedure TForm1.Button1Click(Sender: TObject); { ZoomOut, например увеличение с шагом = 2 }
begin
Image1.SetBounds(Image1.Left,Image1.Top,Image1.Width*2, Image1.Height*2);
Image1.Canvas.Brush.Color:= clblue;
Rct:= Rect(0,0, Image1.Width*2, Image1.Height*2);
Image1.Canvas.FillRect(Rect(0,0, Image1.Width*2, Image1.Height*2);
Image1.Invalidate;
Label1.Caption:= Format("Width %d : Height %d", [Image1.Width, Image1.Height]);
end;

← →
OlegM (2003-06-10 14:03) [1]

Если я правильно понял то это

Image1.Picture.Bitmap.Height:=Image1.Height;
Image1.Picture.Bitmap.Width:=Image1.Width;

← →
Dr. Andrew (2003-06-10 15:05) [2]

Это увеличит расход памяти при больших значениях масштабирования.
В принципе верно, НО необходимо другое решение!
Есть еще мнения?

← →
Dr. Andrew (2003-06-10 17:03) [3]

Мастера!
Кто-то может предложить вариант Zoom Image or Bitmap?!

← →
Zergling (2003-06-11 09:16) [4]

Наверное ни как. TPaintBox и все. Кстати по какой причине TPaintBox не подходит.

← →
Спрашивающий (2003-06-11 09:33) [5]

Я согласен с Zergling © надо использовать TPaintBoxтолько не забудь обработать его прорисовку в onPaint,
а Image лучше оставить или для простеньких рисунков или для его прямого назначения.

Нет прорисовки Canvas при изменении (увеличении) размеров Image1! Найти похожие ветки