anchor.diff:  var
     AppActiveForm: TObject = nil;
   
  -var
  -  //used by TUniqueInstance (which is used only on Unix)
  -  AppServerId: string = 'cudatext.0';
  -
   type
     TAppHistoryElement = (
       ahhText,
  
positive.code:   Result:= AppCommandCategory(Cmd) in [categ_Normal, categ_Plugin, categ_PluginSub];
  end;
  
  procedure InitBasicCommandLineOptions(out ANewInstance: boolean);
  var
    S: string;
    i: integer;
  begin
    ANewInstance:= false;
    for i:= 1 to ParamCount do
    begin
      S:= ParamStr(i);
      if S='-n' then
        ANewInstance:= true;
    end;
  end;
  
  
negative.code:   AppBookmarkImagelist: TImageList = nil;
    AppApiFlatTheme: TATFlatTheme;
    AppAlwaysNewInstance: boolean = false;
    AppServerId: string = 'cudatext.0'; //used by TUniqueInstance (which is used only on Unix)
  
  var
    AppFrameList1: TFPList; //all frames - for main thread
  