lazarus/components/codetools/tests/fdt_basic.pas

unit fdt_basic;

{$mode objfpc}{$H+}

interface

uses
  Classes{declaration:Classes}, SysUtils;

type
  TMyClass2 = class;

  { TMyClass1 }

  TMyClass1 = class
  private
    function GetItems(Index: Integer): TComponent;
  public
    constructor Create{declaration:System.TObject.Create};
    procedure DefaultHandler{declaration:System.TObject.DefaultHandler}(var message); override;
    property Items[Index: Integer]: TComponent read GetItems; default;
  end;

  { TMyClass2 }

  TMyClass2 = class(TMyClass1{declaration:fdt_basic.TMyClass1})
  public
    procedure DefaultHandler(var message); override;
  end;

implementation

{ TMyClass1 }

function TMyClass1.GetItems(Index: Integer): TComponent;
begin
  if Index=0 then ;
  Result:=nil;
end;

constructor TMyClass1{declaration:fdt_basic.TMyClass1}.Create{declaration:fdt_basic.TMyClass1.Create};
begin
  Self.Items{declaration:fdt_basic.TMyClass1.Items}[0].Name{declaration:Classes.TComponent.Name}:='';
  Self[0].Name{declaration:Classes.TComponent.Name}:='';
end;

procedure TMyClass1.DefaultHandler(var message);
begin
  inherited DefaultHandler{declaration:System.TObject.DefaultHandler}(
    message{declaration:TMyClass1.DefaultHandler.message});
end;

{ TMyClass2 }

procedure TMyClass2.DefaultHandler(var message);
begin
  inherited DefaultHandler{declaration:fdt_basic.TMyClass1.DefaultHandler}(message);
end;

end.