anchor.diff:    SFileName: string;
     {$endif}
     SLexerName: string;
  +  bDisFree: boolean;
   begin
     Ed:= Sender;
     Frame:= GetEditorFrame(Ed);
     if Frame=nil then exit;
  +
  +  bDisFree:= FShowFullScreen and FShowFullScreen_DisFree;
   
     {$ifdef debug_on_lexer}
     SFileName:= Frame.GetFileName(Ed);
  
positive.code: begin
    if FShowFullScreen=AValue then Exit;
    FShowFullScreen:= AValue;
    SetFullScreen_Ex(AValue, true);
  end;
  
  
negative.code: begin
    if FShowFullScreen=AValue then Exit;
    FShowFullScreen:= AValue;
    FShowFullScreen_DisFree:= false;
    SetFullScreen_Ex(AValue, false);
  end;
  
  