source: trunk/UControls.pas

unit UControls;

{$mode delphi}

interface

uses
  Classes, SysUtils, UGraphics;

type

  { TControl }

  TControl = class
    Canvas: TCanvas;
    Position: TPoint;
    Size: TPoint;
    Text: string;
    procedure Paint; virtual;
    constructor Create;
    destructor Destroy; override;
  end;

  { TButton }

  TButton = class(TControl)
    procedure Paint; override;
  end;

implementation

{ TButton }

procedure TButton.Paint;
begin
  with Canvas do begin
    Rectangle(Rect(0, 0, Size.Width, Size.Height));
    TextOut(Point(Position.X, Position.Y), Text);
  end;
end;

{ TControl }

procedure TControl.Paint;
begin

end;

constructor TControl.Create;
begin
  Canvas := TCanvas.Create;
end;

destructor TControl.Destroy;
begin
  Canvas.Free;
  inherited;
end;

end.