Показать сообщение отдельно
  #4  
Старый 19.02.2012, 21:29
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от pak.k87
про одну треть часть я сделала. а как сделать чтобы окно выдерживало геометрические размеры соотношения золотого сечения

Код:
const
  gs = 1.61803399;

...

begin
  form1.width:=screen.width div 3;
  form1.height:=Round(form1.width * gs); // или делить в зависимости от ориентации формы.
end;
Ответить с цитированием