source: branches/overos/Os.Types.pas

unit Os.Types;

interface

uses
  Classes, SysUtils;

type

  { TSize }

  TSize = record
    Width: Integer;
    Height: Integer;
    class function Create(Width, Height: Integer): TSize; static;
    class operator Add(A, B: TSize): TSize;
    class operator Subtract(A, B: TSize): TSize;
    class operator Equal(A, B: TSize): Boolean;
  end;

  { TPosition }

  TPosition = record
    Left: Integer;
    Top: Integer;
    class function Create(Left, Top: Integer): TPosition; static;
    class operator Add(A, B: TPosition): TPosition;
    class operator Subtract(A, B: TPosition): TPosition;
    class operator Equal(A, B: TPosition): Boolean;
  end;

  { TRectangle }

  TRectangle = record
    Position: TPosition;
    Size: TSize;
    class function Create(Position: TPosition; Size: TSize): TRectangle; static;
    function Contains(Position: TPosition): Boolean;
    class operator Equal(A, B: TRectangle): Boolean;
  end;

  TMessage = class
    Handle: TObject;
  end;


implementation

{ TRectangle }

class function TRectangle.Create(Position: TPosition; Size: TSize): TRectangle;
begin
  Result.Position := Position;
  Result.Size := Size;
end;

function TRectangle.Contains(Position: TPosition): Boolean;
begin
  Result := (Self.Position.Left <= Position.Left) and
    (Self.Position.Top <= Position.Top) and
    (Self.Position.Left + Self.Size.Width >= Position.Left) and
    (Self.Position.Top + Self.Size.Height >= Position.Top);
end;

class operator TRectangle.Equal(A, B: TRectangle): Boolean;
begin
  Result := (A.Position = B.Position) and (A.Size = B.Size);
end;

{ TPosition }

class function TPosition.Create(Left, Top: Integer): TPosition;
begin
  Result.Left := Left;
  Result.Top := Top;
end;

class operator TPosition.Add(A, B: TPosition): TPosition;
begin
  Result.Left := A.Left + B.Left;
  Result.Top := A.Top + B.Top;
end;

class operator TPosition.Subtract(A, B: TPosition): TPosition;
begin
  Result.Left := A.Left - B.Left;
  Result.Top := A.Top - B.Top;
end;

class operator TPosition.Equal(A, B: TPosition): Boolean;
begin
  Result := (A.Left = B.Left) and (A.Top = B.Top);
end;

{ TSize }

class function TSize.Create(Width, Height: Integer): TSize; static;
begin
  Result.Width := Width;
  Result.Height := Height;
end;

class operator TSize.Add(A, B: TSize): TSize;
begin
  Result.Width := A.Width + B.Width;
  Result.Height := A.Height + B.Height;
end;

class operator TSize.Subtract(A, B: TSize): TSize;
begin
  Result.Width := A.Width - B.Width;
  Result.Height := A.Height - B.Height;
end;

class operator TSize.Equal(A, B: TSize): Boolean;
begin
  Result := (A.Width = B.Width) and (A.Height = B.Height);
end;


end.