auto completion and completion menu not working/proposing interface helpers
Original Reporter info from Mantis: BBaz @basile.b
-
Reporter name:
Original Reporter info from Mantis: BBaz @basile.b
- Reporter name:
Description:
auto completion and completion menu dont work with interface helpers
Steps to reproduce:
for a new application:
---
unit Unit1;
{$mode objfpc}{$H+}
{$MODESWITCH TYPEHELPERS}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs;
type
Ibase = interface
end;
TInterfaceHelper = type helper for Ibase
function isAssigned: boolean;
end;
IFoo = interface(Ibase)
end;
{ TForm1 }
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var
f: IFoo;
begin
if f.isAss {CTRL+SPACE here, no isAssigned !} then begin end;
end;
function TInterfaceHelper.isAssigned: boolean;
begin
result := assigned(self);
end;
end.
---
try to get completion after f.isAss
in FormCreate
Mantis conversion info:
- Mantis ID: 37334
- Version: 2.0.10