Почему не изменяется размер окна как надо?

@Соколиный глаз · Регистрация: 25.07.2014

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

Надо сделать пропорциональное изменение ширины и высоты:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses GraphABC; 
var
  W, H: integer; 
  K: real;
 
begin
  W := Window.Width;H := Window.Height; 
  K := W / H; 
  SetWindowIsFixedSize(true); 
  for var heigth := h to 6000 do 
  begin
    Window.Width := Round(k * Window.Height); 
    Window.Height := Window.Height + 2; 
    Sleep(10); 
  end; 
end.

Но почему это (вариант ниже) тогда не работает?

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses GraphABC;
var
  W, H: integer;
  K: real;
 
procedure Resize():=Window.Width := Round(k * Window.Height);
begin
  W := Window.Width;H := Window.Height;
  K := W / H;
  OnResize:=Resize;
end.

Добавлено через 1 минуту
W/H = W2/H2 = k, где W и H - первоначальные размеры окна, а W2 и H2 - текущие.

Добавлено через 1 минуту
Я растягиваю окно по высоте и оно начинает моргать.

@RaevskiAnatoly · 21.06.2017, 16:03

Сообщение от Volobuev Ilya

Я растягиваю окно по высоте и оно начинает моргать.

Растягивая окно , ты возбуждаешь событие OnResize , в его коде ты меняешь ширину и высоту и поэтому снова возбуждается событие . А в нем ты снова меняешь параметры и так рекурсивно окно начинает моргать. Необходимо добавить проверку на изменение размера - если прошлый размер идентичен текущему , то выход из метода.

Новые блоги и статьи Все статьи Все блоги /
влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .