Делаем свое загрузочное Logo

[RenatPro]

Делаем загрузочное Лого в Lazarus

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  i:integer;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
    SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
    SetLayeredWindowAttributes(Handle,clSilver,200,LWA_COLORKEY);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image3.Width := i;
inc(i);
if i = 748 then
begin
i:=0;

end;

end;

end.

Вот что получилось у меня:

Результат