anchor.diff:      InitialDir := '';
       Filter := '';
       TabOrder := 5;
  +    Hint := ' ';
  +    OnShowHint := @BeforeShowHint;
     end;
   
     Label3 := TfpgLabel.Create(tsCompiler);
  
positive.code: uses
    fpg_iniutils
    ,fpg_dialogs
    ,Project
    ,ideconst
    ,ideutils
    ,idemacros
    ;
  
  type
  
negative.code:     Directory := '';
      RootDirectory := '';
      TabOrder := 17;
      Hint := ' ';
      OnShowHint := @BeforeShowHint;
    end;
  
    Label9 := TfpgLabel.Create(tsCompiler);
  