Question

Как через лазарус сделать чтобы форма меняла цвет от одного до другого(от красного к черному и потом наоборот)

Answer 1

1 var
2 cl : array[0 .. 2] of TColor = (clGreen, clRed, clYellow);
3 curr : integer = 0;
4
5 procedure TForm1.Button1Click(Sender: TObject);
6 begin
7 curr := succ(curr) mod 3;
8 Color := cl[curr];
9 end;
10
11 procedure TForm1.FormCreate(Sender: TObject);
12 begin
13 Color := cl[curr];
14 end;

Answer 2

Для того чтобы в Lazarus создать эффект изменения цвета формы от одного цвета к другому и обратно, вы можете использовать таймер (TTimer) и изменять цвет формы в зависимости от прошедшего времени. Ниже представлен пример кода на Object Pascal (используемом в Lazarus) для реализации этого эффекта:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

{ TForm1 }

TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
    FColorStart: TColor;
    FColorEnd: TColor;
    FColorCurrent: TColor;
    FTimerDirection: Integer;
    procedure UpdateFormColor;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Начальные значения цветов
  FColorStart := clRed;
  FColorEnd := clBlack;
  FColorCurrent := FColorStart;

// Начальное направление таймера (увеличение или уменьшение)
  FTimerDirection := 1;

// Настройка таймера
  Timer1.Interval := 50; // Интервал в миллисекундах
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Изменение текущего цвета в зависимости от направления таймера
  if FTimerDirection = 1 then
  begin
    FColorCurrent := RGBToColor(
      Red(FColorCurrent) + 5,
      Green(FColorCurrent) + 5,
      Blue(FColorCurrent) + 5
    );

// Переключение направления таймера, если достигнут конечный цвет
    if FColorCurrent >= FColorEnd then
      FTimerDirection := -1;
  end
  else
  begin
    FColorCurrent := RGBToColor(
      Red(FColorCurrent) - 5,
      Green(FColorCurrent) - 5,
      Blue(FColorCurrent) - 5
    );

// Переключение направления таймера, если достигнут начальный цвет
    if FColorCurrent <= FColorStart then
      FTimerDirection := 1;
  end;

// Обновление цвета формы
  UpdateFormColor;
end;

procedure TForm1.UpdateFormColor;
begin
  Canvas.Brush.Color := FColorCurrent;
  Canvas.FillRect(ClientRect);
end;

end.

Этот код создает форму с таймером, который каждый раз, когда срабатывает, изменяет цвет формы от начального цвета (`FColorStart`) к конечному цвету (`FColorEnd`) и наоборот. В приведенном примере изменение цвета происходит с постепенным увеличением и уменьшением значений красного, зеленого и синего компонентов цвета. Вы можете настроить интервал таймера и другие параметры в соответствии с вашими потребностями.