Lauftext auf DFI Anzeige

Arnes. · 7. Januar 2023

Hallo,

ich suche für meine DFI Anzeige nach der Möglichkeit, eine über StatPIS_GetInfotext empfangenen Text als Laufschrift anzeigen zu lassen. Gibt es eine Funktion die einen Text ab einer bestimmten länge durchlaufen lässt oder ist es nötig den Text mit StrCutBegin und StrCutEnd abzuschneiden bis er durchgelaufen ist?

tramkatze · 7. Januar 2023

Der Text muss nicht abgeschnitten werden, da er auch außerhalb der Textur laufen kann.

Code

if moving_text then // Wenn Lauftext aktiviert ist,
begin
moving_text_timer := moving_text_timer + Timegap; // Erhöhe den Timer um die vergangene Zeit
if moving_text_timer > MOVING_TEXT_SPEED then // Wenn der Timer höher ist als die definierte Konstante,
begin
moving_text_pos := moving_text_pos + Round(moving_text_timer / MOVING_TEXT_SPEED); // Erhöhe die Position (nimmt Rücksicht darauf, ob der Timer in einem Frame um das Mehrfache überschritten wurde und rundet, sodass sich die kleinen Unterschiede ausgleichen)
TexSelTex(Self, 0); // Wähle die richtige Textur aus
TexSetColor(Self, Color(0,0,0,0)); // Lösche den Text auf der Textur
TexClear(Self); // --------------"---------------
TexSetColor(Self, Color(255,110,0,255));
TexSetBlendMode(Self, 1);
TexWriteLn(Self, text, moving_text_pos, 0, fontindex, true, 0); // Schreibe den Text an die aktuelle Position des Lauftextes
moving_text_timer := 0.0; // Resette den Timer
if moving_text_pos >= DISPLAY_WIDTH then // Wenn der Text komplett vom Bildschirm verschwunden ist,
begin
moving_text_pos := -1 * texlength; // Setze ihn so, dass er komplett links vom Bildschirm außerhalb der Textur ist
end;
end;
end;

Alles anzeigen

moving_text ist eine Boolean-Variable,
moving_text_timer ist eine Single-Variable,
moving_text_pos ist eine Integer-Variable,
texlength ist die Länge des Strings (den ich in einer anderen Prozedur definiert habe, musst du dann wahrscheinlich durch TexGetTextLenPixel ersetzen).

Ich hoffe das ist verständlich und hilft irgendwie weiter

Arnes. · 8. Januar 2023

Vielen Dank, das ist eine Lösung, die ich so nicht auf dem Schirm hatte, aber ideal funktioniert.