Вниз
Скачать: CL | DM;

Глюк или не глюк 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


 
Sphinx ©   (2005-06-11 15:52) [4]

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

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

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


 
WondeRu ©   (2005-06-11 17:01) [5]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c
4-1125324360
v850
2005-08-29 18:06
2005.11.06
LISTVIEW_GETITEMTEXT из чужого окна


2-1129050240
Fasd
2005-10-11 21:04
2005.11.06
Как проверить наличие записи с помощью SQL-запроса?


14-1129290221
boriskb
2005-10-14 15:43
2005.11.06
Фантастика ли это?


2-1129009737
Серг73
2005-10-11 09:48
2005.11.06
Помогите плз... Delphi7>ADO>Access


6-1122019736
Senti
2005-07-22 12:08
2005.11.06
Помогите разобраться с вот этим кодом...




   Наверх