VPF::Почему компонент TImage не удаётся переразмерить..

DelphiFun

Дата 26.11.2006, 22:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 10.11.2006

Репутация: нет
Всего: нет

Выполняем вот такой простой код:

Код

  Image1.Width :=  Image1.Width + 100;
  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
  Image1.Width :=  Image1.Width + 100;
  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
  Image1.Width :=  Image1.Width + 100;
  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
  Image1.Width :=  Image1.Width + 100;
  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
  Image1.Width :=  Image1.Width + 100;
  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
  Image1.Width :=  Image1.Width + 100;
  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
  Image1.Width :=  Image1.Width + 100;
  Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
  ShowMessage ( IntToStr ( Image1.Width ) );

Сообщение показывает, значение Image1.Width равно: 710, что собственно правильно.
Но на форме отображается белый Rectangle шириной только 110 куда девается остальное??
Последняя команда уже не прорисовывает "полный Rectangle", может быть нужно как-то перерисовать??

Voyager

Дата 26.11.2006, 22:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 532
Регистрация: 8.2.2005

Репутация: 2
Всего: 18

Image1.Invalidate;

Sunvas

Дата 26.11.2006, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(Voyager @ 26.11.2006, 22:50

)

Image1.Invalidate;

Че-то не помагает. Где написать эту строку?

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Zero

Дата 26.11.2006, 23:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24

Это фича, решается просто.
Ставишь на форму панель, на неё имейдж со свойством Align = alclient, а дальше свой код применяешь к раздвижение панели, а не имейджа.

bems

Дата 27.11.2006, 00:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

ставте размеры еще и image1.picture.bitmap
В факе сто раз было и в 10 темах

--------------------

Обижено школьников: 8

DelphiFun

Дата 27.11.2006, 02:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 10.11.2006

Репутация: нет
Всего: нет

Действительно, сработало.
bems, Спасибо!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »