source: branches/Xvcl/Xvcl.Graphics.pas

unit Xvcl.Graphics;

interface

uses
  Xvcl.Classes;

type

  TColor = (clNone, clBlack, clWhite, clGray, clSilver, clBlue, clGreen, clRed,
    clLightBlue, clLightRed, clLightGreen, clBrown, clYellow, clMagenta, clCyan);

  TPen = class
    Position: TPoint;
    Color: TColor;
  end;

  TBrush = class
    Color: TColor;
  end;

  TFont = class

  end;

  TVideoDevice = class
    Size: TPoint;
    procedure FillRect(Rect: TRectangle; Color: TColor); virtual;
    procedure Line(Pos1, Pos2: TPoint; Color: TColor); virtual;
    procedure SetPixel(Position: TPoint; Color: TColor); virtual;
    function GetPixel(Position: TPoint): TColor; virtual;
    procedure TextOut(Position: TPoint; Text: string); virtual;
    function GetTextSize(Text: string): TPoint; virtual;
  end;

  TCanvas = class
  private
    FPen: TPen;
    FBrush: TBrush;
    FFont: TFont;
  protected
    function GetVideoDevice: TVideoDevice; virtual;
  public
    Parent: TCanvas;
    function AdjustPos(Position: TPoint): TPoint; virtual;
    procedure TextOut(Position: TPoint; Text: string);
    function GetTextSize(Text: string): TPoint;
    procedure MoveTo(Position: TPoint);
    procedure LineTo(Position: TPoint);
    procedure Line(StartPos, EndPos: TPoint; Color: TColor);
    procedure SetPixel(Position: TPoint; Color: TColor);
    function GetPixel(Position: TPoint): TColor;
    procedure FillRect(Rect: TRectangle);
    constructor Create;
    destructor Destroy; override;
    property Pen: TPen read FPen;
    property Brush: TBrush read FBrush;
    property Font: TFont read FFont;
    property VideoDevice: TVideoDevice read GetVideoDevice;
  end;

  TBitmap = class
  private
    function GetPixel(X, Y: Integer): TColor;
    procedure SetPixel(X, Y: Integer; const Value: TColor);
  public
    property Pixels[X, Y: Integer]: TColor read GetPixel write SetPixel;
  end;


implementation

{ TPen }

{ TCanvas }

function TCanvas.AdjustPos(Position: TPoint): TPoint;
begin
  Result := Position;
end;

constructor TCanvas.Create;
begin
  FPen := TPen.Create;
  FBrush := TBrush.Create;
  FFont := TFont.Create;
end;

destructor TCanvas.Destroy;
begin
  FFont.Destroy;
  FBrush.Destroy;
  FPen.Destroy;
  inherited;
end;

procedure TCanvas.FillRect(Rect: TRectangle);
begin
  Rect.TopLeft := AdjustPos(Rect.TopLeft);
  if Assigned(VideoDevice) then VideoDevice.FillRect(Rect, Brush.Color);
end;

function TCanvas.GetPixel(Position: TPoint): TColor;
begin
  if Assigned(VideoDevice) then Result := VideoDevice.GetPixel(Position)
    else Result := clNone;
end;

function TCanvas.GetTextSize(Text: string): TPoint;
begin
  if Assigned(VideoDevice) then
    Result := VideoDevice.GetTextSize(Text)
    else Result := TPoint.Create(0, 0);
end;

function TCanvas.GetVideoDevice: TVideoDevice;
begin
  Result := nil;
end;

procedure TCanvas.Line(StartPos, EndPos: TPoint; Color: TColor);
begin
  if Assigned(Parent) then Parent.Line(StartPos, EndPos, Color);
end;

procedure TCanvas.LineTo(Position: TPoint);
begin
  if Assigned(VideoDevice) then
    VideoDevice.Line(AdjustPos(Pen.Position), AdjustPos(Position), Pen.Color);
  MoveTo(Position);
end;

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

procedure TCanvas.SetPixel(Position: TPoint; Color: TColor);
begin
  if Assigned(VideoDevice) then VideoDevice.SetPixel(Position, Color);
end;

procedure TCanvas.TextOut(Position: TPoint; Text: string);
begin
  if Assigned(VideoDevice) then VideoDevice.TextOut(AdjustPos(Position), Text);
end;

{ TBitmap }

function TBitmap.GetPixel(X, Y: Integer): TColor;
begin

end;

procedure TBitmap.SetPixel(X, Y: Integer; const Value: TColor);
begin

end;


{ TVideoDevice }

procedure TVideoDevice.FillRect(Rect: TRectangle; Color: TColor);
begin

end;

function TVideoDevice.GetPixel(Position: TPoint): TColor;
begin
  Result := clNone;
end;

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

procedure TVideoDevice.Line(Pos1, Pos2: TPoint; Color: TColor);
begin

end;

procedure TVideoDevice.SetPixel(Position: TPoint; Color: TColor);
begin

end;

procedure TVideoDevice.TextOut(Position: TPoint; Text: string);
begin
end;

end.