source: branches/overos/Os.Graphics.pas

unit Os.Graphics;

interface

uses
  Classes, SysUtils, Os.Types;

type
  TColor = Integer;

  { TCanvas }

  TCanvas = class
    procedure DrawLine(P1, P2: TPosition; Color: TColor); virtual;
    procedure DrawFrame(Rect: TRectangle; Color: TColor); virtual;
    procedure DrawArea(Rect: TRectangle; Color: TColor); virtual;
    procedure DrawText(P: TPosition; Color: TColor; Text: string); virtual;
    function GetTextSize(Text: string): TSize; virtual;
  end;

const
  clBlack = $000000;
  clGray = $808080;
  clWhite = $ffffff;


implementation

{ TCanvas }

procedure TCanvas.DrawLine(P1, P2: TPosition; Color: TColor);
begin
end;

procedure TCanvas.DrawFrame(Rect: TRectangle; Color: TColor);
begin
  with Rect do begin
    DrawLine(Position, Position + TPosition.Create(Size.Width, 0), Color);
    DrawLine(Position + TPosition.Create(Size.Width, 0), Position + TPosition.Create(Size.Width, Size.Height), Color);
    DrawLine(Position + TPosition.Create(Size.Width, Size.Height), Position + TPosition.Create(0, Size.Height), Color);
    DrawLine(Position + TPosition.Create(0, Size.Height), Position, Color);
  end;
end;

procedure TCanvas.DrawArea(Rect: TRectangle; Color: TColor);
begin
end;

procedure TCanvas.DrawText(P: TPosition; Color: TColor; Text: string);
begin
end;

function TCanvas.GetTextSize(Text: string): TSize;
begin
  Result := TSize.Create(0, 0);
end;


end.