anchor.diff:    StopServerAction.Enabled := Assigned(FServer) and (FServer.Active = True);
   end;
   
  -end.
  +end.
  
positive.code:     begin
        Result := True;
        if SameText(AURL.Document, 'favicon.ico') then
        begin
          Result := False;
          Handled := True;
        end
        else if SameText(ARequest.Method, 'OPTIONS')  then
        begin
          Result := False;
          Handled := True;
  
negative.code: 
    Home: https://github.com/andrea-magni/MARS
  *)
  unit Server.Forms.Main;
  
  {$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}
  
  