anchor.diff:      procedure CreateOptionsFrame(AOwner: TComponent; ATendency: TEditorTendency; AddFrame: TAddFrameCallBack); override;
       property Compiler: string read FCompiler write FCompiler;
     end;
  -*)
   
   implementation
   
  
positive.code:   FCapabilities := [capRun, capCompile, capLink, capOptions];
    FName := 'Verilog';
    FTitle := 'Verilog project';
    FDescription := 'Verilog/FPC/Lazarus Files, *.v, *.vh';
    FImageIndex := -1;
    AddGroup('Verilog', 'Verilog');
    AddGroup('dpr', 'Verilog');
    AddGroup('lpr', 'Verilog');
    AddGroup('ppr', 'Verilog');
    AddGroup('lfm', 'lfm');
    //AddGroup('inc');
  end;
  
  procedure TVerilogTendency.DoRun(Info: TmneRunInfo);
  
negative.code:         if Options.ExpandPaths then
            aPath := Engine.ExpandFile(aPath);
          if p <> '' then
            p := p + PathSeparator;
          p := p + aPath;
        end;
      end;
      if p <> '' then
        aRunItem.Info.Params := aRunItem.Info.Params + '-I ' + p + #13;
  
      for i := 0 to Engine.Files.Count-1 do
        if Engine.Files[i].Extension='.v' then
          aRunItem.Info.Params := aRunItem.Info.Params + Engine.Files[i].Name + #13;
    end;
  
    if rnaExecute in Info.Actions then
  