source: trunk/River.pas

unit River;

interface

uses
  Classes, SysUtils, Graphics, Generics.Collections;

type
  { TRiver }

  TRiver = class
    Points: array of TPoint;
    procedure Paint(Canvas: TCanvas);
  end;

  { TRivers }

  TRivers = class(TObjectList<TRiver>)
  end;


implementation

{ TRiver }

procedure TRiver.Paint(Canvas: TCanvas);
begin
  Canvas.Brush.Color := $ffffe0;
  Canvas.Brush.Style := bsSolid;
  Canvas.Polygon(Points);
end;

end.