Разукрасить свою форму

Delphi , Программа и Интерфейс , Формы

Автор: Рудный Артем

Не самый рациональный, но один из самых простых способов разукрасить свою форму. В событии формы onPoint напишем следующее:

procedure TForm1.FormPaint(Sender: TObject);
var
  i, j: Longint;
begin
  with Canvas do
    for i := 1 to Width do // для всех точек Формы по горизонтали
    begin
      Application.ProcessMessages;
      for j := 1 to Height do // для каждой точки Формы по вертикали
        Pixels[i, j] := random(9999); // задаём случайный цвет пиксела
    end;
  // получится мраморное окно
end;

// Теперь можно поэкспериментировать с цветом пикселей:
// Для этого выражение random(9999)заменим на другие к примеру
J * i
Sqr(i + j)
Round(Sqr(i + j) / Pi)
// Здесь можно издеваться как фантазия позволит!!!.

Что за креативный подход к декорированию формы! 😊

Автор Артем Рудный написал процедуру под названием FormPaint, которая запускается событием onPoint формы. Эта процедура использует цикл для перебора каждого пикселя в канвасе формы и присваивает ему случайный цвет с помощью свойства Pixels.

Вот разбивка того, что код делает:

1. Внешний цикл перебирает каждый пункт в форме, как горизонтально (i), так и вертикально (j). Это делается с помощью свойств Width и Height формы.
2. Внутренний цикл вызывает Application.ProcessMessages, чтобы обработать любые pending сообщения, такие как сообщения о рисовании.
3. Пиксель в позиции (i, j) присваивается случайный цвет с помощью Pixels[i, j] := Random(9999). Это создаст эффект мозаики или марбл на форме.

Автор предлагает экспериментировать с различными формулами для генерации цветов, например:

• J * i: Это создаст эффект градиента.
• Sqr(i + j): Это создаст более сложный паттерн на основе суммы горизонтальных и вертикальных координат.
• Round(Sqr(i + j) / Pi): Это создаст еще более изящный паттерн, разделив сумму по pi и округлив результат.

В целом, это код является отличным примером того, как можно использовать канвас Delphi для создания уникальных и визуально интересных эффектов в своих формах. 👍

Однако я имею несколько предложений для улучшения:

• Вместо использования Random(9999), который может генерировать очень яркие или темные цвета,consider использовать более контролируемый метод случайной генерации, например, Random(255) для получения более равномерного распределения цветов.
• Вы можете также добавить некоторые вариации в генерации цветов, введя некоторую случайность в формулу. Например, вы можете умножить результат на маленькую случайную величину.
• Если вы хотите сделать эффект более динамичным, consider использовать анимацию для постепенного изменения пиксельных цветов по времени.

В целом, это код является отличным стартовым пунктом для исследования креативных возможностей Delphi' с канвасом! 🎨

Автор статьи Артем Рудный предлагает необычный способ разукрасить форму, написав на языке Delphi процедуру TForm1.FormPaint, которая задает случайные цвета пикселей в окне.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Формы ::