Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

5th
Сен

Ступенчатое изменение размера формы

Posted by micher under Delphi

tsar_

Пишу прогу, в которой требуется отображают иконки (32х32) в одну строку. Иконок может быть довольно много, так что некоторые из них могут не умещаться на форме.

Вся загвоздка в том, что необходимо реализовать ступенчатое изменение размеров формы, т.е. с определенным шагом. Что-то похожее реализовано для меню инструментов в MathCad (панели «калькулятор», «графика» и т.д.). В моей проге форма без рамки (тип границы bsNone), расположена горизонтально, т.е. под изменением размеров понимается «расширение-сужение».

Как реализовать такой эффект?

SNUPY

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,

NewHeight: Integer; var Resize: Boolean);

const step =32;

var

Form: TForm;

begin

if Sender is TForm then

begin

Form := Sender as TForm;

NewWidth := ((NewWidth - Form.Width) div step)*step + Form.width;

NewHeight := ((NewHeight - Form.Height) div step)*step + Form.Height;

end;

end;

Поисковая оптимизация и раскрутка сайта (SEO) – это комплекс мер по значительному увеличению посещаемости веб-ресурса потенциальными покупателями из популярных поисковых систем Рунета: Яндекс, Google, Rambler, Mail. Этот метод привлечения целевых клиентов во много раз эффективнее таких традиционных технологий маркетинга, как печатная, наружная, телевизионная или радийная реклама. Грамотно организованная оптимизация и раскрутка сайтов позволяет максимально точно попадать в нужную целевую аудиторию при наименьшей цене контакта с потенциальным клиентом.

тема на форуме