//*********************************************************************
//*              PROGRAM - OnArticleListPaint 2020-07-09              *
//*                      >> Ereignisscript <<                         *
//*                                                                   *
//* Mit diesem Script wird das Aussehen der Thread-Pane beinflusst.   *
//* So kann bspw. das Format des Datums geaendert werden.             *
//*                                                                   *
//* Funktionalitaet: [x] neutral                                      *
//*                  [ ] nur Basis_Modul                              *
//*                  [ ] nur Pathfinder                               *
//*                                                                   *
//* Datum         : 09.12.2008                                        *
//* Autor         : Dietmar Vollmeier                                 *
//* Ueberarbeitet : Thomas Barghahn 2020-07-09                        *
//*                                                                   *
//*********************************************************************

Program OnArticleListPaint;  

uses TextFile;
 
{$I _i_OALP_Change_Name_In_ArticleList.ds}
{$I _i_OALP_FormatDate}  
  
Const  
// Die Spalten bitte dem Layout entsprechend zuordnen, wobei zu beachten ist,  
// dass die erste Spalte im Layout mit 0 beginnt, usw.  
// Nicht verwendete Spalten auf -1 setzen!  
sp_Subject     = -1;  
sp_Name        = -1;  
sp_SubjectName = -1;  
sp_Date        = 4;  
  
Function OnArticleListPaint ( PaintString : WideString;  
                              ColumnIndex : Integer  
) : Widestring;  
  
Begin  
   Case ColumnIndex of  
      sp_Subject:  
         Begin  
            // Weitere Funktionen  
         End;  
      sp_Name:  
         Begin  
            PaintString := Change_Name_In_ArticleList (PaintString);
            result:=paintstring;
            // Weitere Funktionen 
          End;  
      sp_SubjectName:  
         Begin  
            PaintString := Change_Name_In_ArticleList (PaintString);
            result:=paintstring;
            // Weitere Funktionen  
         End;  
      sp_Date:  
         Begin  
            PaintString := FormatDate(PaintString);  
            // Weitere Funktionen  
         End;  
   End; //Case  
   Result := PaintString;  
End;  
  
Begin  
End.