FreePascal.ru

Нужно изменить анимацию так,чтоб солнце двигалось по прямой


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, Math;

type
TForm1 = class(TForm)
PaintBox: TPaintBox;
BitBtn: TBitBtn;
Timer: TTimer ...