source: branches/delphi/Area.pas

unit Area;

interface

uses
  WinProcs, Classes, Graphics, Controls;

type
  TArea = class(TGraphicControl)
    constructor Create(aOwner: TComponent); override;
  protected
    procedure Paint; override;
  end;

procedure Register;


implementation

procedure Register;
begin
RegisterComponents('Samples', [TArea]);
end;

constructor TArea.Create;
begin
inherited Create(aOwner);
Enabled:=false;
ShowHint:=true;
end;

procedure TArea.Paint;
begin
if csDesigning in ComponentState then
  with Canvas do
    begin Brush.Color:=$FF0000; FrameRect(Rect(0,0,width,height)) end
end;

end.