anchor.diff:    end;
   
     MessageLog_Update(True);
  +end;
  +
  +
  +procedure TKMGamePlayInterface.MessageLog_ItemClick(Sender: TObject);
  +var
  +  ItemId, MessageId: Integer;
  +begin
  +  ItemId := ColumnBox_MessageLog.ItemIndex;
  +  if ItemId = -1 then Exit;
  +
  +  MessageId := ColumnBox_MessageLog.Rows[ItemId].Tag;
  +  if MessageId = -1 then Exit;
  +
  +  MessageLog_ShowMessage(MessageId);
   end;
   
   
  
positive.code:     procedure Message_GoTo(Sender: TObject);
      procedure Message_UpdateStack;
      procedure MessageLog_Click(Sender: TObject);
      procedure MessageLog_ItemClick(Sender: TObject);
      procedure MessageLog_Close(Sender: TObject);
      procedure MessageLog_Update(aFullRefresh: Boolean);
  
negative.code:     end;
    end;
  
    CheckMessageKeys(Key);
  
    // General function keys
    if Key = gResKeys[SC_PAUSE].Key then
      if (fUIMode = umSP) then SetPause(True); // Display pause overlay
  
  