<br />
<b>Warning</b>:  ob_start(): function 'compress_handler' not found or invalid function name in <b>/www/htdocs/xfmantis/core.php</b> on line <b>18</b><br />
<p style="color:red">SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)</p><p style="color:red">SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)</p><p style="color:red">SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)</p><p style="color:red">SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)</p><p style="color:red">SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)</p><p style="color:red">SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)</p><p style="color:red">SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)</p><p style="color:red">SYSTEM WARNING: Cannot modify header information - headers already sent by (output started at /www/htdocs/xfmantis/core.php:18)</p>program AddButton;

var
  ID: Integer;
  Event: TTacticButtonEvent;
  
procedure DemoButton1CallBack(Sender: TObject);
begin
  game_api_MessageBox('Hello from DemoButton1CallBack');
  tactic_api_RemoveButton('TestButton1');
end;

procedure DemoButton2CallBack(Sender: TObject);
begin
  game_api_MessageBox('Hello from DemoButton2CallBack');
  tactic_api_RemoveButton('TestButton2');
end;

procedure DemoButton3CallBack(Sender: TObject);
begin
  game_api_MessageBox('Hello from DemoButton3CallBack');
  tactic_api_RemoveButton('TestButton3');
end;

procedure DemoButtonCallBack(Sender: TObject);
begin
  game_api_MessageBox('Hello from DemoButtonCallBack');
  tactic_api_RemoveButton('TestButton'+IntToStr(ID));
  Dec(ID);
  Event.Caption:=IntToStr(ID);
end;

procedure AddDemoButtonCallBack(Sender: TObject);
begin
  Inc(ID);
  tactic_api_AddButton('TestButton'+IntToStr(ID), 'DemoButton-'+IntToStr(ID), @DemoButtonCallBack);
  
  Event.Caption:=IntToStr(ID);
end;

procedure StartMission;
begin
  tactic_api_AddButton('TestButton1', 'DemoButton-1', @DemoButton1CallBack);
  tactic_api_AddButton('TestButton2', 'DemoButton-2', @DemoButton2CallBack);
  tactic_api_AddButton('TestButton3', 'DemoButton-3', @DemoButton3CallBack);
  Event:=tactic_api_AddButton('TestButton4', 'AddDemoButton', @AddDemoButtonCallBack);
end;

begin
  ID := 4;
  MissionType:=mzUser;
end.