[-=Virus=-]

Подскажите как изменить Panel1 программно.
Допустим.Уменьшить до определёного размера и поставить дапустим поцентру его.

[lmikle]

Установкой свойств Top, Left, Width и Height.
Да, еще якоря и выравнивание должны позволять это сделать.

[Енот]

Чтобы поставить по центру:

Код:

Panel1.left:=(Form1.width div 2)-(Panel1.width div 2);
Panel1.top:=(Form1.height div 2)-(Panel1.height div 2);

[lmikle]

Угу, только оптимальнее будет так:

Код:

Panel1.left:=(Form1.width - Panel1.width) div 2;
Panel1.top:=(Form1.height - Panel1.height) div 2;

[Страдалецъ]

А быстрее и оптимальнее так:

Код:

Panel1.left:=(Form1.width - Panel1.width) shr 1;
Panel1.top:=(Form1.height - Panel1.height) shr 1;

[lmikle]

Согласен
Но тогда еще вот это:

Код:

With Panel1 Do
  Begin
    left:=(Self.width - width) shr 1;
    top:=(Self.height - height) shr 1;
  End;

Убираем 3 из 4 операций разрешения ссылки
PS. про Self - не уверен, но есть подозрение, что это тоже более оптимально, чем обращение к переменной.

Страдалецъ, думаем дальше - как еще можно оптимизировать

[Страдалецъ]

Но так получилось несколько больше писанины, что не радует.

[lmikle]

Зато бинарный код компактнее и быстрее.

[Страдалецъ]

С этим согласен. Думаю здесь можно остановится.

[lmikle]

Наверное, да. Дальше - только если на асме переписать, но не факт, что даже так станет быстрее