Масштабирование окна

@ssstodol · Регистрация: 13.05.2009

Author24 — интернет-сервис помощи студентам

Еще раз, добрый вечер. Замучилась в инете искать как масштабировать изображение, помогите, пожалуйста. Не получается((
Задача в следующем:
При увеличении или уменьшении окна , кардиоида не должна менять размер. Она просто всегда должна находиться в центре формы(окна), image при развертывании должен быть тоже на все окно. Подскажете как сделать?

@ssstodol · 31.05.2012, 22:03 **[ТС]**

Пробовала сделать через OnResize, но все не так как надо смещается

Delphi

procedure TForm1.FormResize(Sender: TObject);
begin
   x0:=form1.Width div 3;
   y0:=form1.Height div 2;//    это по ширине и длине
end;

Одиночка · 01.06.2012, 16:37

Тут есть 2 варианта. Один в архиве. При изменении размера формы прорисовка начинается поновой. Опять в относительно том положении, как и раньше. Я бы не сказал, что это по цетру.
Есть второй вариант. Не растягивать ваш Image на всю форму, а сделать его размер достаточный для рисования вашей фигуры, поставить туда, где вы его хотите видеть, а все значения переменной Anchors установить в False. В этом случае при изменении размеров формы ваш Image будет смещаться так, чтобы быть относительно краёв формы в одном и том же положении. И рисование может не прекращаться, а продолжаться дальше. Сейчас проверю и выложу ответ.

Одиночка · 01.06.2012, 17:50

Проверил. Всё получилось. Только пришлось немного переделать. В том числе цвет формы сделать белым, чтобы Image не выделялось. А вообще можно было Image сделать прозрачным. И сделал пересчёт начальных координат начальной точки на положение внутри Image.

	01.06.2012, 17:50