anchor.diff:  
     Home: https://github.com/andrea-magni/MARS
   *)
  -unit Server.Forms.Main;
  -
  -{$I MARS.inc}
  -
  -interface
  +unit Server.Forms.Main;
   
  -uses Classes, SysUtils, Forms, ActnList, ComCtrls, StdCtrls, Controls, ExtCtrls
  -  , MARS.http.Server.Indy, System.Actions
  -  ;
  -
  -type
  -  TMainForm = class(TForm)
  -    MainActionList: TActionList;
  -    StartServerAction: TAction;
  -    StopServerAction: TAction;
  -    TopPanel: TPanel;
  -    Label1: TLabel;
  -    StartButton: TButton;
  -    StopButton: TButton;
  -    PortNumberEdit: TEdit;
  -    procedure StartServerActionExecute(Sender: TObject);
  -    procedure StartServerActionUpdate(Sender: TObject);
  -    procedure StopServerActionExecute(Sender: TObject);
  -    procedure StopServerActionUpdate(Sender: TObject);
  -    procedure FormCreate(Sender: TObject);
  -    procedure PortNumberEditChange(Sender: TObject);
  -    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  -  private
  -    FServer: TMARShttpServerIndy;
  -  public
  -  end;
  -
  -var
  -  MainForm: TMainForm;
  -
  -implementation
  +{$I MARS.inc}
  +
  +interface
  +
  +uses Classes, SysUtils, Forms, ActnList, ComCtrls, StdCtrls, Controls, ExtCtrls
  +  , MARS.http.Server.Indy, System.Actions
  +  ;
  +
  +type
  +  TMainForm = class(TForm)
  +    MainActionList: TActionList;
  +    StartServerAction: TAction;
  +    StopServerAction: TAction;
  +    TopPanel: TPanel;
  +    Label1: TLabel;
  +    StartButton: TButton;
  +    StopButton: TButton;
  +    PortNumberEdit: TEdit;
  +    procedure StartServerActionExecute(Sender: TObject);
  +    procedure StartServerActionUpdate(Sender: TObject);
  +    procedure StopServerActionExecute(Sender: TObject);
  +    procedure StopServerActionUpdate(Sender: TObject);
  +    procedure FormCreate(Sender: TObject);
  +    procedure PortNumberEditChange(Sender: TObject);
  +    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  +  private
  +    FServer: TMARShttpServerIndy;
  +  public
  +  end;
  +
  +var
  +  MainForm: TMainForm;
  +
  +implementation
   
   {$R *.dfm}
   
  
positive.code:   StopServerAction.Enabled := Assigned(FServer) and (FServer.Active = True);
  end;
  
  end.
  
negative.code:     begin
        Result := True;
        if SameText(AURL.Document, 'favicon.ico') then
        begin
          Result := False;
          Handled := True;
  