anchor.diff:      FFindMarkingMode: TATFindMarkingMode;
       FFindMarkingCaret1st: boolean;
       FShowFullScreen: boolean;
  +    FShowFullScreen_DisFree: boolean;
       FOrigBounds: TRect;
       FOrigWndState: TWindowState;
       FOrigShowToolbar: boolean;
  
positive.code:   SFileName: string;
    {$endif}
    SLexerName: string;
  begin
    Ed:= Sender;
    Frame:= GetEditorFrame(Ed);
    if Frame=nil then exit;
  
    {$ifdef debug_on_lexer}
    SFileName:= Frame.GetFileName(Ed);
  
negative.code: begin
    if FShowFullScreen=AValue then Exit;
    FShowFullScreen:= AValue;
    FShowFullScreen_DisFree:= false;
    SetFullScreen_Ex(AValue, false);
  end;
  
  