anchor.diff:  procedure TMainForm.MainFormShow(Sender: TObject);
   var
     lFilename: TfpgString;
  +  {$IFDEF ABOUT_SYSMENU}
  +  hSysMenu: HMENU;
  +const
  +  ID_ABOUT = 200001;  // Must match the definition in fpg_gdi.pas
  +  {$ENDIF}
   begin
     bvlBody.Realign;
   
  
positive.code: procedure TMainForm.miToolsShowEnvVariablesClicked(Sender: TObject);
    function LGetEnvVarValue(const AVariable: string): string;
    begin
      Result := Format('%s = ''%s''', [AVariable, GetEnvironmentVariable(AVariable)]);
    end;
  begin
    RichView.Clear;
  
negative.code: 
  {$mode objfpc}{$H+}
  
  {$IFDEF WINDOWS}
    {$define ABOUT_SYSMENU}
  {$ENDIF}
  
  interface
  
  uses
    {$IFDEF ABOUT_SYSMENU}
    Windows,    // Used for HMENU to add a new menu to the window System Menu. This feature is just for fun.
    {$ENDIF}
    SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_panel, fpg_tab,
    fpg_tree, fpg_splitter, fpg_menu, fpg_button, fpg_listbox,
    fpg_label, fpg_edit, fpg_radiobutton, fpg_progressbar, fpg_imagelist,
  