(M)eine Seite für 40tude Dialog

  • Schrift vergrößern
  • Standard-Schriftgröße
  • Schriftgröße verkleinern

FormatDate

E-Mail Drucken PDF

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.

 

Download

FormatDate v.1.0.0
Autor Dietmar Vollmeier Webseite Homepage Datum 10.09.2013 Dateigröße 1.54 KB  Download 1289

 

Zuletzt aktualisiert am Dienstag, den 10. September 2013 um 19:20 Uhr