
19.02.2012, 21:29
|
Модератор
|
|
Регистрация: 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;
|