(M)eine Seite für 40tude Dialog

  • Schrift vergrößern
  • Standard-Schriftgröße
  • Schriftgröße verkleinern
Home » Scripte » Ereignisscripte » OnArticleListPaint » ShowRealnames

ShowRealnames

E-Mail Drucken PDF

In letzter Zeit scheint es immer mehr in Mode zu kommen, unter falschem oder mit einem Nicknamen im Usenet unterwegs zu sein. Da kann $man dann irgendwann schon mal die Übersicht über die einzelnen Poster verlieren. Mit diesem Script kannst du dir für solche Poster den Realnamen neben dem falschen bzw. Nicknamen anzeigen oder dir den falschen bzw. Nicknamen durch den Realnamen ersetzen lassen.

Diese Namensinformationen holt sich das Script aus einer INI-Datei, nämlich der _RealNames.ini.

 

Beschreibung der _RealNames.ini

Die _RealNames.ini gehört in das Programmverzeichnis von 40tude Dialog.
In diese Datei werden die Namen für diejenigen Personen eingetragen, deren RealNamen und angezeigt haben möchtest - und zwar wie folgt

[RealNames]
Nickname=Realname
DiDi=Dietmar Vollmeier
...

 

Name und Funktion

Include : {$I _i_OALP_ShowRealnames}
Funktion : ShowRealnames(PaintString);

 

Einbindung

Generelle Infos zur Einbindung von INCLUDE-Files findest du hier.

Das Script funktioniert nur in Verbindung mit dem Script "Pathfinder"!

Program OnArticleListPaint;

// DialogINI muß als erstes in die Liste der Include-Files eingebunden werden
{$I DialogINI}
// Weitere Include-Files
{$I _i_OALP_ShowRealnames}

Const
// Die Spalten bitte dem Layout entsprechend zuordnen, wobei zu beachten ist,
// daß die erste Spalte im Layout mit 0 beginnt, usw.
// Nicht verwendete Spalten auf -1 setzen!
sp_Subject     = -1;
sp_Name        = -1;
sp_SubjectName = 2;
sp_Date        = 3;

Function OnArticleListPaint(
   PaintString : WideString;
   ColumnIndex : Integer
) : Widestring;

Begin
   Case ColumnIndex of
    sp_Subject:
     Begin
      // Weitere Funktionen
     End;
    sp_Name:
     Begin
      // Weitere Funktionen
     End;
    sp_SubjectName:
     Begin
      PaintString := ShowRealnames(PaintString);
      // Weitere Funktionen
     End;
    sp_Date:
     Begin
      // Weitere Funktionen
     End;
   End;
   Result := PaintString;
End;

Begin
End.

 

Download

ShowRealNames v.1.1.0
Autor Dietmar Vollmeier Webseite Homepage Datum 29.08.2013 Dateigröße 973 B  Download 2866

 

Zuletzt aktualisiert am Dienstag, den 03. September 2013 um 15:13 Uhr