FormatDate

Dienstag, den 10. September 2013 um 18:45 Uhr Dietmar Vollmeier

Mit diesem Script kannst du das Datum der Header-Pane übersichtlicher formatiert darstellen. Das kann dann wie im Screenshot gezeigt aussehen.

Es sind allerdings noch weitere Einstellungen möglich. Eine Beschreibung dazu findest du im Script selber, bei den jeweiligen Parametern.

Name und Funktion

Include	:	{$I _i_OALP_FormatDate}
Funktion	:	FormatDate(PaintString);

Einbindung

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

Program OnArticleListPaint;

// Weitere Include-Files
{$I _i_OALP_FormatDate}

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

Begin
End.