TImage не растягивается вслед за формой...

← →
R_R (2011-07-18 04:57) [0]

TImage имеет свойство alClient и не растягивается при изменении размеров формы... Что не так?

← →
Германн © (2011-07-18 05:07) [1]

TImage-то наверняка растягивается, а вот сама картинка...
Stretch = True

← →
R_R (2011-07-18 05:12) [2]

Германн © (18.07.11 05:07) [1]
Cудя по всему не растягивается, так как в процедуре после изменения размеров формы вызывается прорисовка... А если Stretch то часть изображения вообще выскакивает за пределы формы...

← →
R_R (2011-07-18 05:18) [3]

А вообще может и нет -сейчас посмотрю...

← →
Германн © (2011-07-18 05:21) [4]

> R_R (18.07.11 05:12) [2]
>
> Германн © (18.07.11 05:07) [1]
> Cудя по всему не растягивается, так как в процедуре после
> изменения размеров формы вызывается прорисовка

Значит ошибка в "прорисовке".
Других вариантов нет!
По крайней мере до тех пор, пока не приведешь воспроизводимый код, который докажет сей глюк.

← →
R_R (2011-07-18 05:23) [5]

Вот вызов процедуры
Item_size := StrToInt(Trim(InputBox("Piece size", "Enter size of one piece:", IntToStr(Item_size))));
frmMain.Width := Item_size*Size_W + 50;
frmMain.Height:= Item_size*Size_H + 50;
frmMain.DrawBoard(YourColorWhite);

Вот прорисовка (DrawBoard):
for i := 1 to SIZE_W do
for j := 1 to SIZE_H do
Rectangle((i-1)*ITEM_SIZE+25, (j-1)*ITEM_SIZE, i*ITEM_SIZE+25, j*ITEM_SIZE);

← →
R_R (2011-07-18 05:25) [6]

Сейчас выложу скрины

← →
R_R (2011-07-18 05:28) [7]

Без Stretch
http://webfile.ru/5443613
Со Stretch
http://webfile.ru/5443614

← →
R_R (2011-07-18 05:46) [8]

Моя гипотеза: что Image нельзя растянуть больше определенного размера...

← →
R_R (2011-07-18 05:50) [9]

Хотя тоже неверно, при малых значениях - тот же глюк...

← →
MBo © (2011-07-18 06:58) [10]

Уже сказали ведь - при изменении размеров TImage размер его битмапа автоматически не меняется. Надо руками.

← →
R_R (2011-07-18 07:12) [11]

MBo © (18.07.11 06:58) [10]
Так Bitmap я потом рисую заново, после изменения размеров...

Самое интересное со Stretch"ем после изменения всего этого вызываю по onClick

img1.Canvas.Rectangle(2,2,img1.ClientWidth-2, img1.ClientHeight-2);
и вместо рамки рисуется только один угол. То есть Image растянулся за пределы Form"ы!!! Хотя стоит alClient

>Так Bitmap я потом рисую заново
Рисование тут ни при чем

← →
R_R (2011-07-18 07:28) [13]

MBo © (18.07.11 07:22) [12]
Это?
img1.Picture.Bitmap.Width := ClientWidth;
img1.Picture.Bitmap.Height:= ClientHeight;
Вроде всё заработало.. Спасибо...

>Это?
Да

TImage не растягивается вслед за формой... Найти похожие ветки