On Mon, Jan 30, 2012 at 9:30 PM, Mattias Gaertner <[email protected]> wrote: > On Mon, 30 Jan 2012 09:48:58 -0300 > Marcos Douglas <[email protected]> wrote: > >> Hi, >> >> I can't navigate using Ctrl+Shift+C if unit has a class helper. >> If you try in code below, you got the error: "expected, but for found" >> >> But this code compiles without problems. >> >> unit Unit1; >> >> {$mode objfpc}{$H+} >> >> interface >> >> uses >> Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs; >> >> type >> TForm1 = class(TForm) >> private >> { private declarations } >> public >> { public declarations } >> procedure A; >> procedure B; >> end; >> >> TFormHelper = class helper for TForm1 >> public >> procedure C; >> end; >> >> var >> Form1: TForm1; >> >> implementation >> >> {$R *.lfm} >> >> { TForm1 } >> >> procedure TForm1.A; >> begin >> end; >> >> procedure TForm1.B; >> begin >> end; >> >> procedure TFormHelper.C; >> begin >> end; >> >> end. > > There is already a bug report: > http://bugs.freepascal.org/view.php?id=20623
Worked perfectly, thanks. Marcos Douglas -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
