0002332: Nachrichten auf Geoscape zusammenfassen

Warning: ob_start(): function 'compress_handler' not found or invalid function name in /www/htdocs/xfmantis/core.php on line 18
0002332: Nachrichten auf Geoscape zusammenfassen - Mantis

Viewing Issue Simple Details [ Jump to Notes ]

[ View Advanced ] [ Issue History ] [ Print ]

Category

Severity

Reproducibility

Date Submitted

Last Update

0002332

[X-Force] Allgemein

feature

always

05.10.09 19:07

06.11.09 03:00

Reporter

Natter

View Status

public

Assigned To

gnfalex

Priority

normal

Resolution

fixed

Status

closed

Product Version

Summary

0002332: Nachrichten auf Geoscape zusammenfassen

Description

Gnfalex hat eine kleine Prozedur geschrieben, die gleiche Nachrichten auf dem Geoscape zusammenfasst. Außerdem werden Nachrichten nur noch im unteren Drittel angezeigt (hier sollte man aber zukünftig überlegen, ob man die Zeilenhöhe aus der Schriftgröße ermitteln sollte - es könnte sein, das die je nach Auflösung nicht 15 Pixel beträgt).

Additional Information

  procedure MergeMessages;
  var
    i :integer;
    Count,temp : String;
    symbol : char;
  begin
    // If some messages already exist,try to unit into one
        // United string look like
    // "28.01.2042 at 01:48: One 'Glas' was produced. (X18)"
    // where 18 -number of message reteates. Previous messages (10,13,15) are erased.
    // If unsimilar messages are exist then sequence is stopped and restarted. Example:
    // "28.01.2042 at 05:13: One 'Glas' was produced. (X103)
    // 28.01.2042 at 05:14: The research for the project 'Tragbares Lenkwaffensystem' has been finished.
    // 28.01.2042 at 06:20: One 'Glas' was produced. (X28)"
    // I didn't check it with messages consist from several strings, but it must work.
    // Then it may look like:
    // "28.01.2042 at 05:13: One 'Glas' was (X103)
    // produced.
    // 28.01.2042 at 05:14: The research for the project 'Tragbares Lenkwaffensystem' has been finished.
    // 28.01.2042 at 06:20: One 'Glas' was (X28)
    // produced."
    temp:=fMessages[firstIndex-1];
    if pos(text,temp)<>0 then
    begin
      count:='';
      for i := pos('(X',temp)+2 to length(temp)-1 do
      begin
        symbol:=temp[i];
        if (i=2) or (symbol=')') then break;
        count:=count+symbol;
      end;
      if count='' then count:='1';
      count:=inttostr(strtoint(count)+1);
      repeat
      begin
        fMessages.Delete(firstindex-1);
        firstindex:=firstindex-1;
      end;
      until (firstindex=0) or (fMessages[firstindex-1][1]<>0000254);
      text:=text+' (X'+count+')';
    end;
  end;

Attached Files

Relationships

There are no notes attached to this issue.

Issue History
Date Modified	Username	Field	Change
05.10.09 19:07	Natter	New Issue
05.10.09 19:15	Natter	Status	new => resolved
05.10.09 19:15	Natter	Fixed in Version	=> V0.915b05
05.10.09 19:15	Natter	Resolution	open => fixed
05.10.09 19:15	Natter	Assigned To	=> Natter
05.10.09 19:15	Natter	Status	resolved => assigned
05.10.09 19:15	Natter	Assigned To	Natter => gnfalex
05.10.09 19:15	Natter	Status	assigned => resolved
06.11.09 03:00	Gast	Status	resolved => closed

Mantis 1.0.7[^]