Вопрос по TImage...

← →
Rusty (2004-10-20 22:01) [0]

Уважаемые, помогите!
Решил поработать с графикой, но тут же столкнулся со следующей проблемой:
на форме компонент TImage; изменение размера формы обрабатываю так:
procedure TForm1.FormResize(Sender: TObject); begin Image1.Left:=0; Image1.Top:=0; Image1.Width:=ClientWidth; Image1.Height:=ClientHeight; Image.Canvas.FillRect(Rect 0,0,ClientWidth,ClientHeight)); end;
После запуска приложения пытаюсь увеличить размеры формы, но размеры компонента TImage не увеличиваются, т.е. на форме остается квадрат белого цвета прежнего размера. При уменьшении размера формы - как бы все нормально. С чем это связано? Как решить эту проблему?

← →
Mihey_temporary © (2004-10-20 22:44) [1]

Добавь:

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

Недоработочка компонента, видимо.

← →
WondeRu © (2004-10-21 14:30) [2]

Rusty (20.10.04 22:01)
Image1.Left:=0;
Image1.Top:=0;
Image1.Width:=ClientWidth;
Image1.Height:=ClientHeight;

а Align влом выставить в alClient?

← →
Ozone © (2004-10-21 14:41) [3]

WondeRu © (21.10.04 14:30) [2]

А ты пробовал? У тебя при таком subj"евого эффекта не наблюдалось?

← →
WondeRu © (2004-10-21 14:47) [4]

Ozone © (21.10.04 14:41) [3]
это обычный глюк TImage
на vcl.ru в faq было
"Вопрос: При увеличении размера компонента TImage в RunTime пытаюсь рисоватьзаново на всем поле, но отображается только часть компонента (прежнегоразмера). В чем дело?
Ответ: Нужно при инициализации выполнить SetBounds(), с максимальными размерами."

← →
Ozone © (2004-10-21 14:49) [5]

WondeRu © (21.10.04 14:47) [4]

Ну дык, почему тогда отвечаешь на вопрос не полностью :)

Mihey_temporary © (20.10.04 22:44) [1]
ответ правильный. Зачем еще добавлять чего-то, а вот те 4 строчки не понравились ;-)

WondeRu © (21.10.04 14:58) [6]

Да я не про то. Мне кажется если ты заговорил про Align, то нужно еще и упомянуть и о баге в сорцах, ИМХО.

Ozone © (21.10.04 15:02) [7]
это не баг, это фича!
уже с Делфи 5 известна эта особенность. Думаю есть веские причины у Борланда, чтобы эту "фичу" оставить

Вопрос по TImage... Найти похожие ветки