Почему image не меняет свои размеры

← →
OlegM © (2003-06-03 12:09) [0]

Привет всем!
Немогу разобраться, ставлю у image свойство Align:=alClient
но при изменении формы image как был так и остался. Почему?

← →
Palladin © (2003-06-03 12:13) [1]

image поменял размеры, а шоб сама картинка тоже поменяла надо поставить Stretch в true млин...
только вид тебе наверно не понравится если она не большая

← →
OlegM © (2003-06-03 12:30) [2]

Не у меня чуть не то, в image нет картинки на событие Form1.Create
я делаю так image1.canvas.brush.color:=clWhite;
так вот мне надо при изменении размеров формы чтобы image тоже менялся и его увеличевшееся часть закрашивалась белым.

← →
Skier © (2003-06-03 12:33) [3]

TForm.OnPaint

← →
OlegM © (2003-06-03 12:44) [4]

>Skier

А в OnPaint что вставить если image1.Canvas.Brush.Color:=clWhite;
то не помогло или в form.resize form.onpaint(image1) тоже не помогло

← →
Skier © (2003-06-03 12:45) [5]

> А в OnPaint что вставить если image1.Canvas.Brush.Color:=clWhite;

см. FillRect(...)

← →
Skier © (2003-06-03 12:46) [6]

>OlegM © (03.06.03 12:44)
Только один момент : а не проще цвет формы сделать белым ?

← →
Palladin © (2003-06-03 12:55) [7]

нет наверно, не проще :)

← →
OlegM © (2003-06-03 12:57) [8]

Проще но на этом image я линии рисую а если это делать на форме то при сворачивании или перемещении формы за пределы экрана линии пропадают.

Да а если FillRect то тоже все пропадет

← →
Skier © (2003-06-03 12:59) [9]

>OlegM © (03.06.03 12:57)

> Проще но на этом image я линии рисую а если это делать на
> форме то при сворачивании или перемещении формы за пределы
> экрана линии пропадают.

Ну Ё !

1) image снеси на...
2) Пиши обработчик на TYourForm.OnPaint
3) Рисуй на канве формы

1) image снеси на...
2) Рисуй на канве внеэкранного TBitmap
3) Пиши обработчик на TYourForm.OnPaint, в котором BitBlt() твой битмап на форму

Мне ненадо что бы линии перерисовывались это займет много времени потому что данные по которым рисуются линии берутся из базы MySQL по сетке. То есть я при загрузке формы получаю данные и все, а если перерисовывать линии то полный ......

Когда меняешь размер формы, просто в этот обработчик (OnResize) вставь такую вот строку:
TImage.Picture.Bitmap.Height:=TImage.Height;
и тоже самое про Width...

Огромное спасибо помогло!

Почему image не меняет свои размеры Найти похожие ветки