Глюк или не глюк TImage?

← →
Chaser © (2005-06-10 10:37) [0]

Рисую на Image1.
В свойсвах Image1 в инспекторе объектов ставлю Align:=alClient.
Запускаю программу. Что-то рисую на Image (типа LineTo() и т.п.).
При растягивании формы размер Image почему-то остается таким же, как был при разработке, хотя у него стоит Align:=alClient.
Принудительно изменяю (для примера) ширину Image (Image1.Width:=400) - все равно какой он был ширины при разработке, такой и остался.
Хотя, если в Image загрузить рисунок большего размера чем он был при разработке, то все загружается полностью (размер Image меняется).
Подвкажите плиз, в чем проблема.

← →
programania © (2005-06-10 22:29) [1]

>При растягивании формы размер Image почему-то остается таким же, как был при разработке

как определяешь размер Image?
поставь
procedure TForm1.FormResize(Sender: TObject); begin label1.caption:=intToStr(image1.width); end;
увидишь что image меняется.
Если нужно чтоб менялся рисунок, то image1.Stretch:=true;

← →
Eraser © (2005-06-10 22:30) [2]

Chaser © (10.06.05 10:37)

К сказаному в [1] добавлю, что рисовать надо не на Image.Canvas, а на Image.Picture.Bitmap.Canvas.

← →
XProger © (2005-06-11 01:06) [3]

К сказаному в [1] добавлю, что image должен находиться либо на форме, либо на другом компоненте с Align:=alClient

Полная отсебятина :)

Можно рисовать по координатам Image.Canvas на отдельном Bitmap.Canvas, а потом копировать канвас битмапа на имадж...

Image.Width := Bitmap.Width; // необязательно Image.Height := Bitmap.Height; // необязательно Image.Picture.Bitmap := Bitmap; Image.Repaint;

vcl.ru:
Вопрос: При увеличении размера компонента TImage в RunTime пытаюсь рисоватьзаново на всем поле, но отображается только часть компонента (прежнегоразмера). В чем дело? Ответ: Нужно при инициализации выполнить SetBounds(), с максимальными размерами.

Глюк или не глюк TImage? Найти похожие ветки