diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-06-09 23:52:56 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-06-09 23:52:56 +0200 |
| commit | 47735c3d73cc677e519cd33b58232c97729596fa (patch) | |
| tree | 32b96f0388721dd63668cb159d05e6c934536268 /UEngines.pas | |
| parent | f9c7a5f62f96fab9ce5e3d2c205bc9da3046c4d4 (diff) | |
| download | tuxcmd-0.6.40.tar.xz | |
Date/time string formatting revisionv0.6.40
Added ability to set custom date/time format
Diffstat (limited to 'UEngines.pas')
| -rw-r--r-- | UEngines.pas | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/UEngines.pas b/UEngines.pas index 89fb4dd..219a621 100644 --- a/UEngines.pas +++ b/UEngines.pas @@ -21,7 +21,7 @@ unit UEngines; interface -uses glib2, gdk2, Classes, Libc; +uses glib2, gdk2, Classes, Libc, UGlibC_compat; const ERRException = -1; @@ -49,7 +49,7 @@ type UpDir: boolean; Mode, UID, GID: Cardinal; IsDir, IsLnk, IsBlk, IsChr, IsFIFO, IsSock, Selected, IsDotFile: boolean; - ModifyTime: TDateTime; + ModifyTime: TTimeT; Icon: Pointer; ItemColor: PGdkColor; end; @@ -64,7 +64,7 @@ type Size: Int64; Mode, UID, GID: Cardinal; IsDir, IsLnk, ForceMove, IsOnRO, IsExecutable: boolean; - ModifyTime: TDateTime; + ModifyTime: TTimeT; Level: word; atime, mtime: Int64; end; @@ -189,7 +189,7 @@ procedure FreeDataItem(DataItem: PDataItem); overload; implementation -uses SysUtils, UCoreUtils, UConfig, UGlibC_compat; +uses SysUtils, UCoreUtils, UConfig; (********************************************************************************************************************************) constructor TPanelEngine.Create; @@ -309,9 +309,9 @@ begin IsFIFO := __S_ISTYPE(StatBuf^.st_mode, __S_IFIFO); IsSock := __S_ISTYPE(StatBuf^.st_mode, __S_IFSOCK); {$IFDEF KYLIX} - ModifyTime := UnixTimeToTDateTime(StatBuf^.st_mtime); + ModifyTime := StatBuf^.st_mtime; {$ELSE} - ModifyTime := UnixTimeToTDateTime(StatBuf^.st_mtim.tv_sec); + ModifyTime := StatBuf^.st_mtim.tv_sec; {$ENDIF} if StatBuf^.st_uid = 4294967295 then UID := getuid else UID := StatBuf^.st_uid; @@ -591,9 +591,9 @@ var Handle : PDirectoryStream; end; end; {$IFDEF KYLIX} - ModifyTime := UnixTimeToTDateTime(StatBuf_local^.st_mtime); + ModifyTime := StatBuf_local^.st_mtime; {$ELSE} - ModifyTime := UnixTimeToTDateTime(StatBuf_local^.st_mtim.tv_sec); + ModifyTime := StatBuf_local^.st_mtim.tv_sec; {$ENDIF} // DebugMsg([FormatDateTime('c', ModifyTime)]); Level := ALevel + Ord(not AddCurrDirStage); @@ -675,9 +675,9 @@ begin ForceMove := False; // DebugMsg(['x2']); {$IFDEF KYLIX} - ModifyTime := UnixTimeToTDateTime(StatBuf^.st_mtime); + ModifyTime := StatBuf^.st_mtime; {$ELSE} - ModifyTime := UnixTimeToTDateTime(StatBuf^.st_mtim.tv_sec); + ModifyTime := StatBuf^.st_mtim.tv_sec; {$ENDIF} // DebugMsg(['x2']); if StatBuf^.st_uid = 4294967295 then UID := getuid |