(M)eine Seite für 40tude Dialog

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

ChangeNamesInArticleList

E-Mail Drucken PDF

Mit diesem Script kannst du für bestimmte Poster einen eigenen Namen/Nicknamen in der Artikelliste anzeigen lassen.

Aus Dietmar Vollmeier wird in der Übersicht dann z.B. DiDi.

alt

 

Beschreibung der change_names.ini

Die change_names.ini gehört in das Programmverzeichnis von 40tude Dialog.
Diese Datei wird auch noch für andere Scripte benötigt, z.B. ChangeAttributionLines, es kann daher sein, daß eine solche bei dir schon existiert!

In diese Datei werden die Namen für diejenigen Personen eingetragen, die du in der Übersicht mit ihrem Nick stehen haben möchtest.

Weitere Anleitungen sind in der Datei selbst enthalten!

 

Name und Funktion

Include : {$I _i_OALP_ChangeNamesInArticleList}
Funktion : ChangeNamesInArticleList(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_ChangeNamesInArticleList}

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 := ChangeNamesInArticleList(PaintString);
      // Weitere Funktionen
     End;
    sp_Date:
     Begin
      // Weitere Funktionen
     End;
   End;
   Result := PaintString;
End;

Begin
End.

 

Download

ChangeNamesInArticleList v.2.2.0
Autor Dietmar Vollmeier Webseite Homepage Datum 12.01.2009 Dateigröße 900 B  Download 1532

 

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