source: trunk/UGraphics.pas

unit UGraphics;

{$mode delphi}

interface

uses
  Classes, SysUtils, Types;

type
  TColor = Cardinal;

  TBrushStyle = (bsSolid, bsClear);

  { TBrush }

  TBrush = class
    Style: TBrushStyle;
    Color: TColor;
    Opacity: Byte;
    procedure Assign(Source: TBrush);
  end;

  TPenStyle = (psSolid, psClear);

  { TPen }

  TPen = class
    Position: TPoint;
    Style: TPenStyle;
    Color: TColor;
    Width: Integer;
    procedure Assign(Source: TPen);
    constructor Create;
  end;

  { TFont }

  TFont = class
    Size: Integer;
    procedure Assign(Source: TFont);
  end;

  TGraphic = class

  end;

  { TCanvas }

  TCanvas = class
  protected
    function GetSize: TSize; virtual;
    procedure SetSize(AValue: TSize); virtual;
  public
    Pen: TPen;
    Brush: TBrush;
    Font: TFont;
    procedure TextOut(const Pos: TPoint; Text: string); overload; virtual;
    procedure TextOut(X, Y: Integer; Text: string); overload;
    procedure Line(const P1, P2: TPoint); overload; virtual;
    procedure Line(X1, Y1, X2, Y2: Integer); overload;
    procedure Ellipse(X1, Y1, X2, Y2: Integer); overload;
    procedure Ellipse(const Bounds: TRect); overload; virtual;
    procedure Rectangle(const ARect: TRect); overload; virtual;
    procedure Rectangle(X1, Y1, X2, Y2: Integer); overload;
    procedure RoundRect(X1, Y1, X2, Y2: Integer; RX, RY: Integer); overload;
    procedure RoundRect(const Rect: TRect; RX, RY: Integer); overload; virtual;
    procedure MoveTo(X, Y: Integer); overload;
    procedure MoveTo(const P: TPoint); overload;
    procedure LineTo(X, Y: Integer); overload;
    procedure LineTo(const P: TPoint); overload;
    procedure Polygon(const Points: array of TPoint); virtual;
    procedure StretchDraw(const DestRect: TRect; SrcGraphic: TGraphic); virtual;
    function TextExtent(const Text: string): TSize; virtual;
    procedure Pie(EllipseX1, EllipseY1, EllipseX2, EllipseY2,
      StartX, StartY, EndX, EndY: Integer); virtual;
    constructor Create;
    destructor Destroy; override;
    property Size: TSize read GetSize write SetSize;
  end;



const
  clBlack = $000000;
  clWhite = $ffffff;
  clGray = $808080;
  clRed = $0000ff;
  clGreen = $00ff00;
  clBlue = $ff0000;
  clYellow = $00ffff;
  clFuchsia = $ff00ff;
  clAqua = $ffff00;
  clBrown = $003090;
  clOrange = $0080ff;
  clLightBlue = $ff5050;


implementation

{ TFont }

procedure TFont.Assign(Source: TFont);
begin
  Size := Source.Size;
end;

{ TBrush }

procedure TBrush.Assign(Source: TBrush);
begin
  Style := Source.Style;
  Color := Source.Color;
  Opacity := Source.Opacity;
end;

{ TPen }

procedure TPen.Assign(Source: TPen);
begin
  Color := Source.Color;
  Style := Source.Style;
  Width := Source.Width;
  Position := Source.Position;
end;

constructor TPen.Create;
begin
  Width := 1;
end;

{ TCanvas }

function TCanvas.GetSize: TSize;
begin
end;

procedure TCanvas.SetSize(AValue: TSize);
begin
end;

procedure TCanvas.TextOut(const Pos: TPoint; Text: string);
begin
end;

procedure TCanvas.TextOut(X, Y: Integer; Text: string);
begin
  TextOut(Point(X, Y), Text);
end;

procedure TCanvas.Rectangle(const ARect: TRect);
begin
end;

procedure TCanvas.Rectangle(X1, Y1, X2, Y2: Integer);
begin
  Rectangle(Rect(X1, Y1, X2, Y2));
end;

procedure TCanvas.RoundRect(X1, Y1, X2, Y2: Integer; RX, RY: Integer);
begin
  RoundRect(Rect(X1, Y1, X2, Y2), RX, RY);
end;

procedure TCanvas.RoundRect(const Rect: TRect; RX, RY: Integer);
begin
end;

procedure TCanvas.MoveTo(X, Y: Integer);
begin
  MoveTo(Point(X, Y));
end;

procedure TCanvas.MoveTo(const P: TPoint);
begin
  Pen.Position := P;
end;

procedure TCanvas.LineTo(X, Y: Integer);
begin
  LineTo(Point(X, Y));
end;

procedure TCanvas.LineTo(const P: TPoint);
begin
  Line(Pen.Position, P);
  Pen.Position := P;
end;

procedure TCanvas.Polygon(const Points: array of TPoint);
begin
end;

procedure TCanvas.StretchDraw(const DestRect: TRect; SrcGraphic: TGraphic);
begin
end;

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

procedure TCanvas.Pie(EllipseX1, EllipseY1, EllipseX2, EllipseY2, StartX,
  StartY, EndX, EndY: Integer);
begin
end;

procedure TCanvas.Line(const P1, P2: TPoint);
begin
end;

procedure TCanvas.Line(X1, Y1, X2, Y2: Integer);
begin
  Line(Point(X1, Y1), Point(X2, Y2));
end;

procedure TCanvas.Ellipse(X1, Y1, X2, Y2: Integer);
begin
  Ellipse(Rect(X1, Y1, X2, Y2));
end;

procedure TCanvas.Ellipse(const Bounds: TRect);
begin
end;

constructor TCanvas.Create;
begin
  Brush := TBrush.Create;
  Pen := TPen.Create;
end;

destructor TCanvas.Destroy;
begin
  Pen.Free;
  Brush.Free;
  inherited;
end;

end.