Witam, mam prosty program mający wykonać prostą animację zmniejszenia rozmiaru tak dla picu, tylko dlaczego ten program się nawet nie uruchamia? Proces jest, ok 1000K tylko zajmuje ale nic poza tym, nie wyświetla się.
Unit Tetrys;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure Start;
procedure FPS;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Start;
begin
sleep(1000);
FPS;
end;
procedure TForm1.FPS;
begin
if (Width <> 1280) and (Width>2) then
Width := Width-1;
Start;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Start;
end;
end.