Плазменная заливка формы

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

Если вам надоели обычные монотонные формы, то эта статья - спасенье для вас!!! Всё, что вам нужно сделать для того, чтобы ваше окно выглядело так же эффектно, как и показанное на рисунке - это только написать несколько строк кода:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
    plasma: array [0..768, 0..768] of byte;
    procedure makeplasma;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormPaint(Sender: TObject);
var
  x, y: integer;
begin
  makeplasma;
  for x := 0 to 255 do
  begin
    for y := 0 to 255 do
    begin
      Form1.Canvas.Pixels[x, y] := rgb(plasma[x, y],
      plasma[x + 256, y + 256], plasma[x + 512, y + 512]);
    end;
    Form1.update;
  end;
end;

procedure TForm1.makeplasma;

  procedure halfway(x1,y1,x2,y2: integer);

    procedure adjust(xa,ya,x,y,xb,yb: integer);
    var
      d: integer;
      v: double;
    begin
      if plasma[x,y]<>0 then
        exit;
      d:=Abs(xa-xb)+Abs(ya-yb);
      v:=(plasma[xa,ya]+plasma[xb,yb])/2+(random-0.5)*d*2;
      if v<1 then
        v:=1;
      if v>=193 then
        v:=192;
      plasma[x,y]:=Trunc(v);
    end;

  var
    x, y: integer;
    v: double;
  begin
    if (x2-x1<2) and (y2-y1<2) then
      exit;
    x:=(x1+x2) div 2;
    y:=(y1+y2) div 2;
    adjust(x1,y1,x,y1,x2,y1);
    adjust(x2,y1,x2,y,x2,y2);
    adjust(x1,y2,x,y2,x2,y2);
    adjust(x1,y1,x1,y,x1,y2);
    if plasma[x,y]=0 then
    begin
      v:=(plasma[x1,y1]+plasma[x2,y1]+plasma[x2,y2]+plasma[x1,y2])/4;
      plasma[x,y]:=Trunc(v);
    end;
    halfway(x1,y1,x,y);
    halfway(x,y1,x2,y);
    halfway(x,y,x2,y2);
    halfway(x1,y,x,y2);
  end;

var
  x, y: integer ;
begin
  randomize;
  plasma[0,768]:=random(192);
  plasma[768,768]:=random(192);
  plasma[768,0]:=random(192);
  plasma[0,0]:=random(192);
  halfway(0,0,768,768);
end;

end.

Перевод контента на русский язык:

Это программное обеспечение Delphi, генерирующее эффект плазмы на форме, рисуя пиксели с разными цветами с помощью свойства Canvas формы.

Разбивка кода:

1. Первая секция объявляет модуль Unit1, содержащий класс формы TForm1.
2. В интерфейсе секции определено типовое заявление для TForm1, а также его свойства и методы.
3. Процедура makeplasma генерирует 768x768 массив байтов (plasma) представляющий эффект плазмы.
4. Обработчик события FormPaint вызывается каждый раз, когда форма требует перерисовки (например, при первом отображении или при изменении размера окна).
5. В FormPaint, процедура makeplasma вызывается, которая инициализирует массив плазмы случайными значениями.
6. Затем вложенный цикл проходит по каждому пикселю в массиве плазмы и устанавливает его цвет с помощью свойства Canvas.Pixels.
7. Метод update вызывается для обновления отображения формы.

Процедура makeplasma содержит несколько внутренних процедур:

• halfway: рекурсивно генерирует значения пикселей между двумя заданными точками в массиве плазмы.
• adjust: корректирует значение пикселя в зависимости от расстояния до двух заданных точек и случайного шума.

В целом, этот код создает 2D-массив, представляющий эффект плазмы, и использует его для рисования пикселей с разными цветами на форме. Процедура makeplasma инициализирует массив случайными значениями и рекурсивно генерирует значения для промежуточных пикселей с помощью процедуры halfway.

Некоторые предложения:

• Рассмотрите возможность оптимизации производительности, уменьшив количество пикселей или используя более эффективные алгоритмы.
• Добавьте больше функциональности эффекту плазмы, например, анимацию или реакцию на ввод пользователя.
• Используйте более надежный метод генерации случайных чисел (например, RandomRange вместо plain Random).
• EXPERIMENTIRUJTE с разными цветовыми палитрами и эффектами для создания уникальных визуализаций.

В статье описывается способ создания эффектной плазменной заливки формы в программировании с помощью кода на языке Delphi.

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

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

:: Главная :: Интерфейс ::